How do i change font color in a range on Excel 2007

[AK_Chopra]

I would like to know that how do i change font color in a range on Excel 2007. Let say for example if i would like to create a worksheet in order to calculate money. If i get any negative amount then Excel should display the number in 'Red', while if it gives out positive number then it should display the number in 'Green'. Can any body tell me that how can i do it? Does any body knows about it? Kindly provide me the correct solution for the above issue.

[Sam.D]

You can try out the following code:-

Private Sub Worksheet_Change(ByVal Target As Range)
Static KeyCel As String
If StrComp(KeyCel, LCase$(CStr([x10].Value))) = 0 Then Exit Sub
Application.EnableEvents = False
With Range("L23")
.Value = "Of the $" & [x10].Value & " affiliate fee:"
.Font.Color = vbBlack
.Characters(Start:=8, Length:=Len([x10].Value) + 1).Font.Color = [x10].Font.Color
End With
KeyCel = LCase$([x10].Value)
Application.EnableEvents = True
End Sub

[ThoMas321]

If you want to put a color in a particular cell, then you can try out the following code:-

=COUNTIF(AE10,"HD") + COUNTIF(AE10,"H") + COUNTIF(AE10,"T1")+ COUNTIF(AE10,"T2") + COUNTIF(AE10,"T3") + COUNTIF(AE10,"T4")+ COUNTIF(AE10,"T5")+ COUNTIF(AE10,"T6")+ COUNTIF(AE10,"T7")+ COUNTIF(AE10,"T7.5")

[Raine]

If you want, you can even check out the following code:-

Sub Color_Part_of_Cell()
'Print ActiveCell.Characters.Count
With ActiveCell.Characters(2).Font
.Color = RGB(36, 182, 36)
End With

With ActiveCell.Characters(2, 2).Font
.Color = RGB(36, 182, 36)
End With

With ActiveCell.Characters(, 2).Font
.Color = RGB(36, 182, 36)
End With

End Sub