COUNTA munkalap funkció az Excel VBA-ban
Korábbi „Excel COUNTA” cikkünkben láthattuk, hogyan használhatjuk a COUNT függvényt a számértékek számlálásához az értéktartományból. Mit szólnál ahhoz, ha az összes értéket megszámolnád a cellatartományban? Igen, ezt is megszámolhatjuk. A cellatartomány összes cellaértékének megszámolásához a „COUNTA” képletet kell használnunk az excel VBA-ban. Ebben a cikkben megmutatjuk, hogyan használhatja a VUN-ban található COUNTA függvényt a szállított tartomány összes cellaértékének megszámolásához.
Példák a COUNTA funkcióra a VBA-ban
Az egyik igazság az, hogy a „COUNTA” funkció nem VBA függvény. Tudom, hogy a kérdése az, hogy ha ez nem VBA függvény, akkor hogyan használjuk? Semmi aggodalom, annak ellenére, hogy ez nem VBA függvény, mégis használhatjuk a munkalap függvényosztály alatt a VBA kódolásban.
Ezt a VBA COUNTA Excel sablont innen töltheti le - VBA COUNTA Excel sablontOk, írjuk be a kódot az excel VBA COUNTA alkalmazásához.
1. lépés: Hozzon létre egy alfolyamat nevet.
2. lépés: Most először döntse el, hol tároljuk a VBA COUNTA függvény eredményét. Ebben a példában az eredményt a C2 cellába szeretném tárolni. Tehát a kódom a Range („C2”) lesz.
Kód:
Sub Counta_Example1 () tartomány ("C2"). Érték = End Sub 
3. lépés: A C2 cellában szükségünk van a VBA COUNTA függvény értékére. Tehát az excel VBA COUNTA függvény alkalmazásához először a munkalap funkcióosztályt kell alkalmazni.
Kód:
Sub Counta_Példa1 () Tartomány ("C2"). Érték = Munka vége 
4. lépés: A munkalap függvényosztályának alkalmazása után válasszon egy pontot a COUNTA képletről.
Kód:
Sub Counta_Példa1 () Tartomány ("C2"). Érték = WorksheetFunction.Count End Sub 
5. lépés: Most meg kell adnunk a számlálandó cellák tartományát. Ebben a példában meg kell számolnunk az A1 és A11 közötti cellatartományt. Tehát szállítsa a cellákat a VBA RANGE objektummal.
Kód:
Sub Counta_Példa1 () Tartomány ("C2"). Érték = WorksheetFunction.CountA (tartomány ("A1: A11")) Vége Sub 
Ok, futtassuk a kódot, hogy megkapjuk az eredményt a C2 cellában.
Tehát ugyanazt az eredményt adta vissza a VBA COUNTA is.
Így használhatjuk a COUNTA-t a nem üres vagy nem üres cellák számításához a mellékelt tartományból.
Kódolás a változókkal
A projekt felépítésének kulcsa a VBA változó. Most ugyanezen adatok vonatkozásában deklarálhatjuk a VBA változókat, és elérhetjük az eredményt.
Például nézze meg az alábbi kódot.
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 Magyarázzuk el most a fenti kódot.
Először deklaráltam a „CountaRange” változót az értéktartomány hivatkozására szolgáló tartományként.
Dim CountaRange As Range
Ezután beállítottam a referenciát az A1 tartományra A11-re.
Set CountaRange = Range ("A1: A11")A második változó a COUNTA eredmény cellájára vonatkozik.
Dim CountaResultCell As Range
Ehhez a változóhoz a cellát C2-ként állítottam be.
Set CountaResultCell = Range ("C2")Most, mint általában, a COUNTA függvényt változókkal alkalmaztam keménykódolt tartományok helyett. Most nézze meg a régi kódot és ezt a VBA kódot.
1. kód:
2. kód:
Az 1. kódban van a C2 tartomány, a 2. kódban a „CountaResultCell” változónév. Itt a „CountaResultCell” változó C2 cellaként állítja be a referenciát. Tehát ez a változó most C2 cella.
Az 1-es kódban a COUNTA függvénytartománya A1-től A11-ig, a 2-es kódban ez a „CountaRange” nevű változó. Ez a változó hivatkozást tartalmaz az A1 és A11 tartományra.
Ez a különbség a régi kód és a változókkal rendelkező kód között.
Tehát a COUNTA funkció segít számunkra az összes nem üres cellát a szállított tartományból, függetlenül a rendelkezésére álló adatoktól.