Jak w Excel zmienić kolor tekstu komórki?

Aby zmienić kolor czcionki w Excel odwołujemy się do zmiennej Cells.Font.Color i przypisujemy jej wartość koloru. Najłatwiej posłużyć się zdefiniowanymi stałymi koloru np.: rgbBlue, rgbRed itp:
Cells(12, 1).Font.Color = rgbBlue
Powyższy kod zmieni kolor czcionki w komórce A12 na niebieski.

Wszystkie stałe koloru rozpoczynają się od przedrostka rgb.. Poniżej zamieszczam pełną listę stałych koloru:


Oczywiście, możemy też sami zdefiniować dowolny kolor tekstu za pomocą funkcji RGB(). W jej parametrach podajemy nasycenie poszczególnych składników kolorów: czerwonego (R), zielonego (G) i niebieskiego (B). Podawane są wartości nasycenia koloru w zakresie 0-255 gdzie 255 oznacza kolor pełny.
Dla przykładu:
RGB(0,0,0) - kolor czarny
RGB(255,0,0) - kolor czerwony
RGB(0,255,0) - kolor zielony
RGB(0,0,255) - kolor niebieski
RGB(255,255,255) - kolor biały
Wypróbujmy poniższy kod:
Public Sub Zmien_kolory()
Dim i, j, R, G, B As Integer

For i = 1 To 10
For j = 1 To 10
R = 255 - (i * 25)
G = i * 25
B = j * 25
Cells(i, j).Value = "ABC"
Cells(i, j).Font.Color = RGB(R, G, B)
Next
Next
End Sub
Wynikiem będzie próbka możliwości Excel w zakresie kolorowania tekstu: