Kolor czcionki Excel VBA
Właściwość Kolor czcionki VBA służy do zmiany koloru czcionki komórek programu Excel za pomocą kodu VBA . Możemy zmieniać kolor czcionki na wiele sposobów wykorzystując indeks kolorów, właściwość koloru z funkcją RGB.
Kiedy przygotowuję dashboard w Excelu, zwykle spędzam dużo czasu na formatowaniu komórek, czcionek itp. Często czuję się jak kosmetyczka excel, patrząc na różne kolory formatowania Excela. Zmiana koloru czcionki w arkuszu programu Excel jest łatwym zadaniem, ale jeśli chodzi o Excel, powinieneś znać sposoby pisania kodu VBA, aby zmienić kolor czcionki.
Aby zmienić kolor czcionki, najpierw musimy określić, jakie komórki zamierzamy zmienić.
Zakres („A1: A10”)
Następnie musimy wybrać właściwość FONT.
Zakres („A1: A10”). Czcionka
W takim razie co chcemy zrobić z tą czcionką, więc wybierz Kolor?
Zakres („A1: A10”). Font.Color
W ten sposób musimy skonstruować kod, aby zmienić kolor czcionki. Wygląda na trudne, prawda?
Pamiętaj jednak, że na początku wszystko wydaje się trudne, później to zrozumiesz.
Jak zmienić kolor czcionki za pomocą VBA?
Przykład 1 - Korzystanie z indeksu kolorów
Właściwość Color Index różni się od właściwości Color w języku VBA. Używając wartości liczbowych, możemy zmienić kolor komórek, czcionki.
Liczby mieszczą się w zakresie od 1 do 56, a każda liczba reprezentuje inny kolor. Poniżej znajduje się lista liczb i ich kolorów.
Ok, przetestujmy to.
Mam wartość w komórce A1.
Chcę zmienić kolor czcionki komórki A1 na zielony. Poniżej znajduje się kod.
Kod:
Sub FontColor_Example1 () Range ("A1"). Font.ColorIndex = 10 End Sub
Spowoduje to zmianę koloru czcionki komórki A1 na zielony.
Możemy również użyć właściwości CELLS, aby zmienić kolor czcionki.
Kod:
Sub FontColor_Example1 () Cells (1, 1) .Font.ColorIndex = 10 End Sub
W ten sposób możemy użyć liczb od 1 do 56, aby nadać czcionce żądany kolor.
Przykład 2 - użycie właściwości koloru
Color Index ma bardzo ograniczone kolory od 1 do 56, ale używając właściwości COLOR, możemy użyć 8 wbudowanych kolorów vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .
W przypadku tych kolorów nie musimy podawać żadnych liczb. Raczej możemy po prostu uzyskać do nich dostęp, używając ich nazwy, jak pokazano powyżej. Poniżej znajduje się przykładowy kod dla wszystkich 8 kolorów.
Kod:
Sub vbBlack_Example () Range ("A1"). Font.Color = vbBlack End Sub
Kod:
Sub vbRed_Example () Range ("A1"). Font.Color = vbRed End Sub
Kod:
Sub vbGreen_Example () Range ("A1"). Font.Color = vbGreen End Sub
Kod:
Sub vbBlue_Example () Range ("A1"). Font.Color = vbBlue End Sub
Kod:
Sub vbYellow_Example () Range ("A1"). Font.Color = vbYellow End Sub
Kod:
Sub vbMagenta_Example () Range ("A1"). Font.Color = vbMagenta End Sub
Kod:
Sub vbCyan_Example () Range ("A1"). Font.Color = vbCyan End Sub
Kod:
Sub vbWhite_Example () Range ("A1"). Font.Color = vbWhite End Sub
Przykład # 3 - Używanie właściwości koloru z funkcją RGB
Jak widzieliśmy, mamy tylko 8 wbudowanych kolorów do pracy. Ale aby mieć szeroką gamę kolorów, musimy użyć funkcji o nazwie RGB. Oprócz wbudowanych kolorów możemy tworzyć własne kolory za pomocą funkcji VBA RGB.
Spójrz na składnię funkcji RGB.
RGB (czerwony, zielony, niebieski)
RGB oznacza „czerwony, zielony i niebieski”. Aby skonstruować kolory, musimy podać liczby od 0 do 255 dla każdego koloru.
Poniżej znajduje się kilka przykładów dla Ciebie.
Poniżej znajduje się kilka przykładów kodu makr
Kod:
Sub RGB_Example () Range ("A1"). Font.Color = RGB (0, 0, 0) 'Zmień kolor czcionki na czarny End Sub
Kod:
Sub RGB_Example () Zakres ("A1"). Font.Color = RGB (16, 185, 199) 'Kolor czcionki będzie oznaczony jako End Sub
Kod:
Sub RGB_Example () Zakres ("A1"). Font.Color = RGB (106, 15, 19) 'Kolor czcionki będzie oznaczony jako End Sub
Kod:
Sub RGB_Example () Zakres ("A1"). Font.Color = RGB (216, 55, 19) 'Kolor czcionki będzie oznaczony jako End Sub
