Přejít na hlavní obsah

Příklady použití funkce COUNTIFS v aplikaci VBA Excel

  • Jitka Čermáková
  • Rady

Funkce Countifs v programovacím jazyce VBA pro Excel je výkonným nástrojem pro počítání počtu buněk, které splňují určité podmínky. Umožňuje vzít v úvahu několik kritérií a vrátit výsledek, který odpovídá uvedeným podmínkám.

V tomto článku se podíváme na 10 příkladů použití funkce Countifs v aplikaci VBA Excel. Ukážeme vám, jak může být užitečná při práci s velkými datovými sadami a jak používat různá kritéria k počítání splňujících buněk.

Můžete například použít funkci Countifs k výpočtu počtu objednávek provedených konkrétním zákazníkem a určité částky. Nebo můžete spočítat počet zaměstnanců, kteří pracují v určitém oddělení a mají určitou úroveň příjmů.

Funkce Countifs lze také použít k počítání jedinečných hodnot v rozsahu, který splňuje určité podmínky. Tímto způsobem budete moci rychle a efektivně analyzovat velké množství dat a dosáhnout požadovaných výsledků.

Countifs VBA Excel: příklady použití funkce

Zde je několik příkladů použití funkce "Countifs" VBA:

    Počet buněk obsahujících určitou hodnotu:

Dim count As Integercount = Application.WorksheetFunction.Countifs(Range("A1:A10"), "apple")
Dim count As Integercount = Application.WorksheetFunction.Countifs(Range("A1:A10"), Array("apple", "banana", "orange"))
Dim count As Integercount = Application.WorksheetFunction.Countifs(Range("A1:A10"), "apple", Range("B1:B10"), ">10")
Dim count As Integercount = Application.WorksheetFunction.Countifs(Range("A1:A10"), "apple", Range("B1:B10"), ">10", Range("C1:C10"), "<>red")
Dim count As Integercount = Application.WorksheetFunction.Countifs(Range("A1:A10"), "apple", Range("B1:B10"), ">10") + Application.WorksheetFunction.Countifs(Range("A1:A10"), "banana", Range("B1:B10"), "<=10")

Funkce "Countifs" v Excelu VBA je velmi užitečná při práci s velkými datovými poli a zpracování složitých podmínek. Umožňuje rychle a efektivně vypočítat počet buněk, které splňují dané podmínky.

Filtrování dat podle podmínky: příklady počítadla Countifs VBA Excel

V programovacím jazyce VBA (Visual Basic for Applications) pro Excel existuje funkce Countifs, která umožňuje filtrování dat podmíněně. Funkce Countifs počítá počet buněk v uvedeném rozsahu, které splňují dané podmínky.

Příklady použití funkce Countifs v aplikaci VBA Excel:

1) počet buněk obsahujících určitou hodnotu:

Dim count As Integer
count = WorksheetFunction.CountIfs (Range ("A1:A10"),"hodnota")

2) počítání počtu buněk obsahujících hodnotu z uvedeného rozsahu:

Dim count As Integer
count = WorksheetFunction.CountIfs(Range("A1:A10"), ">=" & Range("B1"), "

3) počet buněk, které splňují více podmínek:

Dim count As Integer
count = WorksheetFunction.CountIfs (Range ("A1:A10"), "hodnota1", Range ("B1:B10"),"hodnota2")

4) počítání počtu buněk obsahujících konkrétní text nebo vzorec:

Dim count As Integer
count = WorksheetFunction.CountIfs (Range ("A1:A10"), Array ("text1","text2"))

5) počet buněk obsahujících hodnotu vyplývající ze vzorce:

Dim count As Integer
count = WorksheetFunction.CountIfs (Range ("A1:A10"), "=vzorec")

6) počítání počtu buněk obsahujících hodnotu vyplývající ze vzorce nebo textové hodnoty:

Dim count As Integer
count = WorksheetFunction.CountIfs (Range ("A1:A10"), Array ("=vzorec","text"))

7) počet buněk obsahujících hodnotu, která není výsledkem vzorce:

Dim count As Integer
count = WorksheetFunction.CountIfs(Range("A1:A10"), "<>")

8) počet buněk obsahujících hodnotu, které nesplňují uvedenou podmínku:

Dim count As Integer
count = WorksheetFunction.CountIfs (Range ("A1:A10"),"<>hodnota")

9) počítání počtu buněk obsahujících čísla větší nebo menší než uvedená hodnota:

Dim count As Integer
count = WorksheetFunction.CountIfs(Range("A1:A10"), ">100", Range("B1:B10"), "<50")

10) počítání počtu buněk obsahujících datum v určitém rozsahu:

Dim count As Integer
count = WorksheetFunction.CountIfs(Range("A1:A10"), ">=" & DateSerial(2025, 1, 1), Range("B1:B10"), "

Čtěte také