Aby dane w komórkach były czytelniejsze można zmienić kolor tekstu w komórce, lub kolor tła komórki. Można napisać makro, które sprawdza, czy wartość w danej komórce spełnia określone kryteria i w zależności od tego zmienia kolor komórki. Aby zmienić kolor tekstu w komórce należy przypisać odpowiednia wartość (kod koloru) właściwości Font.Color obiektu Cells. Aby zmienić kolor tła komórki należy przypisać kod koloru właściwości Interior.Color obiektu Cells.
Kod koloru najlepiej jest uzyskać z funkcji o nazwie RGB. Model przestrzeni barw RGB składa się z trzech barw: czerwonej, zielonej i niebieskiej (R-Red, G-Green, B-Blue). Każdy z kolorów może występować w różnym natężeniu (od 0 do 255, gdzie 0 to brak składowej a 255 to jej maksymalna wartość). Poniższa Tabela przedstawia kilka najpopularniejszych kolorów z podanymi odpowiadającymi im proporcjami natężenia barw R, G i B
Kolor | Składowa czerwona ( R) | Składowa zielona ( G ) | Składowa niebieska ( B ) |
Czarny | 0 | 0 | 0 |
Niebieski | 0 | 0 | 255 |
Zielony | 0 | 255 | 0 |
Cyjan | 0 | 255 | 255 |
Czerwony | 255 | 0 | 0 |
Magenta | 255 | 0 | 255 |
Żółty | 255 | 255 | 0 |
Biały | 255 | 255 | 255 |
Poniższy Listing przedstawia prosty przykład zmiany koloru tła i tekstu pięciu pierwszych komórek w kolumnie A.
Sub Kolory()
'Czerwone tło
Cells(1, 1).Interior.Color = RGB(255, 0, 0)
'Zielone tło
Cells(2, 1).Interior.Color = RGB(0, 255, 0)
'Niebieskie tło
Cells(3, 1).Interior.Color = RGB(0, 0, 255)
'Żółte tło
Cells(4, 1).Interior.Color = RGB(255, 255, 0)
'Biały tekst na czarnym tle
Cells(5, 1).Interior.Color = RGB(0, 0, 0)
Cells(5, 1).Font.Color = RGB(255, 255, 255)
Cells(5, 1).Formula = "Tekst"
End Sub