VBA RGB | Setați culoarea celulei interioare utilizând funcția RGB

Excel VBA RGB Color

RGB poate fi denumit și roșu verde și albastru, această funcție este utilizată pentru a obține valoarea numerică a valorii culorii, această funcție are trei componente ca o gamă denumită și sunt roșu, albastru și verde, celelalte culori sunt considerate componente dintre aceste trei culori diferite în VBA.

În VBA totul se reduce la codificarea fiecărei piese, de exemplu, dacă doriți să faceți referire la o porțiune a foii de lucru, atunci putem folosi obiectul RANGE, dacă doriți să schimbați culoarea fontului, putem folosi proprietatea NAME din gama, apoi scrieți numele fontului de care aveam nevoie, dar imaginați-vă o situație de schimbare a culorii fontului sau a culorii de fundal a celulei pentru aceasta, putem folosi culorile VB încorporate, cum ar fi, vbGreen, vbBlue, vbRed, etc ... Dar avem o funcție dedicată pentru a ne juca cu diferite culori, adică funcția RGB.

Mai jos este sintaxa funcției de culoare RGB.

După cum puteți vedea mai sus, putem furniza trei argumente, adică Roșu, Verde și Albastru. Toți acești trei parametri pot accepta numere întregi care variază de la 0 la 255 și rezultatul acestei funcții va fi tipul de date „lung”.

Schimbați culoarea celulelor utilizând funcția VBA RGB

Puteți descărca acest șablon Excel VBA RGB aici - Șablon Excel VBA RGB

Exemplul nr. 1

De exemplu, avem numere de la celula A1 la A8 așa cum se arată în imaginea de mai jos.

Pentru această gamă de celule, vom încerca să schimbăm culoarea fontului într-o culoare aleatorie, utilizând funcția RGB.

Porniți mai întâi procedura macro.

Cod:

 Sub RGB_Example1 () End Sub

În primul rând, trebuie să facem referire la gama de celule de fonturi pentru care dorim să schimbăm culoarea, în acest caz, gama noastră de celule este de la A1 la A8, deci furnizați același lucru folosind obiectul RANGE .

Cod:

 Sub RGB_Example1 () Range ("A1: A8") End Sub

Puneți punctul pentru a vedea lista IntelliSense a obiectului RANGE, din lista IntelliSense încercăm să schimbăm culoarea fontului și alegeți astfel proprietatea FONT din listă.

Cod:

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

Odată ce proprietatea FONT a fost aleasă în această proprietate, încercăm să schimbăm culoarea , deci alegeți proprietatea de culoare a FONT.

Cod:

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

Puneți semnul egal și deschideți funcția RGB.

Cod:

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

Dați numere întregi aleatoare cuprinse între 0 și 255 pentru toate cele trei argumente ale funcției RGB.

Cod:

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

Ok, acum rulați codul și vedeți rezultatul culorilor fontului din celulele de la A1 la A8.

Ieșire:

Deci, culorile fontului s-au schimbat de la negru la altele. Culoarea depinde de numerele pe care le acordăm funcției RGB.

Mai jos sunt codurile de culoare RGB pentru a obține unele dintre culorile comune.

Puteți schimba doar combinația de numere întregi de la 0 la 255 pentru a obține diferitele tipuri de culori.

Exemplul nr. 2

Pentru aceeași gamă de celule, să vedem cum să schimbăm culoarea de fundal a acestor celule.

În primul rând, furnizați gama de celule utilizând obiectul RANGE .

Cod:

Sub RGB_Example2 () Range („A1: A8”). Sfârșitul Sub

De data aceasta schimbăm culoarea de fundal a celulelor menționate, deci nu avem nimic de-a face cu proprietatea FONT acum pentru a schimba culoarea de fundal, alegeți proprietatea „ Interior ” a obiectului RANGE.

Cod:

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

Odată selectată proprietatea „Interior”, puneți punctul pentru a vedea proprietățile și metodele acestei proprietăți „Interior”.

Cod:

Sub RGB_Example2 () Range ("A1: A8"). Interior. Sfârșitul Sub

Deoarece schimbăm culoarea interioară a celulelor menționate, alegeți proprietatea „ Culoare ”.

Cod:

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

Pentru a seta proprietatea culorii interioare a gamei de celule (A1 până la A8) în semnul egal și deschideți funcția RGB.

Cod:

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

Introduceți numărul aleatoriu după cum doriți.

Cod:

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

Rulați codul și vedeți culoarea de fundal.

Ieșire:

Culoarea de fundal a fost modificată.

Lucruri de reținut aici

  • RGB înseamnă roșu, verde și albastru.
  • O combinație a acestor trei culori va da culori diferite.
  • Toți acești trei parametri pot accepta numai valori între 0 și 255. Toate numerele de mai sus vor fi resetate la 255.