Excel VBA Макросы. Как закрасить ячейку по условию?

Автор Посетитель, 12 января 2021, 12:46

Посетитель

Как закрасить ячейку A1 по этим условиям:?
если в ячейке число 150, то нужно сделать ячейку без цвета;
если в ячейке число 180, то нужно сделать ячейку зелёной;
если в ячейке число 190, то нужно сделать ячейку красной.

Администратор

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