Excel - määrake makro kõigile kollastele esiletõstetud rakkudele

Probleem

Tere, ma olen praegu marinaadis ... Loodan, et kõik meistrid saavad anda sellele VBA noobile käe ...

Praegu kirjutasin ma makro, et kopeerida kogu valem, säilitamata aktiivsete lahtrite väärtust ja ma sooviksin seda makrot rakendada kõikidele kollasele esiletõstetud kollastele rakkudele tabelis .... Kuidas seda teha?

minu praegune kood on õige

(Ma ei suuda ikka mõelda, mida teha ainult kollaste esiletõstetud lahtrite tegemiseks selle makro sisaldamiseks)

 Sub Copy_Formulas_Only () Silma rida kui üks rida = ActiveCell.row valik.EntireRow.Insert ridade (rida - 1) .Kopeeri read (rida) .Valige On Error Resume Next Selection.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants). ClearContents On Error GoTo 0 Rakendus.CutCopyMode = False End Sub

Lahendus

See käivitub, kui valite lahtri vahemiku. Aga ma arvan, et sa tead paremini, mida sa pead tegema.

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) Application.EnableEvents = False 'Kui Target.Address = "KÕIK KOLLANE KUDUS TÖÖKOHTES" Siis iga CELL jaoks sihtmärgiks Kui (CELL.Interior.Color = 65535), siis koo rida kui üksik rida = ActiveCell.row valimine.EntireRow.Insert Rows (rida - 1) .Kopeeri read (rida) .Valige On Error Resume Next Selection.PasteSpecial Paste: = xlPasteFormulas valimine.Spetsiaalkella (xlCellTypeConstants) .ClearContents Application.EnableEvents = True On Error GoTo 0 Lõpp Kui Järgmine rakendus.CutCopyMode = False End Sub