Tweet

Buňky, oblasti - ukázky kódu Excel VBA

Seznam praktických příkladů

Při práci v Microsoft Excelu je někdy potřeba použít kód pro práci s buňkami. Proč jej vymýšlet a nepoužít hotové - ověřené řešení. V tomto článku jsou praktické ukázky kódu, které tyto problémy řeší:

• Spočti barevné buňky - (pozadí) v dané oblasti FUNKCE
• Barva pozadí v buňce
• Počet buněk určité barvy
• Počet shodný buněk s pozadím dané buňky

Spočti barevné buňky

Požadavek na funkci, které v označené oblasti spočte buňky, které mají stejnou barvu pozadí jako označená buňka.

Function SpoctiBarvuPozadi(Rng As Range, RngColor As Range) As Integer Dim Bunky As Range Dim Barva As Long Barva = RngColor.Range("A1").Interior.Color For Each Bunky In Rng If Bunky.Interior.Color = Barva Then SpoctiBarvuPozadi = SpoctiBarvuPozadi + 1 End If Next Bunky End Function

Poznámka: Kód umístit do Modulu.

Do buňky v listu se vloží tato nová uživatelská funkce:

Syntaxe:

=SpoctiBarvuPozadi(oblast;buňka)

Popis argumentů:

• oblast - oblast ve které se spočtou buŇky jejiž pozadí vyhovuje barrvě z buňka
• buňka - buňka, které pozadí obsahuej heldanou barvu

Příklad použití

V oblasti A1:A4, spočte buňky které mají stejné pozadí jako buňka A1.

=SpoctiBarvuPozadi(A1:A4;A1)

Barva pozadí v buňce

Jak zjistit jakou barvu má pozadí v buňce.

CellColor = Cells(1, 1).Interior.ColorIndex MsgBox CellColor CellColor = Cells(1, 1).Interior.ColorIndex MsgBox CellColor

Počet buněk určité barvy

Jak zjistit kolik buněk v dané oblasti má požadovanou barvu.

For a = 1 To 10 Step 1 If Cells(a, 1).Interior.ColorIndex = 3 Then ColorPočet = ColorPočet + 1 End If Next a MsgBox ColorPočet

Počet shodný buněk s pozadím dané buňky

Potřebujeme spočítat počet buněk v zadané oblasti, které mají shodné pozadí jako buŇka A1.

CellColor = Cells(1, 1).Interior.ColorIndex For A = 1 To 10 Step 1 If Cells(A, 1).Interior.ColorIndex = CellColor Then ColorPočet = ColorPočet + 1 End If Next A MsgBox ColorPočet

Poznámka

Další kódy v přípravě

Závěrem

Pokud máte zajímavý kód o který se chcete podělit, můžete zapsat do komentářů.

Č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"; } } } ?>