Окраска if () условие в exel

328
Yorgos

Привет общению,

Допустим, в ячейке файла Excel я хочу ввести следующую формулу

если (a1> a2, "test1", "test2")

Чего я хочу добиться, так это чтобы шрифты test1 и test2 были разных цветов.

Одним из способов является использование условного форматирования и применение различных правил. Тем не менее, мне интересно, есть ли альтернатива - более прямой подход, указав цвет шрифта непосредственно внутри if()формулы или с помощьюVBA

заранее спасибо

0

1 ответ на вопрос

2
pat2015

Это возможно с помощью VBA. Я полагаю, ваша формула находится в ячейке B1

На рабочем листе Excel нажмите ALT+ F11для доступа к редактору VBA.

Выберите свой лист на левой панели. В правом окне кода выберите « Рабочий лист» в раскрывающемся списке, а затем выберите « Изменить событие» в последующем раскрывающемся списке.

В ней должен быть указан следующий заполнитель подпрограммы.

Private Sub Worksheet_Change(ByVal Target As Range)  End Sub 

Поместите следующий код в то же самое.

If Target.Address = "$A$1" Or Target.Address = "$A$2" Then If Range("B1").Formula = "=IF(A1>A2,""test1"",""test2"")" Then  If Range("A1").Value > Range("A2").Value Then Range("B1").Font.Color = vbRed Else Range("B1").Font.Color = vbGreen End If  End If End If 

В приведенном выше примере я использовал стандартные vbRed и vbGreen. Выберите согласно вашему выбору.

enter image description here

Похожие вопросы