Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
práce s buňkami (oblastmi buněk) na základě požadovaných podmínek - počet, barvy, velikost, ...
Aktualizace:1.9.2013
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ší:
Každá věc se dá vyřešit několika způsoby. Záleží na požadované rychlosti, zkušenostech s programováním (na co je mi efektní kód kterému nerozumím).
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:
=SpoctiBarvuPozadi(oblast;buňka)
Popis argumentů:
V oblasti A1:A4, spočte buňky které mají stejné pozadí jako buňka A1.
=SpoctiBarvuPozadi(A1:A4;A1)
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
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
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
Další kódy v přípravě
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
Pomohl vám článek? Vyřešili jste problém? Můžete mě podpořit zakoupení tabulky (samozdřejmě čokoládové), když kafe nepiji ;) Odkaz na zakoupení čokolády. Za veškerou podporu vám děkuji a samozdřejmě jí využiji do zdokonalování a rozšířování webu.
Případně přidejte odkaz na vaši oblíbenou sociální síť, případně využijste hashtag #JakNaExcel .
Děkuji za váš čas a doufám, že jste nalezli odpověď na svůj problém.
Narazili jste v článku na nejasnost, chybu? Máte tip na vylepšení nebo doplnění článku? Budu rád pokud se zmínite v komentářích.
Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). 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 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
LinkedIn... |
Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2025 |