VBA spalvų indekso kodų sąrašas
Kai naudojant VBA koduojamas langelio Colorindex (arba fono spalva), naudinga žinoti, koks sveikas skaičius bus lygus kokia spalva. Žemiau yra informacinis paveikslėlis, kuriame parodyta spalva ir atitinkamų „Colorindex“ sąrašas. aka VBA spalvų paletė
Štai kodas, kurį galite sukurti patys, arba tiesiog pažymėkite šį puslapį:
| 123456789101112131415 | Sub ColorRef ()Dim x As IntegerKai x = nuo 1 iki 56Jei x <tadaLąstelės (x, 1). Interjeras.ColorIndex = xLąstelės (x, 2) = xKitasLąstelės (x - 28, 3). Interjeras.ColorIndex = xLąstelės (x - 28, 4) = xPabaiga JeiKitas xPabaiga Sub |
VBA ColorIndex pavyzdžiai
Nustatykite langelio fono spalvą
| 1 | Diapazonas ("A1"). Interjeras.ColorIndex = 6 |
Nustatykite langelio šrifto spalvą
| 1 | Diapazonas ("A1"). Šriftas.ColorIndex = 5 |
Nustatykite langelių sienų spalvą
| 1 | Diapazonas („A1“). Rėmeliai.SpalvaIndeksas = 5 |
Gaukite langelio fono spalvos indeksą
| 123 | Dim col kaip sveikasis skaičiuscol = Diapazonas ("A1"). Interjeras.ColorIndex |
Nustatykite langelio fono spalvą į kitos ląstelės spalvą
| 1 | Diapazonas ("A1"). Interior.ColorIndex = Diapazonas ("B1"). Interior.ColorIndex |
VBA spalvų savybė
Užuot naudoję „Excel“ / VBA „ColorIndex“ ypatybę, galite naudoti „Color“ ypatybę. Ypatybė Spalva turi du įvesties tipus:
- vbColor
- RGB spalvos
Toliau aptarsime šiuos dalykus:
VB spalva
„VB Color“ yra lengviausias būdas nustatyti spalvas VBA. Tačiau jis taip pat yra mažiausiai lankstus. Norėdami nustatyti spalvų kodą naudodami „vbColor“, naudokite toliau pateiktą lentelę:
Tačiau, kaip matote iš lentelės, jūsų galimybės yra labai ribotos.
Nustatykite langelio fono spalvą
| 1 | Diapazonas ("A1"). Interjeras.Spalva = vbGeltona |
Nustatykite langelio šrifto spalvą
| 1 | Diapazonas ("A1"). Šriftas.Spalva = vbBlue |
Nustatykite langelių sienų spalvą
| 1 | Diapazonas („A1“). Rėmeliai.Spalva = vbRed |
Nustatykite langelio fono spalvą į kitos ląstelės spalvą
| 1 | Diapazonas ("A1"). Interior.Color = Diapazonas ("B1"). Interior.Color |
RGB spalvos
RGB reiškia raudona žalia mėlyna. Tai yra trys pagrindinės spalvos, kurias galima derinti, kad būtų gauta bet kokia kita spalva. Įvesdami spalvas kaip RGB, įveskite kiekvieno spalvų kodo reikšmę nuo 0 iki 255.
Štai pavyzdys:
| 1 | Diapazonas ("A1"). Interjeras. Spalva = RGB (255 255,0) |
Viršuje nustatėme raudoną = 255 (maksimali vertė), žalią = 255 (maksimali vertė) ir mėlyną = 0 (min. Vertė). Tai nustato langelio fono spalvą į geltoną.
Vietoj to mes galime nustatyti langelio šrifto spalvą į violetinę:
| 1 | Diapazonas („A1“). Interjeras. Spalva = RGB (128,0 128) |
Yra daugybė internetinių įrankių, kaip rasti norimos spalvos RGB kodą (čia yra vienas).
„ColorIndex“ kodų sąrašas ir RGB spalvos „Access VBA“
„Access“ naudoja formas duomenims rodyti. Galite naudoti „ColorIndex“ kodus, kad programiškai pakeistumėte prieigos formų objektų fono spalvą ir priekinio plano spalvą.
| 12345 | Privatus antrinis cmdSave_Click ()'pakeiskite įrašymo mygtuko fono spalvą, kai įrašas išsaugomas.DoCmd.RunCommand acCmdSaveRecordcmdSave.BackColor = vbŽaliaPabaiga Sub |
