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

Название: Excel VBA Макросы. Как закрасить ячейку по условию?
Отправлено: Посетитель от 12 января 2021, 12:46

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

Название: Re: Excel VBA Макросы. Как закрасить ячейку по условию?
Отправлено: Администратор от 12 января 2021, 12:55

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

Название: Re: Excel VBA Макросы. Как закрасить ячейку по условию?
Отправлено: Посетитель от 12 января 2021, 13:03

спасибо

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

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