Excel VBA RGB-kleur
RGB kan ook worden aangeduid als rood, groen en blauw, deze functie wordt gebruikt om de numerieke waarde van de kleurwaarde te krijgen, deze functie heeft drie componenten als een benoemd bereik en ze zijn rood, blauw en groen, de andere kleuren worden als de componenten beschouwd van deze drie verschillende kleuren in VBA.
In VBA komt alles neer op de codering van elk stuk. Als u bijvoorbeeld naar een deel van het werkblad wilt verwijzen, kunnen we het RANGE-object gebruiken. Als u de lettertypekleur wilt wijzigen, dan kunnen we gebruik maken van de NAME-eigenschap van het bereik en vervolgens de lettertypenaam schrijven die we nodig hadden, maar stel u een situatie voor waarbij u de kleur van het lettertype of de achtergrondkleur van de cel hiervoor wijzigt. kan gebruik maken van ingebouwde VB-kleuren zoals, vbGreen, vbBlue, vbRed, enz.… Maar we hebben een speciale functie om met verschillende kleuren te spelen, dwz RGB-functie.
Hieronder staat de syntaxis van de RGB-kleurfunctie.
Zoals u hierboven kunt zien, kunnen we drie argumenten opgeven, namelijk Rood, Groen en Blauw. Al deze drie parameters kunnen alleen gehele getallen van 0 tot 255 accepteren, en het resultaat van deze functie is het gegevenstype "Lang".
Verander de kleur van cellen met behulp van de VBA RGB-functie
Voorbeeld 1
We hebben bijvoorbeeld nummers van cel A1 tot A8, zoals weergegeven in de onderstaande afbeelding.
Voor dit celbereik zullen we proberen de lettertypekleur in een willekeurige kleur te veranderen met behulp van de RGB-functie.
Start eerst de macro-procedure.
Code:
Sub RGB_Example1 () End Sub
Eerst moeten we verwijzen naar het celbereik van lettertypen waarvan we de kleur willen wijzigen. In dit geval is ons celbereik A1 tot A8, dus lever hetzelfde door het RANGE- object te gebruiken.
Code:
Sub RGB_Example1 () Bereik ("A1: A8") Einde Sub
Plaats een punt om de IntelliSense-lijst met RANGE-objecten te zien. In de IntelliSense-lijst proberen we de kleur van het lettertype te wijzigen en daarom de eigenschap FONT uit de lijst te kiezen.
Code:
Sub RGB_Example1 () Bereik ("A1: A8"). Font End Sub
Zodra de eigenschap FONT in deze eigenschap is gekozen, proberen we de kleur te veranderen , dus kies de kleureigenschap van de FONT.
Code:
Sub RGB_Example1 () Bereik ("A1: A8"). Font.Color End Sub
Zet gelijkteken en open RGB-functie.
Code:
Sub RGB_Example1 () Bereik ("A1: A8"). Font.Color = RGB (End Sub
Geef willekeurige gehele getallen tussen 0 en 255 voor alle drie de argumenten van de RGB-functie.
Code:
Sub RGB_Example1 () Bereik ("A1: A8"). Font.Color = RGB (300, 300, 300) End Sub
Ok, voer nu de code uit en bekijk het resultaat van de lettertypekleuren van de cellen van A1 tot A8.
Uitgang:
Dus de kleuren van het lettertype veranderden van zwart in een ander. Kleur hangt af van de cijfers die we aan de RGB-functie geven.
Hieronder staan RGB-kleurcodes om enkele van de gangbare kleuren te krijgen.
U kunt gewoon de combinatie van gehele getallen wijzigen van 0 tot 255 om de verschillende soorten kleuren te krijgen.
Voorbeeld 2
Laten we voor hetzelfde celbereik eens kijken hoe we de achtergrondkleur van deze cellen kunnen wijzigen.
Geef eerst het cellenbereik op met behulp van het RANGE- object.
Code:
Sub RGB_Example2 () Bereik ("A1: A8"). Einde Sub
Deze keer veranderen we de achtergrondkleur van de genoemde cellen, dus we hebben nu niets te maken met de eigenschap FONT. Om de achtergrondkleur te veranderen, kies je de eigenschap " Interior " van het RANGE-object.
Code:
Sub RGB_Example2 () Bereik ("A1: A8"). Binnenzijde Sub
Zodra de eigenschap "Interieur" is geselecteerd, plaatst u een punt om de eigenschappen en methoden van deze eigenschap "Interieur" te zien.
Code:
Sub RGB_Example2 () Bereik ("A1: A8"). Interieur. Einde Sub
Omdat we de interieurkleur van de genoemde cellen wijzigen, kiest u de eigenschap " Kleur ".
Code:
Sub RGB_Example2 () Bereik ("A1: A8"). Interior.Color End Sub
Om de interne kleureigenschap van het celbereik (A1 tot A8) in te stellen op het gelijkteken en de RGB-functie te openen.
Code:
Sub RGB_Example2 () Bereik ("A1: A8"). Interior.Color = RGB (End Sub
Voer het willekeurige nummer in zoals u wilt.
Code:
Sub RGB_Example2 () Bereik ("A1: A8"). Interior.Color = RGB (0, 255, 255) End Sub
Voer de code uit en bekijk de achtergrondkleur.
Uitgang:
De achtergrondkleur is veranderd.
Dingen om hier te onthouden
- RGB staat voor rood, groen en blauw.
- Een combinatie van deze drie kleuren geeft verschillende kleuren.
- Al deze drie parameters kunnen alleen gehele getallen tussen 0 en 255 accepteren. Alle nummers daarboven worden gereset naar 255.
