Barva písma Excel VBA
Vlastnost Barva písma VBA se používá ke změně barvy písma buněk aplikace Excel pomocí kódu VBA. Můžeme změnit barvu písma několika způsoby pomocí indexu barev, vlastnosti barvy s funkcí RGB.
Když připravuji palubní desku v aplikaci Excel, obvykle trávím značné množství času formátováním buněk, písem atd. Často se při pohledu na různé barvy formátování aplikace Excel cítím jako kosmetička Excel. Změna barvy písma v listu aplikace Excel je snadná práce, ale pokud jde o Excel, měli byste znát způsoby psaní kódu VBA, jak změnit barvu písma.
Chcete-li změnit barvu písma, nejprve musíme identifikovat, jaké buňky změníme.
Rozsah („A1: A10“)
Pak musíme vybrat vlastnost FONT.
Rozsah („A1: A10“). Písmo
Co tedy chceme s tímto písmem dělat, takže vyberte Barva?
Rozsah („A1: A10“). Font.Color
Takto musíme vytvořit kód pro změnu barvy písma. Vypadá to obtížně, že?
Ale pamatujte, všechno se zpočátku zdá být těžké, později to pochopíte.
Jak změnit barvu písma pomocí VBA?
Příklad č. 1 - Použití indexu barev
Vlastnost Color Index se liší od vlastnosti Color ve VBA. Pomocí číselných hodnot můžeme změnit barvu buněk, písma.
Čísla se pohybují od 1 do 56 a každé číslo představuje jinou barvu. Níže je uveden seznam čísel a jejich barev.
Dobře, pojďme to vyzkoušet.
Mám hodnotu v buňce A1.
Chci změnit barvu písma buňky A1 na zelenou. Níže je uveden kód.
Kód:
Sub FontColor_Example1 () Range ("A1"). Font.ColorIndex = 10 End Sub
Tím se změní barva písma buňky A1 na zelenou.
Vlastnost CELLS můžeme také použít ke změně barvy písma.
Kód:
Sub FontColor_Example1 () Cells (1, 1) .Font.ColorIndex = 10 End Sub
Takto můžeme použít na písma požadovanou barvu pomocí čísel od 1 do 56.
Příklad č. 2 - Použití vlastnosti Barva
Color Index has very limited colors from 1 to 56, but by using COLOR property, we can use 8 built-in colors vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .
U těchto barev nepotřebujeme zadávat žádná čísla. Spíše k nim můžeme jednoduše přistupovat pomocí jejich jména, jak je uvedeno výše. Níže je ukázkový kód pro všech 8 barev.
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
Příklad č. 3 - Použití vlastnosti Color s funkcí RGB
Jak jsme viděli, máme k dispozici pouze 8 vestavěných barev. Abychom ale měli širokou škálu barev, musíme použít funkci zvanou RGB. Kromě vestavěných barev můžeme vytvářet vlastní barvy pomocí funkce VBA RGB.
Podívejte se na syntaxi funkce RGB.
RGB (červená, zelená, modrá)
RGB znamená „červená, zelená a modrá“. Abychom vytvořili barvy, musíme pro každou barvu zadat čísla od 0 do 255.
Níže uvádíme několik příkladů.
Níže uvádíme několik příkladů kódu makra
Kód:
Sub RGB_Example () Range ("A1"). Font.Color = RGB (0, 0, 0) 'Změňte barvu písma na černou End Sub
Kód:
Sub RGB_Example () Range ("A1"). Font.Color = RGB (16, 185, 199) 'Barva písma bude tento End Sub
Kód:
Sub RGB_Example () Range ("A1"). Font.Color = RGB (106, 15, 19) 'Barva písma bude tento End Sub
Kód:
Sub RGB_Example () Range ("A1"). Font.Color = RGB (216, 55, 19) 'Barva písma bude tento End Sub
