Excel VBA indeks boja
Kao na radnom listu, na početnoj kartici u VBA mijenjamo boju ćelije ili određenog raspona stanica. Imamo funkciju vba koja se naziva Indeks boja koja se koristi za promjenu boja stanica ili raspona stanica, a ove funkcije imaju jedinstvenu identifikaciju za različite vrste boja.
U VBA imamo dva načina primjene boje, prvi je pomoću svojstva „color“, a drugi pomoću svojstva „ColorIndex“.
Na ćeliju nanosimo boju kao boju pozadine, boju fonta i boju obruba. Dakle, da bismo pristupili svojstvu boje i indeksa boja prvo moramo odabrati ćeliju.
Kako koristiti svojstvo Boja i indeks boja?
Ovaj predložak indeksa boja VBA možete preuzeti ovdje - predložak indeksa boja VBA# 1 - Korištenje svojstva boje
Pretpostavimo da imate riječ "Zdravo" u ćeliji A1. Vidjet ćemo kako primijeniti boju pozadine ove ćelije.
Da bismo promijenili boju pozadine, u svojstvima boja prvo moramo spomenuti raspon ćelije.
Kodirati:
Podboja () Raspon ("A1") Kraj Pod 
Nakon odabira stanice moramo spomenuti što je stvar koju trebamo učiniti. Kao što sam rekao, moramo promijeniti unutarnju boju ćelije. Dakle, za promjenu boje pozadine ćelije koristite svojstvo "Interijer".
Kodirati:
Podboja () Raspon ("A1"). Unutrašnji kraj Sub 
Pod Svojstvom interijera imamo nekoliko drugih metoda i svojstava. Budući da moramo promijeniti boju stanice, koristite svojstvo boje.
Kodirati:
Podboja () Raspon ("A1"). Interior.Color = Kraj Sub 
Ovdje možemo koristiti 8 boja koje se neprestano imenuju. Ispod je popis istih.
vbBlack, vbRed, vbGreen, vbBlue, vbŽuti, vbMagenta, vbCyan, vbWhiteOdaberite vrstu boje prema vašoj želji.
Kodirati:
Podboja () Raspon ("A1"). Interijer.Boja = vbPlavi kraj Sub 
Ako pokrenem ovaj kod pomoću tipke F5 ili ručno, promijenit će boju pozadine ćelije A1 u vbBlue.
Ovako, možete koristiti druge konstantno imenovane boje. Pokušajte ih koristiti za testiranje rezultata.
Osim ovih 8 stalnih boja, možemo ispuniti i različitim bojama pomoću RGB funkcije u VBA.
Kodirati:
Podboja () Raspon ("A1"). Interijer.Boja = RGB (Krajnji sub 
Moramo unijeti mješavinu crvene, zelene i plave u brojevima. Da biste to koristili, trebali biste biti savršeni u unosu brojeva. Smjesu sam unio kao RGB (250, 200, 150).
Kodirati:
Podboja () Raspon ("A1"). Interijer.Boja = RGB (250, 200, 150) Kraj Sub 
Promjena ove boje je takva.
Problem je što ne znate točno koji broj sadrži koju boju.
Kôd u nastavku je za promjenu boje fonta.
Kodirati:
Sub Color_Font () Raspon ("A1"). Font.Color = RGB (100, 400, 100) Kraj Sub 
Pokrenite ovaj kôd pomoću tipke F5 ili ručno da biste dobili rezultat.
# 2 - Korištenje svojstva indeksa boja
Indeks boja malo se razlikuje od svojstva boje. U svojstvu COLOR koristimo 8 konstantnih boja koje daje VBA, a također pomoću RGB funkcije kreiramo vlastitu boju.
Svojstvo COLOR INDEX ograničeno je u VBA, može sadržavati vrijednosti od 1 do 56. Svaki broj od 1 do 56 ima različite boje. Ispod su brojevi popisa i njihove boje.
Ispod je makronaredba za promjenu boje pozadine ćelije A1 u ružičastu.
Kodirati:
Podopseg ColorIndex_Cell () Raspon ("A1"). Interior.ColorIndex = 26 Kraj Sub 
Pokrenite ovaj kod ručno ili pomoću tipke F5 da biste vidjeli rezultat.
Ispod je makronaredba za promjenu boje fonta ćelije A1 u žutu.
Kodirati:
Sub ColorIndex_Font () Raspon ("A1"). Font.ColorIndex = 27 Kraj Sub 
Pokrenite ovaj kod pomoću tipke F5 ili možete pokrenuti ručno i vidjeti rezultat.
Jedna od važnih stvari koje ovdje treba imati na umu jest da možemo unijeti brojeve od 1 do 56. Ako je nešto više od 56, dobit ćemo pogrešku "Subscript Out Of Range".
Jeste li primijetili?
Kao što sam rekao, svojstvo Indeks boja može umetnuti samo 56 boja, ali činjenica je da može umetnuti samo 46 jedinstvenih boja, a postoji 10 duplikata boja. Ispod je popis dvostrukih kodova boja.
