Форум по VBA и MS Office

Как сделать условное форматирование с помощью макроса?

Условия такие. Нужно закрашивать ячейку A1 в зависимости от значения в ней:
если в ячейке число 150, то убрать цвет;
если число 180, сделать зелёный цвет;
если число 190, сделать красный цвет.

Используйте событие "Worksheet_Change". Поместите его в модуль листа, на котором нужно закрашивать ячейку A1.

Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
   
    If Range("A1").Value = 150 Then
        Range("A1").Interior.Pattern = xlNone
    ElseIf Range("A1").Value = 180 Then
        Range("A1").Interior.Color = RGB(0, 255, 0)
    ElseIf Range("A1").Value = 190 Then
        Range("A1").Interior.Color = RGB(255, 0, 0)
    End If
   
End Sub

спасибо