Barva pisave VBA - Spremenite barvo pisave z uporabo lastnosti barve VBA

Excel VBA Barva pisave

Lastnost VBA Font Color se uporablja za spreminjanje barve pisave celic excel s pomočjo kode vba. Barvo pisave lahko spremenimo na več načinov z uporabo barvnega indeksa, barvne lastnosti s funkcijo RGB.

Ko pripravim armaturno ploščo v Excelu, običajno porabim precej časa za formatiranje celic, pisav itd. Pogosto se počutim kot excel kozmetičarka, če pogledam različne barve formatiranja excel. Spreminjanje barve pisave v Excelovem delovnem listu je enostavno delo, toda ko gre za Excel, morate poznati načine pisanja kode VBA za spreminjanje barve pisave.

Najprej moramo spremeniti barvo pisave, katere celice bomo spremenili.

Doseg (“A1: A10”)

Nato moramo izbrati lastnost FONT.

Obseg (“A1: A10”). Pisava

Kaj želimo potem storiti s to pisavo, zato izberite Barva?

Obseg (“A1: A10”). Font.Color

Takole moramo zgraditi kodo, da spremenimo barvo pisave. Videti je težko, kajne?

Ampak ne pozabite, na začetku se zdi, da je vse težko, kasneje boste to razumeli.

Kako spremeniti barvo pisave z uporabo VBA?

Primer # 1 - Uporaba barvnega indeksa

Lastnost barvnega indeksa se razlikuje od lastnosti barv v VBA. Z uporabo numeričnih vrednosti lahko spremenimo barvo celic, pisav.

Številke se gibljejo od 1 do 56 in vsaka številka predstavlja različne barve. Spodaj je seznam številk in njihovih barv.

Ok, preizkusimo to.

V celici A1 imam vrednost.

Želim spremeniti barvo pisave celice A1 v zeleno. Spodaj je koda.

Koda:

Sub FontColor_Example1 () Obseg ("A1"). Font.ColorIndex = 10 Končni pod

To bo spremenilo barvo pisave celice A1 v zeleno.

Lastnost CELLS lahko uporabimo tudi za spreminjanje barve pisave.

Koda:

Sub FontColor_Example1 () Celice (1, 1). Font.ColorIndex = 10 End Sub

Tako lahko tudi s številkami od 1 do 56 nanesemo želeno barvo na pisavo.

2. primer - Uporaba lastnosti barve

Barvni indeks ima zelo omejene barve od 1 do 56, vendar z uporabo lastnosti COLOR lahko uporabimo 8 vgrajenih barv vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .

Za te barve nam ni treba navesti nobene številke. Do njih lahko preprosto dostopamo z uporabo njihovega imena, kot je prikazano zgoraj. Spodaj je primer kode za vseh 8 barv.

Koda:

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

Koda:

Sub vbRed_Example () Obseg ("A1"). Font.Color = vbRed End Sub

Koda:

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

Koda:

Sub vbBlue_Example () Obseg ("A1"). Font.Color = vbBlue End Sub

Koda:

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

Koda:

Sub vbMagenta_Example () Obseg ("A1"). Font.Color = vbMagenta End Sub

Koda:

Sub vbCyan_Example () Obseg ("A1"). Font.Color = vbCyan End Sub

Koda:

Sub vbWhite_Example () Obseg ("A1"). Font.Color = vbWhite End Sub

Primer # 3 - Uporaba lastnosti barv s funkcijo RGB

Kot smo videli, imamo samo 8 vgrajenih barv za delo. Da pa imamo najrazličnejše barve, moramo uporabiti funkcijo, imenovano RGB. Poleg vgrajenih barv lahko svoje barve ustvarimo tudi s funkcijo VBA RGB.

Poglejte sintakso funkcije RGB.

RGB (rdeča, zelena, modra)

RGB pomeni „rdeča, zelena in modra“. Za izdelavo barv moramo navesti številke od 0 do 255 za vsako barvo.

Spodaj je nekaj primerov za vas.

Spodaj je nekaj primerov makro kode

Koda:

Sub RGB_Example () Obseg ("A1"). Font.Color = RGB (0, 0, 0) 'Spremeni barvo pisave v črno End Sub

Koda:

Sub RGB_Example () Obseg ("A1"). Font.Color = RGB (16, 185, 199) 'Barva pisave bo ta Konec Sub

Koda:

Sub RGB_Example () Obseg ("A1"). Font.Color = RGB (106, 15, 19) 'Barva pisave bo ta End Sub

Koda:

Sub RGB_Example () Obseg ("A1"). Font.Color = RGB (216, 55, 19) 'Barva pisave bo ta Konec Sub

Zanimive Članki...