Farba písma Excel VBA
Vlastnosť Farba písma VBA sa používa na zmenu farby písma buniek programu Excel pomocou kódu vba. Farbu písma môžeme meniť viacerými spôsobmi pomocou indexu farieb, vlastnosti color s funkciou RGB.
Keď pripravujem palubnú dosku v programe Excel, zvyčajne trávim značné množstvo času formátovaním buniek, písiem atď. Často sa cítim ako kozmetička programu Excel pri pohľade na rôzne farby formátovania programu Excel. Zmena farby písma v hárku programu Excel je ľahká práca, ale pokiaľ ide o Excel, mali by ste poznať spôsoby písania kódu VBA, ako zmeniť farbu písma.
Ak chcete zmeniť farbu písma, najskôr musíme zistiť, aké bunky zmeníme.
Rozsah („A1: A10“)
Potom musíme vybrať vlastnosť FONT.
Rozsah („A1: A10“). Písmo
Čo potom chceme urobiť s týmto písmom, takže vyberte možnosť Farba?
Rozsah („A1: A10“). Font.Color
Takto musíme vytvoriť kód na zmenu farby písma. Vyzerá to ťažko, však?
Pamätajte však, že zo začiatku sa zdá byť všetko ťažké, neskôr sa do toho dostanete.
Ako zmeniť farbu písma pomocou VBA?
Príklad č. 1 - Použitie indexu farieb
Vlastnosť Color Index sa líši od vlastnosti Color vo VBA. Pomocou číselných hodnôt môžeme meniť farbu buniek, typov písma.
Čísla sa pohybujú od 1 do 56 a každé číslo predstavuje inú farbu. Nižšie je uvedený zoznam čísel a ich farieb.
Dobre, poďme to vyskúšať.
Mám hodnotu v bunke A1.
Chcem zmeniť farbu písma bunky A1 na zelenú. Nižšie je uvedený kód.
Kód:
Sub FontColor_Example1 () Range ("A1"). Font.ColorIndex = 10 End Sub
To zmení farbu písma bunky A1 na zelenú.
Na zmenu farby písma môžeme použiť aj vlastnosť CELLS.
Kód:
Sub FontColor_Example1 () bunky (1, 1). Font.ColorIndex = 10 koncový sub
Takto môžeme použiť na písma požadovanú farbu pomocou čísel od 1 do 56.
Príklad č. 2 - Používanie vlastnosti farieb
Farebný index má veľmi obmedzené farby od 1 do 56, ale pomocou vlastnosti COLOR môžeme použiť 8 vstavaných farieb vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .
Pre tieto farby nemusíme dodávať žiadne čísla. Namiesto toho k nim môžeme jednoducho získať prístup pomocou mena, ktoré je uvedené vyššie. Nižšie je uvedený príklad kódu pre všetkých 8 farieb.
Kód:
Sub vbBlack_Example () Range ("A1"). Font.Color = vbBlack End Sub
Kód:
Sub vbRed_Example () Range ("A1"). Font.Color = vbRed End Sub
Kód:
Sub vbGreen_Example () Range ("A1"). Font.Color = vbGreen End Sub
Kód:
Sub vbBlue_Example () Range ("A1"). Font.Color = vbBlue End Sub
Kód:
Sub vbYellow_Example () Range ("A1"). Font.Color = vbYellow End Sub
Kód:
Sub vbMagenta_Example () Range ("A1"). Font.Color = vbMagenta End Sub
Kód:
Sub vbCyan_Example () Range ("A1"). Font.Color = vbCyan End Sub
Kód:
Sub vbWhite_Example () Range ("A1"). Font.Color = vbWhite End Sub
Príklad č. 3 - Použitie vlastnosti farieb s funkciou RGB
Ako sme videli, na prácu máme iba 8 zabudovaných farieb. Aby sme ale mali širokú škálu farieb, musíme použiť funkciu zvanú RGB. Okrem vstavaných farieb si môžeme vytvárať vlastné farby aj pomocou funkcie VBA RGB.
Pozrite sa na syntax funkcie RGB.
RGB (červená, zelená, modrá)
RGB znamená „červená, zelená a modrá“. Aby sme vytvorili farby, musíme dodať čísla od 0 do 255 pre každú farbu.
Ďalej uvádzame niekoľko príkladov.
Ďalej uvádzame niektoré príklady makrokódu
Kód:
Sub RGB_Example () Range ("A1"). Font.Color = RGB (0, 0, 0) 'Zmeňte farbu písma na čiernu End Sub
Kód:
Sub RGB_Example () Range ("A1"). Font.Color = RGB (16, 185, 199) 'Farba písma bude tento End Sub
Kód:
Sub RGB_Example () Range ("A1"). Font.Color = RGB (106, 15, 19) 'Farba písma bude tento End Sub
Kód:
Sub RGB_Example () Range ("A1"). Font.Color = RGB (216, 55, 19) 'Farba písma bude tento End Sub
