Форум по VBA, Excel и Word

VBA, Excel => VBA, макросы в Excel => Тема начата: Посетитель от 17 февраля 2021, 14:46

Название: Excel VBA Макросы. Как пройтись по всем ячейкам указанного диапазона, у которых заданный цвет?
Отправлено: Посетитель от 17 февраля 2021, 14:46
Как пройтись по всем ячейкам выделенного диапазона, у которых белый цвет? Вернее, в ячейке отсутствует цвет.
Ячейки разбросаны в тетрисном порядке, бессистемно.
Название: Re: Excel VBA Макросы. Как пройтись по всем ячейкам указанного диапазона, у которых заданный цвет?
Отправлено: Администратор от 17 февраля 2021, 14:56
Sub Макрос()
   
    Dim Ячейка As Range
   
    For Each Ячейка In Selection.Cells
        If Ячейка.Interior.Pattern = xlNone Then
            ' Действие с ячейкой.
        End If
    Next Ячейка
   
End Sub
Название: Re: Excel VBA Макросы. Как пройтись по всем ячейкам указанного диапазона, у которых заданный цвет?
Отправлено: Посетитель от 17 февраля 2021, 15:11
Круто! Благодарность огромная!