VBA COUNTIF
A kritériumokon alapuló függvények az excel uralkodói a számításokban. Az excel tanulásának kezdetén bizonyára meg kell tanulnunk a COUTNIF folyamatot excelben. Korábbi cikkeinkben bemutattuk, hogyan kell működni a COUNTIF függvénnyel az Excel VBA-ban.
Az Excel VBA COUNTIF-funkciójának alapjairól olvassa el az COUNTIF-képlet az Excel-ben című cikkünket. Ebben a cikkben megmutatjuk, hogyan használhatja ugyanazt a funkciót a VBA kódolásban. Most ugyanazt a képletet fogjuk látni a VBA-ban. Először is, a COUNTIF nem VBA függvény; ehelyett egy munkalapfüggvény, amely a munkalapfüggvényosztály alatt érhető el.
Példa az Excel VBA Countif függvényre
Ok, lássuk az egyszerű példát.
Nézze meg az alábbi példát az értékek számlálásához a tételből.
A fenti képen városneveket láthatunk az A1 és A10 cellák között. A C3 cellában meg kell számolnunk, hogy az A1-től A10-ig terjedő tartományban hányszor szerepel a „Bangalore” városnév.
Ok, kövesse az alábbi lépéseket a kód megírásához a COUNTIF függvény alkalmazásához.
1. lépés: Indítsa el a Sub eljárást.
Kód:
Opció Explicit Sub Countif_Példa1 () End Sub
2. lépés: Mivel az eredményt a C3 cellában kell tárolnunk, indítsa el a Tartományt („C3”).
Kód:
Sub Countif_Example1 () tartomány ("C3"). Érték = End Sub
3. lépés: A C3 cellában az excel VBA COUNTIF függvény alkalmazásával megpróbáljuk elérni az eredményt. Tehát a funkció eléréséhez először a Worksheet Function osztályt kell használnunk.
Kód:
Sub Countif_Példa1 () Tartomány ("C3"). Érték = WorksheetFunction. End Sub
4. lépés: Az elveszett select excel VBA COUNTIF függvényből.
Kód:
Sub Countif_Example1 () tartomány ("C3"). Érték = WorksheetFunction.CountIf (End Sub
5. lépés: Ha megnézzük a VBA COUNTIF függvény paramétereit, akkor nem látjuk a paramétert, ahogyan azt a munkalapon láthatjuk.
Amint a munkalap fenti képén láthatjuk, pontos szintaxissal rendelkezünk, de a VBA-ban csak Arg 1 és Arg 2 láthatunk.
Az Arg 1 a Tartomány, ezért válassza a tartományt A1-től A10-ig.
Kód:
Sub Countif_Example1 () tartomány ("C3"). Érték = WorksheetFunction.CountIf (tartomány ("A1: A10"), End Sub
6. lépés: Az Arg 2 az az érték, amelyet meg kell számolnunk az A1 és A10 tartományok között. Ebben a példában ki kell számolnunk a „Bangalore” -t.
Kód:
Sub Countif_Example1 () tartomány ("C3"). Érték = WorksheetFunction.CountIf (tartomány ("A1: A10"), "Bangalore") Vége Sub
Ok, készen vagyunk.
Futtassa a kódot az eredmény megtekintéséhez a C3 cellában.
Az eredményt 4-ben kaptuk. Mivel az A1 cellában megjelenő „Bangalore” városnév, az A4, A7 és A10 VBA COUNTIF függvény 4-ként adta vissza a terméket.
Ha látja, hogy a VBA kód csak a képlet eredményét adta vissza, akkor nem ismerjük meg a képletsávban található eljárást.
A képlet eléréséhez kissé másképp kell megírnunk a kódot. Az alábbiakban látható a kód, amellyel magát a képletet alkalmazhatja a cellára.
Kód:
Sub Countif_Példa1 () Tartomány ("C3"). Képlet = "= CountIf (A1: A10," "Bangalore" ")" Vége Sub
Ez a képletet alkalmazza a C3 cellára.
Érje el az eredményt a változókkal
A változók minden kódoló nyelv szerves részét képezik. Deklarálnunk kell a változókat, hogy hatékonyan működjenek együtt a VBA kóddal. Nézze meg például az alábbi kódot.
Kód:
Sub Countif_Example2() Dim ValuesRange As Range Dim ResultCell As Range Dim CriteriaValue As String Set ValuesRange = Range("A1:A10") Set ResultCell = Range("C3") CriteriaValue = "Bangalore" ResultCell = WorksheetFunction.CountIf(ValuesRange, CriteriaValue) End Sub
Let me decode the code for you to understand better.
Firstly I have declared the two variables as Range.
Dim ValuesRange As Range: This is to reference the list of values.
Dim ResultCell As Range: This to reference the result cell.
Then I have set the range of references to both the variables.
Set ValuesRange = Range(“A1: A10”): This is the range where all the city names are there.
Set ResultCell = Range(“C3”): In this cell, we will store the result of the COUNTIF function.
In the meantime, I have declared one more variable to store the criteria value.
Dim CriteriaValue As String
CriteriaValue = “Bangalore”
Tehát most a „CriteteriaValue” változó tartja a „Bangalore” értéket.
A következő sorban, mint általában, a COUTNIF függvényt alkalmaztam.
ResultCell = WorksheetFunction.CountIf (ValuesRange, CriteriaValue)
Így alkalmazhatjuk a COUNTIF függvényt az Excel VBA-ban, hogy megfeleljen az igényeinknek.
