VBA betűszín - A betűszín megváltoztatása a VBA Color tulajdonság használatával

Tartalomjegyzék

Excel VBA betűszín

A VBA Font Color tulajdonság az excel cellák betűszínének megváltoztatására szolgál a vba kód segítségével. A betű színét többféle módon is megváltoztathatjuk a színindex, az RGB funkcióval rendelkező színtulajdonságok használatával.

Amikor egy műszerfalat készítek az excel programban, általában jelentős időt töltenek a cellák, betűtípusok stb. Formázásával. Gyakran úgy érzem magam, mint egy excel kozmetikus, ha megnézem az excel formázásának különböző színeit. A betűszín megváltoztatása az Excel munkalapon könnyű feladat, de amikor az Excelről van szó, ismernie kell a VBA-kód írásmódját a betűszín megváltoztatásához.

A betűszín megváltoztatásához először meg kell határoznunk, melyek azok a cellák, amelyeket meg fogunk változtatni.

Tartomány („A1: A10”)

Ezután ki kell választanunk a FONT tulajdonságot.

Tartomány („A1: A10”). Betűtípus

Akkor mit akarunk kezdeni ezzel a betűtípussal, válassza a Szín lehetőséget?

Tartomány („A1: A10”). Betűtípus. Szín

Ehhez meg kell szerkesztenünk a kódot a betűszín megváltoztatásához. Nehéznek tűnik, nem?

De ne feledd, az elején minden nehéznek tűnik, később megkapod a dolgot.

Hogyan lehet megváltoztatni a betűszínt a VBA használatával?

1. példa - Színindex használata

A Color Index tulajdonság eltér a VBA Color tulajdonságától. Numerikus értékek használatával megváltoztathatjuk a cellák, betűtípusok színét.

A számok 1 és 56 között mozognak, és mindegyik szám különböző színt képvisel. Az alábbiakban felsoroljuk a számokat és azok színeit.

Ok, ezt kipróbálhatom.

Van egy értékem az A1 cellában.

Az A1 cella betűtípusának színét zöldre szeretném változtatni. Az alábbiakban található a kód.

Kód:

Al FontColor_Example1 () Range ("A1"). Font.ColorIndex = 10 End Sub

Ezzel az A1 cella betűtípusának színe zöldre változik.

A CELLS tulajdonságot is használhatjuk a betűtípus színének megváltoztatására.

Kód:

Al FontColor_Example1 () Cellák (1, 1). Font.ColorIndex = 10 End Sub

Így használhatunk 1 és 56 közötti számokat a kívánt szín betűkészletre történő felviteléhez.

2. példa - Színtulajdonság használata

A Színindex színei nagyon korlátozottak, 1-től 56-ig, de a COLOR tulajdonság használatával 8 beépített színt használhatunk: vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .

Ezekhez a színekhez nem kell számot megadnunk. Inkább csak elérhetjük őket a nevük használatával, a fentiek szerint. Az alábbiakban bemutatjuk a 8 szín példakódját.

Kód:

Sub vbBlack_Example () Tartomány ("A1"). Font.Color = vbBlack End Sub

Kód:

Sub vbRed_Example () Tartomány ("A1"). Font.Color = vbRed End Sub

Kód:

Sub vbGreen_Example () Tartomány ("A1"). Font.Color = vbGreen End Sub

Kód:

Sub vbBlue_Example () Tartomány ("A1"). Font.Color = vbBlue End Sub

Kód:

Sub vbYellow_Example () Tartomány ("A1"). Font.Color = vbYellow End Sub

Kód:

Sub vbMagenta_Example () Tartomány ("A1"). Font.Color = vbMagenta End Sub

Kód:

Sub vbCyan_Example () tartomány ("A1"). Font.Color = vbCyan End Sub

Kód:

Sub vbWhite_Example () tartomány ("A1"). Font.Color = vbWhite End Sub

3. példa - Színtulajdonságok használata RGB funkcióval

Mint láttuk, csak 8 beépített szín van, amelyekkel dolgozhatunk. A színek sokféleségéhez azonban az RGB nevű funkciót kell használnunk. A beépített színek mellett a VBA RGB funkció használatával saját színeket is létrehozhatunk.

Nézze meg az RGB funkció szintaxisát.

RGB (piros, zöld, kék)

Az RGB jelentése „piros, zöld és kék”. A színek összeállításához 0 és 255 közötti számokat kell megadnunk minden színhez.

Az alábbiakban bemutatunk néhány példát az Ön számára.

Az alábbiakban bemutatunk néhány makrokód-példát

Kód:

Sub RGB_Példa () Tartomány ("A1"). Font.Color = RGB (0, 0, 0) 'Változtassa meg a betű színét fekete End Sub

Kód:

Sub RGB_Példa () Tartomány ("A1"). Font.Color = RGB (16, 185, 199) 'Betűszín lesz ez a végső al

Kód:

Sub RGB_Példa () Tartomány ("A1"). Font.Color = RGB (106, 15, 19) 'Betűszín lesz ez a végső al

Kód:

Sub RGB_Példa () Tartomány ("A1"). Font.Color = RGB (216, 55, 19) 'Betűszín lesz ez a végső al

érdekes cikkek...