Jak zmienić kolor czcionki w vba (3 metody)

Aby zmienić kolor czcionki w programie Excel za pomocą języka VBA, możesz użyć dowolnej z następujących metod:

Metoda 1: Zmień kolor czcionki za pomocą nazw kolorów VBA

 SubChangeColor ()
Range(" A1 ").Font.Color = vbRed
End Sub

To konkretne makro zmieni kolor czcionki w komórce A1 na czerwony.

Metoda 2: Zmień kolor czcionki za pomocą wartości RGB

 SubChangeColor ()
Range(" A1 ").Font.Color = RGB(255,0,0)
End Sub

To konkretne makro zmieni kolor czcionki w komórce A1 na kolor odpowiadający wartościom RGB (czerwony, zielony, niebieski) (255,0,0), który jest czerwony.

Metoda 3: Zmień kolor czcionki za pomocą szesnastkowych kodów kolorów

 SubChangeColor ()
Range(" A1 ").Font.Color = &H0000FF
End Sub

To konkretne makro zmieni kolor czcionki w komórce A1 na kolor odpowiadający szesnastkowemu kodowi koloru #FF0000.

Uwaga nr 1: Musisz wpisać &H przed szesnastkowym kodem koloru, którego chcesz użyć, aby VBA rozpoznał go jako szesnastkowy kod koloru.

Uwaga nr 2: Szesnastkowe kody kolorów są zwykle reprezentowane przez sześć znaków, z których pierwsze dwa reprezentują kod koloru czerwonego, dwa środkowe reprezentują kod koloru zielonego, a dwa ostatnie reprezentują kod koloru niebieskiego.

Jednak Excel zamienia dwie pierwsze wartości na dwie ostatnie. Zatem szesnastkowy kod koloru koloru czerwonego to FF0000, ale zamiast tego należy wpisać 0000FF.

Poniższe przykłady pokazują, jak zastosować każdą metodę w praktyce.

Przykład 1: Zmień kolor czcionki za pomocą nazw kolorów VBA

Załóżmy, że mamy tekst w komórce A1 , którego kolor czcionki jest obecnie czarny:

Możemy utworzyć następujące makro zmieniające kolor czcionki w komórce A1 na czerwony:

 SubChangeColor ()
Range(" A1 ").Font.Color = vbRed
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Zauważ, że kolor czcionki w komórce A1 jest teraz czerwony.

Przykład 2: Zmień kolor czcionki za pomocą wartości RGB

Załóżmy, że mamy ciągi tekstowe z zakresu A1:A5 , których czcionka jest obecnie czarna:

Możemy utworzyć następujące makro zmieniające kolor czcionki w komórkach A1:A5 na czerwony:

 SubChangeColor ()
Range(" A1:A5 ").Font.Color = RGB(255,0,0)
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Zauważ, że kolor czcionki w każdej komórce w zakresie A1:A5 jest teraz czerwony.

Przykład 3: Zmień kolor czcionki za pomocą szesnastkowych kodów kolorów

Załóżmy jeszcze raz, że mamy ciągi tekstowe z zakresu A1:A5 , których czcionka jest obecnie czarna:

Możemy utworzyć następujące makro zmieniające kolor czcionki w komórkach A1:A5 na czerwony:

 SubChangeColor ()
Range(" A1:A5 ").Font.Color = &H0000FF
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Zauważ, że kolor czcionki w każdej komórce w zakresie A1:A5 jest teraz czerwony.

Uwaga : Pełną dokumentację właściwości VBA Font.Color można znaleźć tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak usunąć spacje z ciągu znaków
VBA: Jak zamienić znaki w ciągu znaków
VBA: Jak wstawić linię z formatowaniem