Печать страницы - Excel VBA Макросы. Закрасить ячейку в зависимости от значения в этой ячейке.

Название: Excel VBA Макросы. Закрасить ячейку в зависимости от значения в этой ячейке.
Отправлено: Посетитель от 12 мая 2021, 22:26

Если в ячейке A1 положительное число, то закрасить ячейку A1 в зелёный цвет, если отрицательное число, то в красный, если ноль, то не закрашивать.

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

Sub Макрос()

If Range("A1").Value > 0 Then
Range("A1").Interior.Color = 9359529
ElseIf Range("A1").Value < 0 Then
Range("A1").Interior.Color = 8696052
ElseIf Range("A1").Value = 0 Then
Range("A1").Interior.Pattern = xlNone
End If

End Sub

Название: Re: Excel VBA Макросы. Закрасить ячейку в зависимости от значения в этой ячейке.
Отправлено: Посетитель от 12 мая 2021, 22:29

Спасибо!

Форум по VBA и MS Office

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