VBA RGB

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 het coderen van elk stuk, als je bijvoorbeeld naar een deel van het werkblad wilt verwijzen, kunnen we het RANGE-object gebruiken, als je de lettertypekleur wilt wijzigen, kunnen we gebruik maken van de eigenschap NAME van het bereik en schrijf dan de lettertypenaam die we nodig hadden, maar stel je een situatie voor waarbij je de kleur van het lettertype of de achtergrondkleur van de cel verandert, hiervoor kunnen we gebruik maken van ingebouwde VB-kleuren zoals vbGreen, vbBlue, vbRed, enz ... Maar we hebben een speciale functie om te spelen met verschillende kleuren, 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

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

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 geef hetzelfde op 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, uit de IntelliSense-lijst proberen we de kleur van het lettertype te veranderen, en dus kies de eigenschap FONT uit de lijst.

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 de eigenschap " Interieur " 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.