[Spirosgr]

Έστω στο φύλλο 1, στην στήλη C, υπάρχουν συμβολοσειρές, με την μορφή:
ΝΝΗΗΙΝΙΝΝΝΗ
ΝΝΗΗΙΝΙΝΝΝΗ
ΝΝΙΙΙΙΗΗΝΝ
ΗΗΗΗΙΙΗΗΝΝ

Ζητούμενο:
Όπου Ν = πράσινο
Όπου Η = κόκκινο
Όπου Ι = μπλε

Πάμε στο συμβάν Change φύλλου και αντιγράφουμε τον πιο κάτω κώδικα:

Const cGREEN As String = "Ν"
Const cRED As String = "Η"
Const cBLUE As String = "Ι"
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer, l As Integer
    If Target.Rows.Count > 1 Then Exit Sub
    If Target.Columns.Count > 1 Then Exit Sub
    l = Len(Target)
    If Intersect(Target, Range("c:c")) Is Nothing Then
        Exit Sub
    Else
        For i = 1 To l
            If Target.Characters(Start:=i, Length:=1).Text = cRED Then
                Target.Characters(Start:=i, Length:=1).Font.Color = vbRed
                
                ElseIf Target.Characters(Start:=i, Length:=1).Text = cGREEN Then
                Target.Characters(Start:=i, Length:=1).Font.Color = vbGreen
                
                ElseIf Target.Characters(Start:=i, Length:=1).Text = cBLUE Then
                Target.Characters(Start:=i, Length:=1).Font.Color = vbBlue
            End If
        Next i
    End If
End Sub

Κάθε φορά που, θα επιλέγουμε ένα κελί της C για να γράψουμε κάποιο αποτέλεσμα πχ Η
θα χρωματίζονται οι χαρακτήρες της συμβολοσειράς.

Σημείωση:
Αλλάξτε στον κώδικα, στην γραμμή:
If Intersect(Target, Range("c:c")) Is Nothing Then
την δική σας στήλη που θα έχετε τις συμβολοσειρές.