Excel - Määritä makro kaikille keltaisille korostetuille soluille

Ongelma

Hei, olen parhaillaan suolakurkussa ... Toivon, että kaikki päälliköt voisivat antaa käden VBA noobille ...

Juuri nyt kirjoitin makron kopioimaan kaikki kaavat säilyttäen arvon aktiivisissa soluissa ja haluan soveltaa tätä makroa kaikki keltaiset korostetut keltaiset solut laskentataulukossa .... Miten tehdä?

nykyinen koodi on oikea

(En vieläkään voi ajatella, mitä tehdä vain keltaisiksi korostetuiksi soluiksi, jotka sisältävät tämän makron)

 Sub Copy_Formulas_Only () Himmennä rivi yhtenä rivinä = ActiveCell.row-valinta.EntireRow.Insert Rivit (rivi - 1). Kopioi rivit (rivi) .Valitse On Error Resume Next Selection.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants). ClearContents On Error GoTo 0 Application.CutCopyMode = False End Sub

Ratkaisu

Se käynnistyy, kun valitset solualueen. Mutta luulen, että tiedät paremmin, mitä sinun tarvitsee tehdä.

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) Sovellus.EnableEvents = False 'Jos Target.Address = "KAIKKI KELTAINEN SARJA TYÖNTEKIJÄLLE" Sitten jokaiselle CELL: lle kohdetapahtumassa Jos (CELL.Interior.Color = 65535), sitten Dim rivi yhtenäisenä rivi = ActiveCell.row Selection.EntireRow.Insert Rows (rivi - 1) .Kopioi rivit (rivi) .Valitse On Error Resume Next Selection.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants) .ClearContents Application.EnableEvents = True On Error GoTo 0 End Jos seuraava sovellus.CutCopyMode = False End Sub