Lista codurilor indexului culorilor VBA
Când utilizați VBA pentru a codifica Colorindex (sau culoarea de fundal) a unei celule, este util să știți ce număr întreg va fi egal cu ce culoare. Mai jos este o imagine de referință care arată culoarea și listează Colorindex-ul respectiv. alias Paleta de culori VBA

Iată codul pentru a crea unul pentru dvs. sau doar marcați această pagină:
123456789101112131415 | Sub ColorRef ()Dim x Ca întregPentru x = 1 până la 56Dacă x <AtunciCelule (x, 1) .Interior.ColorIndex = xCelulele (x, 2) = xAltfelCelule (x - 28, 3) .Interior.ColorIndex = xCelule (x - 28, 4) = xEnd IfUrmătorul xSfârșitul Sub |
Exemple VBA ColorIndex
Setați culoarea de fundal a celulei
1 | Gama („A1”). Interior.ColorIndex = 6 |
Setați culoarea fontului celulei
1 | Gama („A1”). Font.ColorIndex = 5 |
Setați culoarea chenarelor celulei
1 | Gama („A1”). Borders.ColorIndex = 5 |
Obțineți celula ColorIndex de fundal
123 | Dim col ca număr întregcol = Range ("A1"). Interior.ColorIndex |
Setați o culoare de fundal a celulei la culoarea altei celule
1 | Range ("A1"). Interior.ColorIndex = Range ("B1"). Interior.ColorIndex |
Proprietatea de culoare VBA
În loc să utilizați proprietatea ColorIndex a Excel / VBA, puteți utiliza proprietatea Color. Proprietatea Color are două tipuri de intrare:
- vbColor
- Culori RGB
Vom discuta despre acestea mai jos:
VB Color
VB Color este cel mai simplu mod de a seta culori în VBA. Cu toate acestea, este și cel mai puțin flexibil. Pentru a seta un cod de culoare folosind vbColor, utilizați tabelul de mai jos:

Cu toate acestea, după cum puteți vedea din tabel, opțiunile dvs. sunt extrem de limitate.
Setați culoarea de fundal a celulei
1 | Gama ("A1"). Interior.Color = vbGălben |
Setați culoarea fontului celulei
1 | Gama ("A1"). Font.Color = vbBlue |
Setați culoarea chenarelor celulei
1 | Gama („A1”). Borders.Color = vbRed |
Setați o culoare de fundal a celulei la culoarea altei celule
1 | Range ("A1"). Interior.Color = Range ("B1"). Interior.Color |
Culori RGB
RGB înseamnă Red Green Blue. Acestea sunt cele trei culori primare care pot fi combinate pentru a produce orice altă culoare. Când introduceți culori ca RGB, introduceți o valoare între 0 și 255 pentru fiecare cod de culoare.
Iată un exemplu:
1 | Gama ("A1"). Interior.Color = RGB (255.255,0) |
Mai sus am setat Roșu = 255 (valoare maximă), Verde = 255 (valoare maximă) și Albastru = 0 (valoare minimă). Aceasta setează culoarea de fundal a celulei la Galben.
În schimb, putem seta culoarea fontului celulei la violet:
1 | Gama ("A1"). Interior.Color = RGB (128,0,128) |
Există numeroase instrumente online pentru a găsi codul RGB pentru culoarea dorită (iată una).
Lista codurilor ColorIndex și culorile RGB în Access VBA
Accesul utilizează formulare pentru a afișa date. Puteți utiliza codurile ColorIndex pentru a schimba programatic culoarea de fundal și culoarea din prim-plan a obiectelor din formularele dvs. de acces.
12345 | Private Sub cmdSave_Click ()'schimbați culoarea de fundal a butonului de salvare atunci când înregistrarea este salvată.DoCmd.RunCommand acCmdSaveRecordcmdSave.BackColor = vbGreenSfârșitul Sub |
