цветовой индекс vba

Question

Есть ли в любом случае для поиска цветной ячейки? Это не должен быть какой-то определенный цвет. Правильно, что у меня есть, это указать макрос для поиска ячейки желтого цвета. Но мне нужно определить ЛЮБУЮ цветную клетку.

cellColor = vbYellow

'is there something like
cellColor = vbAnyColor

Answer 1

Вы можете использовать Interior.ColorIndex свойство и проверить по xlColorIndexNone:

If Worksheet("Sheet1").Range("A1").Interior.ColorIndex <> xlColorIndexNone Then
   'cell is colored
Else
   'cell is not colored
End If

В качестве альтернативы вы можете использовать Range.Interior.Color свойство как отметил @Dean в комментарии:

If Worksheet("Sheet1").Range("A1").Interior.Color <> vbWhite Then
   'cell is colored
Else
   'cell is not colored
End If