Jak počítat buňky s barvou v aplikaci Excel?
Existuje několik způsobů, jak můžeme spočítat buňky na základě barvy buňky v aplikaci Excel.
- Metoda č. 1 - Počítání buněk barevně pomocí metody filtru s funkcí Sub Total
- Metoda č. 2 - Počítání buněk barvou vytvořením funkce pomocí kódu VBA
Nyní pojďme podrobně diskutovat o každé z metod spolu s příkladem -
# 1 Použití metody filtru s funkcí mezisoučtu
Jak jsem řekl, máme několik metod pro počítání buněk na základě barvy buňky v aplikaci Excel. Tato metoda používá funkci Filtr a mezisoučet.
- Krok 1: Nejprve musíme použít mezisoučet, takže na konci dat otevřete funkci SUBTOTAL v aplikaci Excel.
- Krok 2: Jakmile otevřete funkci SUBTOTAL, zobrazí se nám pod touto funkcí seznam funkcí; protože počítáme buňky, zvolte funkci „ 2 - POČET “.
- Krok 3: Po dalším výběru metody mezisoučtu musíme vybrat rozsah buněk, které se mají počítat.
- Krok 4: Dobře, počet těchto buněk bude nyní 7.
- Krok 5: U výše uvedených dat použije struktura možnost filtru.
- Krok 6: Kliknutím na rozevírací seznam filtrů přejděte na „ Filtrovat podle barvy“. Zobrazí všechny dostupné barvy k filtrování.
- Krok 7: Vyberte libovolnou z barev a my budeme mít tyto barevné řádky.
- Krok 8: Jak vidíte výše, naše funkce SUBTOTAL zobrazuje pouze počet filtrovaných řádků. Vzhledem k tomu, že jsou pouze dva řádky označené oranžovou barvou, funkce SUBTOTAL ukazuje počet pouze jako tři; podobně vyberte jinou barvu a zkontrolujte, zda funguje perfektně nebo ne.
Tento počet je 2, takže máme aktualizovaný výsledek.
# 2 Vytvořte funkci pomocí kódování VBA
Jak jsem vám řekl, bohužel nemáme žádnou vestavěnou funkci, která nám může pomoci počítat buňky na základě barvy v aplikaci Excel. Řekli jsme, že neexistuje žádná vestavěná funkce, ale krásné je, že si můžeme vytvořit vlastní funkci pomocí kódování VBA.
Níže je uveden kód, který jsem již napsal k vytvoření funkce pro počítání buněk na základě barvy.
Kód:
Funkce ColorCount (ColorCell As Range, DataRange As Range) Dim Data_Range As Range Dim Cell_Color As Long Cell_Color = ColorCell.Interior.ColorIndex for each Data_Range In DataRange If Data_Range.Interior.ColorIndex = Cell_Color Then ColorCount = ColorCount + 1 End If Next Data_Range End Funkce
Vše, co musíte udělat, je zkopírovat výše uvedený kód a vložit jej do modulu VBA, jak je znázorněno níže.
Nyní se vraťte k listu, kde máme data, a vytvořte tři buňky barevně.
Vložte znaménko rovnosti a otevřete funkci, kterou jsme vytvořili pomocí výše uvedeného kódu.
Prvním argumentem této funkce je „musíme vybrat barevnou buňku, kterou musíme spočítat“, takže v tomto případě zvolím buňku E2.
Druhým argumentem je, ve kterém rozsahu buněk musíme spočítat vybranou barvu buněk.
Dobře, to je vše, co pro tuto funkci potřebujeme. Zavřete závorku a stiskněte klávesu Enter, abyste získali počet vybrané barvy buňky.
Podobně jako u ostatních barevných buněk. Dostaneme následující výsledek.
To se provádí pomocí VBA „ User Defined Function“, která bude procházet poskytnutým rozsahem buněk a počítat počet buněk, které přesně drží stejnou barvu jako poskytnutá barva buňky.
Poté sečte všechny odpovídající barevné buňky a vrátí výsledek jako počet těchto barevných buněk.
Takto můžeme počítat buňky s barvami v aplikaci Excel. Existují i jiné metody, ale ty jsou mírně komplikované, takže si na začátku učení vyberte tu snadnou.
Na co si pamatovat zde
- Funkce SUBTOTAL počítá pouze buňky, které jsou viditelné, takže při použití filtru bude počítat pouze ty filtrované barevné buňky.
- Kód VBA je pro funkci UDF, protože neexistují žádné vestavěné funkce, takže si musíme vytvořit vlastní.
