Изменение цветов ячеек Excel на основе значений

Question

Можете ли вы рассказать мне, как изменить цвета ячеек Excel с помощью VBA? Когда значение в порядке -> цвет ячейки зеленый. Когда значение NOTOK -> цвет ячейки красный.

Answer 1

Вы можете использовать Условное форматирование при редактировании содержимого рабочего листа. Если вы хотите использовать VBA, и для этого есть веские причины, просто включите макрокоманд, отредактируйте содержимое рабочего листа, а затем посмотрите на макрос для кода VBA. Excel напишет код для вас: это отличный способ узнать VBA и получить то, что вам нужно эффективным способом.

Answer 2

Используйте свойство .Interior.Color диапазона.

Dim ws As Excel.Worksheet 
Set ws = Application.ActiveSheet 

If ws.Range("A1").Value = "OK" Then 
    ws.Range("A1").Interior.Color = 5287936 
Elseif ws.Range("A1").Value = "NOTOK" Then 
    ws.Range("A1").Interior.Color = 255 
End if