Код VBA - требуется помощь в копировании формата одной ячейки по всей строке на основе определенного значения ячейки или формата в столбце A - PullRequest
Новая
       23

Код VBA - требуется помощь в копировании формата одной ячейки по всей строке на основе определенного значения ячейки или формата в столбце A

0 голосов
/ 13 марта 2020

У меня есть этот код ниже, который работает для обновления формата ячеек в столбце A, если ячейка начинается с «00». 

Dim cel As Range
For Each cel In Range("A6:A300")
If Left(cel.Value, 2) = "00" Then
cel.Font.Color = vbWhite
cel.Interior.Color = vbBlack
End If
Next

Что я действительно хочу сделать, так это когда «00» встречается в ячейке в столбце AI, чтобы белый текст и внутренняя часть черных ячеек не только в ячейке столбца А, но и затем копировали то же форматирование через строка из A: W. Например, если в A7 встречается «00», то я хочу этот формат от A7: W7 и так далее. Когда в столбце A отображается «00», каждый раз, когда источник данных обновляется, он должен быть гибким.

Я надеюсь, что есть простое решение, где я могу добавить второй диапазон после оператора THEN. Что-то вроде ниже (что не работает): 

Dim cel As Range
For Each cel In Range("A6:A300")
If Left(cel.Value, 2) = "00" Then Range("A:W")
cel.Font.Color = vbWhite
cel.Interior.Color = vbBlack
End If
Next

Любая помощь будет принята с благодарностью. Спасибо!

...