List1.Range("C3").Formula = "=B3"
Dim val As Variant
val = List1.Range("C3").Value
If val = 2 Then
List1.Range("C3").Font.Color = RGB(255, 0, 0)
Else
List1.Range("C3").Font.Color = RGB(0, 0, 255)
End If
Изменение цвета шрифта
Здравствуйте! Помогите разобраться в след. вопросе:
Макросом записываются формулы в ячейку Excel:
Application.DisplayAlerts = False
Лист3.Range("BK6").Formula = "=$AJ$89"
Application.DisplayAlerts = True
т.е. даже при внесении значения в эту ячейку вручную, при следующим открытии формула вновь появляется.
Задача: нужно менять цвет шрифта в ячейке в зависимости от того какое значение там появилось, т.е. вручную или с помощью формулы. Чего-то не получаеться...
Макросом записываются формулы в ячейку Excel:
Application.DisplayAlerts = False
Лист3.Range("BK6").Formula = "=$AJ$89"
Application.DisplayAlerts = True
т.е. даже при внесении значения в эту ячейку вручную, при следующим открытии формула вновь появляется.
Задача: нужно менять цвет шрифта в ячейке в зависимости от того какое значение там появилось, т.е. вручную или с помощью формулы. Чего-то не получаеться...
А в чем собственно проблема?:
Если я конечно правильно тебя понял..
Код:
Если я конечно правильно тебя понял..
Цитата: tybor
Задача: нужно менять цвет шрифта в ячейке в зависимости от того какое значение там появилось, т.е. вручную или с помощью формулы. Чего-то не получаеться...
Условное форматирование! Воспользуйся условным форматированием!
(в меню - Формат/Условное форматирование/Дальше разберёшься...)
Спасибо