Tweet

Barvy - Color - Excel VBA

Úvodem

V článku se dozvíte jak zadávat barvy buněk, pozadí buněk, ohraničení, atd. pomocí VBA v Excelu. Pro přehlednost je rozdělen do jednotlivých kapitol ať se můžete přímo přesunout na problematiku, která vás zajíma:

• Trocha teorie
• Barva pozadí - ColorIndex
• Barva pozadí - konstantou
• Barva pozadí - RGB
• Odstíny šedi
• Barva textu
• Jakou barvu má text pozadí
• Barva ohraničení
• Sešit ke stažení - zdarma
• Související články

Teorie

Barvy můžete zadávat:

• Indexem - ColorIndex
• Konstantou
• RGB

Indexem

56 předdefinovaných barev:

Konstantou

K dispozici tyto konstanty:

• vbBlack - černá
• vbRed - červená
• vbGreen
• vbYellow
• vbBlue
• vbMagenta
• vbCyan
• vbWhite

RGB

Nastavte si barvu jakou chcete, pomocí RGR.

Syntaxe

RGB(red, green, blue)

• red - požadováno (Integer) - hodnota 0 - 255, složka červené barvy
• green - požadováno (Integer) - hodnota 0 - 255, složka zelené barvy
• blue - požadováno (Integer) - hodnota 0 - 255, složka modré barvy

Barva	Red hodnota	Green hodnota	Blue hodnota
Černá	0	0	0
Modrá	0	0	255
Zelená	0	255	0
Červená	255	0	0
Bíla	255	255	255
Žlutá	255	255	0
Azurovou (Cyan)	0	255	255
Purpurová (Magenta)	255	0	255

Barva pozadí - ColorIndex

Dim MojeRange As Range Set MojeRange = Range("B21") MojeRange.Interior.ColorIndex = 3

nebo:

Range("B21").Interior.ColorIndex = 3

Barva pozadí - konstantou

Range("F30").Interior.Color = vbRed

• vbBlack - černá
• vbRed - červená
• vbGreen
• vbYellow
• vbBlue
• vbMagenta
• vbCyan
• vbWhite

Barva pozadí - RGB

Využití hodnot RGB pro vložení požadované barvy pozadí

Range("B21").Interior.Color = RGB(255, 0, 0)

Odstíny šedi

Ne pouhých 52 odstínu šedi ale rovných 255, pro Excel 2007 a vyšší.

Range("L15").Interior.Color = RGB(0, 0, 0) Range("L16").Interior.Color = RGB(50, 50, 50) Range("L17").Interior.Color = RGB(100, 100, 100) Range("L18").Interior.Color = RGB(150, 150, 150) Range("L19").Interior.Color = RGB(200, 200, 200) Range("L20").Interior.Color = RGB(250, 250, 250) Range("L21").Interior.Color = RGB(255, 255, 255)

Barva textu

Podobně jako pozadí můžete měnit i barvu textu, například pomocí ColorIndex.

Dim MojeRange As Range Set MojeRange = Range("B25") MojeRange.Font.ColorIndex = 3

atd. konstatnou, RGB, podobně jako pozadí. Viz předchozí kapitoly.

Jakou barvu má text pozadí

Barva pozadí:

Barva = Range("B40").Interior.Color MsgBox Barva

Barva text:

Barva = Range("B40").Font.Color MsgBox Barva

Barva ohraničení

Barva pozadí:

Range("B1:C5").Select With Selection.Borders .LineStyle = xlContinuous .Weight = xlThin .Color = RGB(150, 150, 150) End With

Více o ohraničení buněk v samostatném článku Ohraničení buněk (Borders) - kódy Excel VBA.

Ke stažení

Soubor Color - barva - praktické příklady - Excel VBA ke stažení zdarma. Soubor využívá makra (pro Excel 2007 a novější).

Další související články:

Pokud už máte buňku (oblast) označenou můžete s ními dále pracovat například

• RESIZE, OFFSET - zvětšit posounout oblast
• Zapiš údaj do buňky (oblasti)
• Přečti údaj z buňky (oblasti)
• Formátování buněk datum a čas
• ...

Závěrem

Máte svůj oblíbený kód, které ještě není uveden. Můžete se pochlubit v komentářích.

Článek byl aktualizován: 19.09.2020 11:06

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře

" ; // echo "kompletni_cesta :" ; // echo $adresar_pro_vkladani ; // echo "
" ; // echo " Tady bude možnost přidání komentáře" ; // echo "
" ; // echo "
" ; $kompletni_cesta = "komentare"; $adresar_pro_vkladani = $kompletni_cesta; ?> \n"; reset($polozky); while (list($key, $val) = each($polozky)) { if ($val != "." && $val != "..") { if (!is_dir($val)) { // echo "$val
\n"; $fp = FOpen ($adresar_pro_vkladani."/".$val, "r"); //otevře soubor book.dat pro čtení $data = FRead ($fp, FileSize($adresar_pro_vkladani."/".$val)); //přečte data ze souboru a uloží do proměnné "data" - kvůli tomu aby se zobrazoval poslední příspěvek nahoře FClose($fp); echo "$data"; } } } ?>