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 vypočítať všetky náklady v oblasti buniek? Áno, môžeme to odhadnúť tiež. Ak chcete spočítať všetky hodnoty 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
Jednou z pravdy je, že funkcia „COUNTA“ nie je funkciou VBA. Viem, že tvoja otázka je, že ak nejde o funkciu VBA, ako ju potom môžeme použiť? Nič sa nebojí, aj keď nejde o funkciu VBA; stále ho môžeme použiť pod triedou funkcií listu v kódovaní VBA.
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 zachovať prácu v bunke 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. Aby sme teda mohli použiť funkciu Excel VBA COUNTA, najskôr použite 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 vypočítať rozsah buniek od A1 do A11. Poskytnúť bunky pomocou objektu VBA RANGE.
Kód:
Sub Counta_Example1 () Range ("C2"). Value = WorksheetFunction.CountA (Range ("A1: A11")) End Sub
Dobre, spustíme 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.
Najprv 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:
V kóde 1 máme Range C2. V kóde 2 máme názov premennej „CountaResultCell.“ Tu premenná „CountaResultCell“ nastavila odkaz na bunku C2. Takže táto premenná je teraz bunkou C2.
V kóde 1 je rozsah funkcií COUNTA od A1 do A11. V predpise 2 ide o premennú nazvanú „CountaRange“. Táto premenná obsahuje odkaz na rozsah A1 až A11.
V tom je rozdiel medzi starým kódom a kódom s premennými.
Funkcia COUNTA nám teda pomáha spočítať všetky neprázdne bunky z dodaného rozsahu bez ohľadu na údaje, ktoré má.
