Excel - назначить макрос всем выделенным желтым цветом ячейкам

вопрос

Здравствуйте, я сейчас нахожусь в огурце ... Я надеюсь, что все мастера могут протянуть руку этому VBA Noob ...

Прямо сейчас я написал макрос, чтобы скопировать всю формулу, не сохраняя значение в активных ячейках, и я хотел бы применить этот макрос ко всем желтым выделенным желтым ячейкам в электронной таблице .... Как это сделать ???

мой текущий код просто

(Я до сих пор не могу понять, что нужно сделать, чтобы в этом макросе были только выделенные желтым цветом ячейки)

 Sub Copy_Formulas_Only () Dim row As Single row = ActiveCell.row Selection.EntireRow.Insert Rows (row - 1). Копировать Rows (row). Выбрать при ошибке Возобновить Next Selection.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypestants) ClearContents On Error GoTo 0 Application.CutCopyMode = False End Sub

Решение

Он будет срабатывать при выборе диапазона ячеек. Но я думаю, вы лучше знаете, что вам нужно делать.

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) Application.EnableEvents = False 'If Target.Address = "ВСЕ ЖЕЛТЫЙ КЛЕТОК В РАБОЧЕМ ЛИСТЕ" Тогда для каждой ячейки в цели, если (CELL.Interior.Color = 65535) Тогда затемнить строку как один row = ActiveCell.row Selection. GoTo 0 End If Next Application.CutCopyMode = False End Sub