Colore dei caratteri (font)

Questa routine simile alla precedente, consente di ottenere un colore carattere diverso per ogni variabile impostata, in modo da evidenziare, appunto con colore diverso, lettere, numeri, parole o frasi. Come la precedente potrà essere impostata con valori preimpostati nel codice, o assegnati a variabili inserite in opportune celle. La variante principale rispetto alla precedente, è che dovrà essere inserita nell'evento SelectionChange del foglio di lavoro. Supponiamo quindi di avere delle lettere che vogliamo evidenziare con colori diversi, questa è la routine: (in verde i commenti)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CL As Object
For Each CL In Range("A1:F100")    'per ogni cella in A1:F100
If CL.Value = "A" Then        'se il valore della cella è uguale ad A
CL.Font.ColorIndex = 3       'mi metti il colore del carattere uguale a rosso
ElseIf CL.Value = "B" Then   'se invece il valore è uguale a B ecc.ecc
CL.Font.ColorIndex = 4
ElseIf CL.Value = "C" Then
CL.Font.ColorIndex = 8
ElseIf CL.Value = "D" Then
CL.Font.ColorIndex = 9
ElseIf CL.Value = "E" Then
CL.Font.ColorIndex = 5
ElseIf CL.Value = "F" Then
CL.Font.ColorIndex = 7
End If
Next
End Sub

Appena dopo aver scritto la lettera e confermato con "invio", si attiva la routine e se la lettera corrisponderà ad una di quelle riportate nelle istruzioni, si colorerà con il colore scelto. In questa sezione, al paragrafo "Colori e Colorindex" potrete trovare la tabella indice/colori.