seychellesartprojects.org

Barevný index Excel VBA

Stejně jako v listu měníme barvu buňky nebo daného rozsahu buněk na kartě Domů ve VBA. Máme funkci vba zvanou Color Index, která se používá ke změně barev buněk nebo poskytovaného rozsahu buněk, tato funkce má jedinečnou identifikaci pro různé typy barev.

Ve VBA máme dva způsoby použití barvy, první je pomocí vlastnosti „color“ a druhá pomocí vlastnosti „ColorIndex“.

Aplikujeme barvu na buňku jako barvu pozadí, použijeme barvu písma a použijeme barvu ohraničení. Takže pro přístup k vlastnosti color & color index musíme nejprve vybrat buňku.

Jak používat vlastnost Color & Color Index?

Tuto šablonu indexu barev VBA si můžete stáhnout zde - Šablona indexu barev VBA

# 1 - Použití vlastnosti Color

Předpokládejme, že v buňce A1 máte slovo „Hello“. Uvidíme, jak použít barvu pozadí této buňky.

Chcete-li změnit barvu pozadí, ve vlastnostech barev musíme nejprve zmínit rozsah buňky.

Kód:

 Sub Color () Range ("A1") End Sub 

Po výběru buňky musíme zmínit, co je věc, kterou musíme udělat. Jak jsem řekl, musíme změnit barvu interiéru buňky. Chcete-li tedy změnit barvu pozadí buňky, použijte vlastnost „Interiér“.

Kód:

 Rozsah Sub Color () ("A1") 

V části Vlastnictví interiéru máme několik dalších metod a vlastností. Protože musíme změnit barvu buňky, použijte vlastnost color.

Kód:

 Sub Color () Range ("A1"). Interior.Color = End Sub 

Zde můžeme použít 8 neustále pojmenovaných barev. Níže je uveden seznam stejných.

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

Vyberte typ barvy podle vašeho přání.

Kód:

 Rozsah Sub Color () ("A1"). Interior.Color = vbBlue End Sub 

Pokud spustím tento kód pomocí klávesy F5 nebo ručně, změní se barva pozadí buňky A1 na vbBlue.

Takto můžete použít další konstantní pojmenované barvy. Zkuste je použít k otestování výsledku.

Kromě těchto 8 stálých barev můžeme také vyplnit různé barvy pomocí funkce RGB ve VBA.

Kód:

 Rozsah Sub Color () ("A1"). Interior.Color = RGB (End Sub 

Musíme zadat čísla červené, zelené a modré v číslech. Chcete-li to použít, měli byste být perfektní při zadávání čísel. Zadal jsem směs jako RGB (250, 200, 150).

Kód:

 Sub Color () Range ("A1"). Interior.Color = RGB (250, 200, 150) End Sub 

Změna této barvy je taková.

Problém je v tom, že nevíte přesně, jaké číslo platí pro jakou barvu.

Níže uvedený kód slouží ke změně barvy písma.

Kód:

 Sub Color_Font () Range ("A1"). Font.Color = RGB (100, 400, 100) End Sub 

Spusťte tento kód pomocí klávesy F5 nebo ručně pro získání výsledku.

# 2 - Použití vlastnosti Color Index

Barevný index se mírně liší od vlastnosti barev. Ve vlastnosti COLOR používáme 8 konstantních barev daných VBA a také pomocí funkce RGB vytváříme vlastní barvu.

Vlastnost COLOR INDEX je ve VBA omezená, může obsahovat hodnoty od 1 do 56. Každé číslo od 1 do 56 obsahuje různé barvy. Níže jsou uvedena čísla seznamu a jejich příslušné barvy.

Níže je kód makra pro změnu barvy pozadí buňky A1 na růžovou.

Kód:

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

Spusťte tento kód ručně nebo pomocí klávesy F5, abyste viděli výsledek.

Níže je uveden kód makra pro změnu barvy písma buňky A1 na žlutou.

Kód:

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

Spusťte tento kód pomocí klávesy F5 nebo můžete spustit ručně a zobrazit výsledek.

Jednou z důležitých věcí, které si zde musíme pamatovat, je, že můžeme zadat čísla od 1 do 56. Pokud je něco více než 56, zobrazí se chyba „Dolní index mimo rozsah“.

Pozorovali jste?

Jak jsem řekl, vlastnost Color Index může vložit pouze 56 barev, ale faktem je, že může vložit pouze 46 jedinečných barev a existuje 10 duplicitních barev. Níže je uveden seznam duplicitních barevných kódů.