VBA Boja fonta - Promijenite boju fonta pomoću VBA svojstva boje

Excel VBA Boja fonta

Svojstvo VBA Boja fonta koristi se za promjenu boje fonta Excel stanica pomoću vba koda. Možemo promijeniti boju fonta na više načina koristeći indeks boja, svojstvo boje s RGB funkcijom.

Kad pripremam nadzornu ploču u Excelu, obično provodim znatnu količinu vremena formatirajući stanice, fontove itd. Često se osjećam kao excel kozmetičar gledajući razne boje excel oblikovanja. Promjena boje fonta u Excelovom radnom listu lak je posao, ali kada je Excel u pitanju, trebali biste znati načine pisanja VBA koda za promjenu boje fonta.

Da bismo promijenili boju fonta, prvo moramo identificirati koje ćemo stanice promijeniti.

Raspon ("A1: A10")

Zatim moramo odabrati svojstvo FONT.

Raspon ("A1: A10"). Font

Što onda želimo raditi s ovim fontom, pa odaberite Boja?

Raspon ("A1: A10"). Font.Boja

Ovako, moramo konstruirati kod za promjenu boje fonta. Izgleda teško, zar ne?

Ali upamtite, čini se da je na početku sve teško, kasnije ćete to shvatiti.

Kako promijeniti boju fonta pomoću VBA?

Primjer # 1 - Korištenje indeksa boja

Svojstvo Indeks boja razlikuje se od svojstva Boja u VBA. Korištenjem numeričkih vrijednosti možemo promijeniti boju stanica, fontova.

Brojevi se kreću od 1 do 56, a svaki broj predstavlja različite boje. Ispod je popis brojeva i njihovih boja.

Ok, hajde da testiramo ovo.

Imam vrijednost u ćeliji A1.

Želim promijeniti boju fonta A1 u zelenu. Ispod je kod.

Kodirati:

PodfontColor_Example1 () Raspon ("A1"). Font.ColorIndex = 10 Krajnji sub

Ovo će promijeniti boju fonta ćelije A1 u zelenu.

Svojstvo CELLS također možemo koristiti za promjenu boje fonta.

Kodirati:

Sub FontColor_Example1 () Ćelije (1, 1) .Font.ColorIndex = 10 Kraj Sub

Ovako, pomoću brojeva od 1 do 56 možemo primijeniti željenu boju na font.

Primjer # 2 - Korištenje svojstva boje

Indeks boja ima vrlo ograničene boje od 1 do 56, ali pomoću svojstva COLOR možemo koristiti 8 ugrađenih boja vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .

Za ove boje ne trebamo navoditi nikakve brojeve. Umjesto da im možemo samo pristupiti koristeći njihovo ime kao što je gore prikazano. Ispod je primjer koda za svih 8 boja.

Kodirati:

Sub vbBlack_Example () Raspon ("A1"). Font.Color = vbBlack End Sub

Kodirati:

Sub vbRed_Example () Raspon ("A1"). Font.Color = vbRed Kraj Sub

Kodirati:

Sub vbGreen_Example () Raspon ("A1"). Font.Color = vbGreen End Sub

Kodirati:

Sub vbBlue_Example () Raspon ("A1"). Font.Color = vbBlue Kraj Sub

Kodirati:

Sub vbYellow_Example () Raspon ("A1"). Font.Color = vbYellow End Sub

Kodirati:

Sub vbMagenta_Example () Raspon ("A1"). Font.Color = vbMagenta Kraj Sub

Kodirati:

Sub vbCyan_Example () Raspon ("A1"). Font.Color = vbCyan Kraj Sub

Kodirati:

Sub vbWhite_Example () Raspon ("A1"). Font.Color = vbWhite Kraj Sub

Primjer # 3 - Korištenje svojstva boje s RGB funkcijom

Kao što smo vidjeli, imamo samo 8 ugrađenih boja za rad. Ali da bismo imali široku paletu boja, trebamo koristiti funkciju koja se naziva RGB. Osim ugrađenih boja, vlastite boje možemo stvoriti i pomoću VBA RGB funkcije.

Pogledajte sintaksu RGB funkcije.

RGB (crvena, zelena, plava)

RGB je skraćenica od "Crvena, Zelena i Plava". Da bismo konstruirali boje, trebamo navesti brojeve od 0 do 255 za svaku boju.

Slijedi nekoliko primjera za vas.

Ispod su neki primjeri makro kodova

Kodirati:

Sub RGB_Example () Raspon ("A1"). Font.Color = RGB (0, 0, 0) 'Promijenite boju fonta u crnu Kraj Sub

Kodirati:

Sub RGB_Example () Raspon ("A1"). Font.Color = RGB (16, 185, 199) 'Boja fonta bit će ovaj Kraj Sub

Kodirati:

Sub RGB_Example () Raspon ("A1"). Font.Color = RGB (106, 15, 19) 'Boja fonta bit će ovaj Kraj Sub

Kodirati:

Sub RGB_Example () Raspon ("A1"). Font.Color = RGB (216, 55, 19) 'Boja fonta bit će ovaj Kraj Sub

Zanimljivi članci...