Barva písma VBA | Změňte barvu písma pomocí vlastnosti VBA Color

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 cítím jako kosmetička Excel při pohledu na různé barvy formátování aplikace 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, že na začátku se zdá, že je všechno těžké, později se do toho dostanete.

Jak změnit barvu písma pomocí VBA?

Tuto šablonu písma VBA Barva Excel si můžete stáhnout zde - Šablona VBA Barva písma Excel

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 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. Ale abychom měli širokou škálu barev, musíme použít funkci zvanou RGB, kromě vestavěných barev si můžeme vytvořit 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