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ólna az összes költség kiszámításához a cellák területén? Igen, ezt is megbecsülhetjük. A cellatartományban lévő összes cellaérték megszámolásához a „COUNTA” képletet kell használnunk az excel VBA-ban. Ebben a cikkben megmutatjuk, hogyan használhatja a VUN COUNTA függvényét 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 nem VBA függvény, akkor hogyan használjuk? Semmi sem aggaszt, bár ez nem VBA funkció; mégis használhatjuk a munkalap függvényosztály alatt a VBA kódolásban.
Ok, írjuk be az excel VBA COUNTA alkalmazásához a kódot.
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 meg akarom tartani a munkát a C2 cellában. 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 funkció alkalmazásához először használja a munkalap funkcióosztályt.
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 ki kell számolnunk az A1 és A11 közötti cellatartományt. A cellák biztosítása a VBA RANGE objektum használatával.
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.
Nézze meg például 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 a „CountaRange” változót deklaráltam tartományként, hogy hivatkozhassunk az értéktartományra.
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 megvan a C2 tartomány. A 2. kódban a „CountaResultCell” változónév van. 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. kódban a COUNTA funkciótartomány A1-től A11-ig terjed. A 2. szabályban ez egy „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 ellátott 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.
