Цвет шрифта в ячейке

[kzld]

Помогите составить условие
Если в ячейке C1 значение >=0 (меньше или равно 0)
то шрифт в ячейке B1 красный, иначе синий

[Xpoft]

Так все же меньше равно(<=) или больше равно(>=)?

[Xpoft]

а так вообще вот:
If Cells(1, 1).Value <= 0 Then ' если меньше либо равно 0
Cells(1, 1).Font.Color = -16776961 'красный
Else: Cells(1, 1).Font.Color = -4165632 'синий
End If

[kzld]

Сообщение от Xpoft

Так все же меньше равно(<=) или больше равно(>=)?

Извиняюсь <= (правильно так)

[The_Prist]

Поправочка. Лучше использовать в данном случае либо константы RGB, либо colorIndex, иначе может возникнуть ошибка.

If Cells(1, 3).Value < 0 Then Cells(1, 3).Font.Color = vbRed Else Cells(1, 3).Font.Color = vbBlue

If Cells(1, 3).Value < 0 Then Cells(1, 3).Font.ColorIndex = 3 Else Cells(1, 3).Font.ColorIndex = 5

А можно и без макросов. Просто воспользоваться Условным Форматированием. Формулы:

=C1<0
=C1>=0

[kzld]

Сообщение от Xpoft

а так вообще вот:
If Cells(1, 1).Value <= 0 Then ' если меньше либо равно 0
Cells(1, 1).Font.Color = -16776961 'красный
Else: Cells(1, 1).Font.Color = -4165632 'синий
End If

Прошу помощи
Если не затруднит, напишите полный текст макроса и куда его "воткнуть"

[The_Prist]

Сообщение от kzld

Прошу помощи
Если не затруднит, напишите полный текст макроса и куда его "воткнуть"

Открою секрет - это и есть полный текст макроса. Вам надо только создать модуль и процедуру и скопирвоать туда этот код.

[kzld]

Сообщение от The_Prist

Открою секрет - это и есть полный текст макроса. Вам надо только создать модуль и процедуру и скопирвоать туда этот код.

Модуль создал
Скопировал-не работает.
Что такое процедура? И как она обзывается на английском ?

[The_Prist]

Я кажись понял. Вы не можете сразу объяснить человеческим языком что надо? Чтоб в режиме он-лайн, при вводе данных в ячейку менялся цвет?
Вот макрос

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address(0, 0) <> "C1" Then Exit Sub
If Target < 0 Then Target.Font.Color = vbRed Else Target.Font.Color = vbBlue
End Sub

Копируете код. Щелкаете правой кнопкой мыши по ярлычку лита, на котором хотите отслеживать изменения. Выбираете Исходный текст и вставляете данный код. Пробуете.

А уж если настолько не в ладах с макросами, лучше воспользуйтесь моим советом и примените Условное форматирование. Что это такое и где его найти можно почитать на Офф.сайте или в справке Excel.

[The_Prist]

А что такое процедура и как они еще обзываются читайте в учебниках VBA.