„Excel“ - priskirti makrokomandą visiems geltoniems pažymėtiems elementams

Problema

Sveiki, aš šiuo metu žievelėje ... Tikiuosi, kad visi meistrai gali suteikti šiai VBA Noob ...

Šiuo metu parašiau makrokomandą, kad nukopijuotumėte visą formulę, neprarandant aktyvių elementų vertės ir norėčiau taikyti šią makrokomandą visoms geltonoms pažymėtoms geltonoms ląstelėms skaičiuoklėje .... Kaip tai padaryti?

mano dabartinis kodas yra teisingas

(Aš vis dar negaliu galvoti, ką daryti, kad tik geltonos spalvos pažymėtos ląstelės būtų šios makrokomandos)

 Sub Copy_Formulas_Only () Išskleisti eilutę kaip vieną eilutę = ActiveCell.row pasirinkimą.EntireRow.Insert eilutes (eilutė - 1) .Kopuokite eilutes (eilutę) .Pasirinkite On Error Resume Next Selection.PasteSpecial Paste: = xlPasteFormulas atranka. ClearContents On Error GoTo 0 Application.CutCopyMode = False End Sub 

Sprendimas

Jis bus suaktyvintas, kai pasirinksite langelio diapazoną. Bet manau, kad geriau žinote, ką reikia daryti.

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) Taikymas.EnableEvents = False 'Jei Target.Address = "VISI Geltona spalva DARBINIUOSE" Tada kiekvienam CELL į tikslą, jei (CELL.Interior.Color = 65535), tada išmeskite eilutę kaip vieną eilutė = ActiveCell.row Selection.EntireRow.Insert eilutės (eilutė - 1) .Kopuokite eilutes (eilutę) .Pasirinkite On Error Resume Next Selection.PasteSpecial Paste: = xlPasteFormulas pasirinkimas.SpecialCells (xlCellTypeConstants) .ClearContents Application.EnableEvents = True On Error GoTo 0 Pabaiga Jei kitas taikymas.CutCopyMode = False End Sub 

Pastaba

Ačiū rizvisa1 už šį patarimą forume.

Ankstesnis Straipsnis Kitas Straipsnis

Geriausi Patarimai