KRAJINA VBA Ako používať funkciu pracovného hárku COUNTA v programe Excel VBA?

Funkcia pracovného listu COUNTA v programe Excel VBA

V našom staršom článku „Excel COUNTA“ sme videli, ako používať funkciu COUNT na počítanie číselných hodnôt z rozsahu hodnôt. Čo tak spočítať všetky hodnoty v rozsahu buniek? Áno, aj to môžeme počítať. Na spočítanie všetkých hodnôt buniek v rozsahu buniek musíme použiť vzorec „COUNTA“ v programe Excel VBA. V tomto článku vám ukážeme, ako používať funkciu COUNTA vo VBA na spočítanie všetkých hodnôt buniek v dodanom rozsahu.

Príklady funkcie COUNTA vo VBA

Pravda je, že funkcia „COUNTA“ nie je funkciou VBA. Viem, že tvoja otázka je, ak nejde o funkciu VBA, ako ju potom môžeme použiť? Nič sa nebojí, aj keď to nie je funkcia VBA, stále ju môžeme použiť pod triedou funkcií pracovného hárka v kódovaní VBA.

Túto šablónu VBA COUNTA Excel si môžete stiahnuť tu - Šablóna VBA COUNTA Excel

Dobre, napíšme kód na použitie excelovej VBA COUNTA.

Krok 1: Vytvorte názov podprocesu.

Krok 2: Teraz sa najskôr rozhodnite, kam uložíme výsledok funkcie VBA COUNTA. V tomto príklade chcem výsledok uložiť do bunky C2. Takže môj kód bude Range (“C2”). Hodnota.

Kód:

 Sub Counta_Example1 () Range ("C2"). Hodnota = End Sub 

Krok 3: V bunke C2 potrebujeme hodnotu funkcie VBA COUNTA. Ak teda chcete použiť funkciu Excel VBA COUNTA, dovoľte najskôr použiť triedu funkcií listu.

Kód:

 Sub Counta_Example1 () Range ("C2"). Value = Work End Sub 

Krok 4: Po použití triedy funkcií pracovného hárka vyberte bodku pomocou vzorca COUNTA.

Kód:

 Sub Counta_Example1 () Range ("C2"). Hodnota = WorksheetFunction.Count End Sub 

Krok 5: Teraz musíme dodať rozsah buniek, ktoré sa majú spočítať. V tomto príklade musíme počítať rozsah buniek od A1 do A11. Dodajte teda bunky pomocou objektu VBA RANGE.

Kód:

 Sub Counta_Example1 () Range ("C2"). Value = WorksheetFunction.CountA (Range ("A1: A11")) End Sub 

Dobre, spustime kód, aby sme získali výsledok v bunke C2.

Rovnaký výsledok teda vrátil aj VBA COUNTA.

Takto môžeme pomocou COUNTA spočítať neprázdne alebo neprázdne bunky z dodaného rozsahu.

Kódovanie pomocou premenných

Premenné VBA sú kľúčom k vytvoreniu projektu. Teraz pre rovnaké údaje môžeme deklarovať premenné VBA a dospieť k výsledku.

Napríklad si pozrite nasledujúci kód.

Kód:

 Sub Counta_Example2 () Dim CountaRange As Range Dim CountaResultCell As Range Set CountaRange = Range ("A1: A11") Set CountaResultCell = Range ("C2") CountaResultCell = WorksheetFunction.CountA (CountaRange) End Sub 

Teraz si vysvetlíme vyššie uvedený kód.

Najskôr som deklaroval premennú „CountaRange“ ako rozsah, ktorý odkazuje na rozsah hodnôt.

 Dim CountaRange As Range

Ďalej som nastavil referenciu ako Range A1 na A11.

 Nastaviť CountaRange = rozsah ("A1: A11")

Druhá premenná má odkazovať na výslednú bunku COUNTA.

 Dim CountaResultCell As Range

Pre túto premennú som nastavil bunku ako C2.

 Nastaviť CountaResultCell = rozsah ("C2")

Teraz, ako obvykle, som namiesto pevne zakódovaných rozsahov použil funkciu COUNTA pomocou premenných. Teraz sa pozrite na starý kód a tento kód VBA.

Kód 1:

Kód 2:

In code 1 we have Range C2, in Code 2 we have the variable name “CountaResultCell”. Here the variable “CountaResultCell” set reference as C2 cell. So this variable is C2 cell now.

In code 1 COUNTA function range is A1 to A11, in code 2 it is variable called “CountaRange”. This variable holds a reference to the range A1 to A11.

This is what is the difference between old code and code with variables.

So, the COUNTA function helps us to count all the non-empty cells from the supplied range irrespective of the data it has.