VBA RGB | Estableix el color de la cel·la interior mitjançant la funció RGB

Color VBA RGB d'Excel

RGB també es pot anomenar vermell verd i blau, aquesta funció s'utilitza per obtenir el valor numèric del valor del color, aquesta funció té tres components com a rang anomenat i són vermell, blau i verd els altres colors es consideren els components de aquests tres colors diferents a VBA.

A VBA, tot es resumeix en la codificació de totes i cadascuna de les peces, per exemple, si voleu fer referència a alguna porció del full de treball, podem utilitzar l'objecte RANGE, si voleu canviar el color de la font, podem fer ús de la propietat NAME del rang, escriviu el nom de la font que necessitem, però imaginem una situació de canviar el color de la font o el color de fons de la cel·la per a això, podem fer ús de colors VB integrats com, vbGreen, vbBlue, vbRed, etc ... Però tenim una funció dedicada per jugar amb diferents colors, és a dir, la funció RGB.

A continuació es mostra la sintaxi de la funció de color RGB.

Com podeu veure més amunt, podem proporcionar tres arguments, és a dir, el vermell, el verd i el blau. Tots aquests tres paràmetres només poden acceptar nombres enters que oscil·len entre 0 i 255 i el resultat d'aquesta funció serà de tipus de dades "llarg".

Canvieu el color de les cel·les mitjançant la funció VBA RGB

Podeu descarregar aquesta plantilla Excel VBA RGB aquí: plantilla Excel VBA RGB

Exemple 1

Per exemple, tenim números de la cel·la A1 a l'A8 com es mostra a la imatge següent.

Per a aquest rang de cel·les, intentarem canviar el color de la font a un color aleatori mitjançant la funció RGB.

Inicieu primer el procediment de macro.

Codi:

 Sub RGB_Exemple1 () Final Sub 

En primer lloc, hem de fer referència al rang de cel·les de tipus de lletra que volem canviar el color, en aquest cas, el nostre rang de cel·les és A1 a A8, de manera que proporcioneu el mateix utilitzant GAMA objecte.

Codi:

 Sub RGB_Exemple1 () Interval ("A1: A8") Final Sub 

Poseu punt per veure la llista IntelliSense de l'objecte RANGE, a la llista IntelliSense intentem canviar el color de la font i, per tant, trieu FONT propietat de la llista.

Codi:

 Sub RGB_Exemple1 () Rang ("A1: A8"). Final del tipus de lletra Sub 

Un cop escollida la propietat FONT en aquesta propietat, intentem canviar la color, per tant, trieu la propietat del color de la FONT.

Codi:

 Sub RGB_Exemple1 () Rang ("A1: A8"). Font.Color Final Sub 

Posa un signe igual i obre la funció RGB.

Codi:

 Sub RGB_Example1 () Range ("A1: A8"). Font.Color = RGB (End Sub 

Doneu nombres enters aleatoris que oscil·len entre 0 i 255 per a tots els tres arguments de la funció RGB.

Codi:

 Sub RGB_Example1 () Range ("A1: A8"). Font.Color = RGB (300, 300, 300) End Sub 

D’acord, ara executeu el codi i vegeu el resultat dels colors de la font de les cel·les d’A1 a A8.

Sortida:

Per tant, els colors de la font van passar del negre a uns altres. El color depèn dels números que donem a la funció RGB.

A continuació es mostren els codis de colors RGB per obtenir alguns dels colors més comuns.

Només podeu canviar la combinació de nombres enters de 0 a 255 per obtenir els diferents tipus de colors.

Exemple 2

Per al mateix rang de cel·les, vegem com canviar el color de fons d’aquestes cel·les.

En primer lloc, proporcioneu el rang de cel·les mitjançant el fitxer GAMA objecte.

Codi:

 Sub RGB_Example2 () Range ("A1: A8"). Finalitzar sub 

Aquesta vegada estem canviant el color de fons de les cel·les esmentades, de manera que ara no tenim res a veure amb la propietat FONT per canviar el color de fons, trieu "Interior”Propietat de l’objecte RANGE.

Codi:

 Sub RGB_Example2 () Interval ("A1: A8"). Interior Sub Sub 

Un cop seleccionada la propietat "Interior", poseu un punt per veure les propietats i els mètodes d'aquesta propietat "Interior".

Codi:

 Sub RGB_Example2 () Range ("A1: A8"). Interior. Finalitzar sub 

Com que estem canviant el color interior de les cel·les esmentades, trieu "Color" propietat.

Codi:

 Sub RGB_Example2 () Range ("A1: A8"). Interior.Color End Sub 

Per definir la propietat de color interior de l’interval de cel·les (A1 a A8) el signe igual i obrir la funció RGB.

Codi:

 Sub RGB_Example2 () Range ("A1: A8"). Interior.Color = RGB (End Sub 

Introduïu el número aleatori com vulgueu.

Codi:

 Sub RGB_Example2 () Range ("A1: A8"). Interior.Color = RGB (0, 255, 255) End Sub 

Executeu el codi i vegeu el color de fons.

Sortida:

S'ha canviat el color de fons.

Coses que cal recordar aquí

  • RGB significa vermell, verd i blau.
  • Una combinació d’aquests tres colors donarà diferents colors.
  • Tots aquests tres paràmetres només poden acceptar valors enters entre 0 i 255. Qualsevol número superior a aquest es restablirà a 255.