VBA-lettertypekleur

Excel VBA-lettertypekleur

De eigenschap VBA-lettertypekleur wordt gebruikt om de lettertypekleur van Excel-cellen te wijzigen met behulp van vba-code. We kunnen de kleur van het lettertype op verschillende manieren wijzigen met behulp van kleurindex, kleureigenschap met RGB-functie.

Wanneer ik een dashboard in Excel voorbereid, besteed ik meestal een aanzienlijke hoeveelheid tijd aan het opmaken van cellen, lettertypen, enz. Vaak voel ik me als een excel-schoonheidsspecialiste door naar de verschillende kleuren van de Excel-opmaak te kijken. Het wijzigen van de lettertypekleur in het Excel-werkblad is een gemakkelijke klus, maar als het op Excel aankomt, moet u de manieren kennen om VBA-code te schrijven om de lettertypekleur te wijzigen.

Om de lettertypekleur te wijzigen, moeten we eerst bepalen wat de cellen zijn die we gaan wijzigen.

Bereik ("A1: A10")

Vervolgens moeten we de eigenschap FONT selecteren.

Bereik ("A1: A10") Lettertype

Wat willen we dan doen met dit lettertype, dus selecteer Kleur?

Bereik ("A1: A10"). Font.Color

Op deze manier moeten we de code construeren om de lettertypekleur te wijzigen. Het ziet er moeilijk uit, nietwaar?

Maar onthoud dat alles in het begin moeilijk lijkt, later zul je het onder de knie krijgen.

Hoe verander ik de letterkleur met VBA?

U kunt deze VBA-lettertypekleur Excel-sjabloon hier downloaden - VBA-lettertypekleur Excel-sjabloon

Voorbeeld # 1 - Kleurindex gebruiken

De eigenschap Color Index is anders dan de eigenschap Color in VBA. Door numerieke waarden te gebruiken, kunnen we de kleur van cellen, lettertypen, veranderen.

De nummers variëren van 1 tot 56 en elk nummer staat voor verschillende kleuren. Hieronder vindt u de lijst met nummers en hun kleuren.

Oké, laten we dit testen.

Ik heb een waarde in cel A1.

Ik wil de kleur van het A1-lettertype van de cel wijzigen in groen. Hieronder staat de code.

Code:

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

Dit zal de kleur van het A1-lettertype van de cel veranderen in groen.

We kunnen ook de eigenschap CELLS gebruiken om de kleur van het lettertype te wijzigen.

Code:

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

Op deze manier kunnen we cijfers van 1 tot 56 gebruiken om de gewenste kleur op het lettertype aan te brengen.

Voorbeeld # 2 - Kleureigenschap gebruiken

Color Index heeft zeer beperkte kleuren van 1 tot 56, maar door de eigenschap COLOR te gebruiken, kunnen we 8 ingebouwde kleuren gebruiken vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .

Voor deze kleuren hoeven we geen nummers op te geven, maar kunnen we ze gewoon openen door hun naam te gebruiken, zoals hierboven weergegeven. Hieronder staat de voorbeeldcode voor alle 8 kleuren.

Code:

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

Code:

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

Code:

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

Code:

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

Code:

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

Code:

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

Code:

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

Code:

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

Voorbeeld # 3 - Kleureigenschap gebruiken met RGB-functie

Zoals we hebben gezien, hebben we maar 8 ingebouwde kleuren om mee te werken. Maar om een ​​grote verscheidenheid aan kleuren te hebben, moeten we de functie RGB gebruiken, behalve de ingebouwde kleuren kunnen we onze eigen kleuren creëren met behulp van de vba RGB-functie.

Kijk naar de syntaxis van de RGB-functie.

RGB (rood, groen, blauw)

RGB staat voor "Rood, Groen en Blauw". Om kleuren samen te stellen, moeten we voor elke kleur getallen van 0 tot 255 opgeven.

Hieronder staan ​​een paar voorbeelden voor je.

Hieronder staan ​​enkele voorbeelden van macrocodes

Code:

 Sub RGB_Example () Bereik ("A1"). Font.Color = RGB (0, 0, 0) 'Verander de lettertypekleur in zwart End Sub 

Code:

 Sub RGB_Example () Bereik ("A1"). Font.Color = RGB (16, 185, 199) 'Lettertypekleur is deze End Sub 

Code:

 Sub RGB_Example () Bereik ("A1"). Font.Color = RGB (106, 15, 19) 'Lettertypekleur wordt deze End Sub 

Code:

 Sub RGB_Example () Bereik ("A1"). Font.Color = RGB (216, 55, 19) 'Lettertypekleur wordt deze End Sub