VBA spalvų indeksas Populiariausi spalvų indekso ypatybės naudojimo būdai „Excel VBA“

„Excel VBA“ spalvų indeksas

Kaip ir darbalapyje, VBA pagrindiniame skirtuke keičiame langelio spalvą arba nurodytą langelių diapazoną. Mes turime „vba“ funkciją, vadinamą spalvų indeksu, kuri naudojama pakeisti langelių spalvas ar pateikiamą langelių diapazoną, ši funkcija turi unikalų skirtingų spalvų tipų identifikavimą.

VBA mes turime du spalvų pritaikymo būdus: pirmasis naudojamas naudojant „spalva“, o antrasis - „ColorIndex“ ypatybę.

Spalvą langeliui pritaikome kaip fono spalvą, šrifto spalvą ir kraštinę. Taigi, norėdami pasiekti spalvų ir spalvų indekso savybę, pirmiausia turime pasirinkti langelį.

Kaip naudoti spalvų ir spalvų indekso ypatybę?

Šį VBA spalvų indekso šabloną galite atsisiųsti čia - VBA spalvų indekso šabloną

# 1 - spalvų savybės naudojimas

Tarkime, kad langelyje A1 turite žodį „Labas“. Pamatysime, kaip pritaikyti šios langelio fono spalvą.

Norėdami pakeisti fono spalvą, spalvų savybėmis pirmiausia turime paminėti langelio diapazoną.

Kodas:

 Antrinė spalva () Diapazonas ("A1") Pabaiga Sub 

Pasirinkę langelį turime paminėti, ką turime daryti. Kaip sakiau, turime pakeisti langelio vidinę spalvą. Taigi norėdami pakeisti langelio fono spalvą naudokite savybę „Interjeras“.

Kodas:

 Papildomos spalvos () diapazonas ("A1") 

Pagal „Interjero nuosavybė“ turime keletą kitų būdų ir savybių. Kadangi mes turime pakeisti langelio spalvą, naudokite spalvos savybę.

Kodas:

 Papildomos spalvos () diapazonas ("A1"). Interjero spalva = pabaigos antrinė dalis 

Čia galime naudoti 8 nuolat įvardijamas spalvas. Žemiau pateikiamas tas pats sąrašas.

vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite

Pasirinkite spalvų tipą pagal savo norus.

Kodas:

 Sub spalva () diapazonas ("A1"). Interjeras. Spalva = vbBlue End Sub 

Jei paleisiu šį kodą naudodamas F5 klavišą arba rankiniu būdu, jis pakeis langelio A1 fono spalvą į „ vbBlue“.

Taip galite naudoti kitas pastovias pavadintas spalvas. Pabandykite juos naudoti, kad patikrintumėte rezultatą.

Be šių 8 pastovių spalvų, taip pat galime užpildyti skirtingomis spalvomis, naudodami RGB funkciją VBA.

Kodas:

 Sub Color () diapazonas ("A1"). Interjeras. Spalva = RGB (End Sub 

Skaičiais turime įvesti raudonos, žalios ir mėlynos spalvos mišinį. Norėdami tai naudoti, turėtumėte puikiai įvesti skaičius. Įvedžiau mišinį kaip RGB (250, 200, 150).

Kodas:

 Sub spalva () diapazonas ("A1"). Interjeras. Spalva = RGB (250, 200, 150) Galinė antrinė dalis 

Šios spalvos pakeitimas yra toks.

Problema yra ta, kad jūs tiksliai nežinote, kuris skaičius turi kokią spalvą.

Žemiau pateiktas kodas turi pakeisti šrifto spalvą.

Kodas:

 Sub Color_Font () diapazonas ("A1"). Šriftas. Spalva = RGB (100, 400, 100) Pabaiga Sub 

Paleiskite šį kodą naudodami F5 klavišą arba rankiniu būdu, kad gautumėte rezultatą.

# 2 - Spalvų indekso ypatybės naudojimas

Spalvų indeksas šiek tiek skiriasi nuo spalvų savybės. Spalvoje „COLOR“ mes naudojame 8 pastovias spalvas, kurias suteikia VBA, taip pat naudodami RGB funkciją kuriame savo spalvas.

COLOR INDEX ypatybė yra ribota VBA, ji gali turėti reikšmes nuo 1 iki 56. Kiekvienas skaičius nuo 1 iki 56 turi skirtingas spalvas. Žemiau pateikiami sąrašo numeriai ir jų spalvos.

Žemiau yra makrokodas, kad langelio A1 fono spalva būtų pakeista į rausvą.

Kodas:

 Sub ColorIndex_Cell () Range ("A1"). Interior.ColorIndex = 26 End Sub 

Paleiskite šį kodą rankiniu būdu arba naudodami klavišą F5, kad pamatytumėte rezultatą.

Žemiau yra makrokodas, kad langelio A1 šrifto spalva būtų pakeista į geltoną.

Kodas:

 Sub ColorIndex_Font () Range ("A1"). Font.ColorIndex = 27 End Sub 

Paleiskite šį kodą naudodami klavišą F5 arba galite paleisti rankiniu būdu ir pamatyti rezultatą.

Vienas iš svarbiausių dalykų, kuriuos čia reikia atsiminti, yra tai, kad galime įvesti skaičius nuo 1 iki 56. Jei kas nors daugiau nei 56, gausime klaidą „Subscript Out Out Range“.

Ar stebėjai?

Kaip sakiau, „Color Index“ nuosavybė gali įterpti tik 56 spalvas, tačiau faktas yra tas, kad ji gali įterpti tik 46 unikalias spalvas ir yra 10 spalvų dublikatų. Žemiau pateikiamas pasikartojančių spalvų kodų sąrašas.


$config[zx-auto] not found$config[zx-overlay] not found