Как изменить цвет отдельных ячеек при вводе/изменении значений

Question

Я хочу, чтобы ячейки меняли цвет текста при вводе чисел, но существующие цифры в столбце должны оставаться одного цвета, если только я их не изменю. На изображении вы можете видеть, что у меня есть строки и столбцы, которые предварительно заполнены текстом. Всякий раз, когда происходит изменение, я хотел бы, чтобы цвет шрифта текста (только из столбца A) переходил от черного к красному.

E.g. если я хочу изменить номер 02 на другой номер, как только будет введен новый номер, новый номер автоматически изменит цвет текста на красный, НО цифры под ним, 03, 04, 05, 06 будут оставаться черными до тех пор, пока я их не изменю - при необходимости ,

Я попытался условное форматирование, но это меняет все ячейки на красный, когда текст вводится (вкл. Клетки, которые уже есть ...)

http://postimg.org/image/doqokmd6x/

Answer 1

Добавьте УВА

Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Column = 1 Then 
    Target.Interior.ColorIndex = 3 
End If 
End Sub 

http://msdn.microsoft.com/en-us/library/office/ff839775%28v=office.15%29.aspx

Answer 2

Это должно работать для вашего требования.

Public strOldValue As String 

Public Sub Worksheet_SelectionChange(ByVal Target As Range) 
    'Assign previous value to a variable 
    strOldValue = Target.Value 

End Sub 

Public Sub Worksheet_Change(ByVal Target As Range) 

    Dim strNewValue As String 
    'Check for first Column 
    If Target.Column = 1 Then 
     'Assign New Value 
     strNewValue = Target.Value 
     'Compare Old value and New Value 
     If Trim(strOldValue) <> strNewValue Then 
      Target.Interior.Color = vbRed 
     End If 
    End If 

End Sub 

Answer 3

сделал некоторые изменения себя выше VBA, вот что я искал:

Private Sub Worksheet_Change(ByVal Target As Range) 
Target.Font.ColorIndex = 3 
    If Target.Column = 1 Then 
    Target.Interior.ColorIndex = 2 
End If 
End Sub