Excel - piešķiriet makro visām dzeltenajām iezīmētajām šūnām

Izdevums

Sveiki, es šobrīd esmu marinēti ... Es ceru, ka visi meistari varētu dot roku šai VBA noob ...

Šobrīd es uzrakstīju makro, lai kopētu visu formulu, nesaglabājot vērtību aktīvajām šūnām, un es gribētu piemērot šo makro visām dzeltenajām izceltajām dzeltenajām šūnām izklājlapā .... Kā to izdarīt?

mans pašreizējais kods ir taisnīgs

(Es joprojām nespēju domāt, kā likt tikai dzeltenām iezīmētām šūnām, lai tajā iekļautu šo makro)

 Sub Copy_Formulas_Only () Nedaudz rinda kā viena rinda = ActiveCell.row izvēle.EntireRow.Insert rindas (rinda - 1). Kopēt rindas (rinda). Izvēlieties On Error Resume Nākamā izvēle.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants). ClearContents On Error GoTo 0 Application.CutCopyMode = Nepareizs beigu sub

Risinājums

Tā tiks aktivizēta, izvēloties šūnu diapazonu. Bet es domāju, ka jūs labāk zināt, kas jums jādara.

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) Pieteikums.EnableEvents = False 'Ja Target.Address = "VISAS DZELTENE CELL IN THE WORKSHEET" Tad katram CELL mērķim, ja (CELL.Interior.Color = 65535), tad Dim rinda kā vienota rinda = ActiveCell.row Selection.EntireRow.Insert Rows (rinda - 1) .Kopējiet rindas (rinda) .Izvēlieties On Error Resume Next Selection.PasteSpecial Paste: = xlPasteFormulas izvēle.SpecialCells (xlCellTypeConstants) .ClearContents Application.EnableEvents = True On Error GoTo 0 Beigas Ja Nākamā lietojumprogramma.CutCopyMode = False End Sub