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 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?
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 wijzigen.
Getallen variëren van 1 tot 56, en elk getal 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
Zo 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. In plaats daarvan kunnen we ze gewoon openen door hun naam te gebruiken, zoals hierboven weergegeven. Hieronder ziet u 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 slechts 8 ingebouwde kleuren om mee te werken. Maar om een grote verscheidenheid aan kleuren te hebben, moeten we de functie RGB gebruiken. Afgezien van ingebouwde kleuren, kunnen we onze eigen kleuren creëren door de VBA RGB-functie te gebruiken.
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 cijfers 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
