VBA COUNTIF (näited) - Kuidas kasutada funktsiooni COUNTIF Exceli VBA-s?

Lang L: none (table-of-contents)

VBA COUNTIF

Kriteeriumipõhised funktsioonid on arvutuste puhul Exceli valitsejad. Exceli õppimise alguses peame COUTNIFi protsessi õppima excelis. Oma varasemates artiklites oleme näidanud, kuidas töötada funktsiooniga COUNTIF Exceli VBA-s.

Exceli VBA funktsiooni COUNTIF põhitõdede tundmiseks lugege meie artiklit Exceli COUNTIF-valemi kohta. Selles artiklis me näitame teile, kuidas kasutada sama funktsiooni VBA kodeerimisel. Nüüd näeme sama valemit ka VBA-s. Esiteks ei ole COUNTIF VBA-funktsioon; selle asemel on see töölehe funktsioon, millele pääseb juurde töölehe funktsioonide klassi alt.

Exceli VBA Countif-funktsiooni näide

Ok, vaatame lihtsat näidet.

Vaadake allpool toodud näidet väärtuste loendamisest partiist.

Ülaltoodud pildil on meil linnanimed lahtrist A1 kuni A10. Lahtris C3 peame loendama, mitu korda vahemikus A1 kuni A10 esinev linnanimi “Bangalore”.

Ok, järgige koodi kirjutamiseks funktsiooni COUNTIF rakendamiseks järgmisi samme.

1. samm: käivitage alamprotseduur.

Kood:

Valik Selgesõnaline alamtõend_näide1 () Lõpeta alam

2. samm: kuna me peame tulemuse lahtrisse C3 salvestama, käivitage vahemik (“C3”).

Kood:

Sub Countif_Example1 () vahemik ("C3"). Väärtus = End Sub

Samm 3: Rakenduses excel VBA COUNTIF rakendades proovime lahtris C3 jõuda tulemuseni. Nii et funktsioonile pääsemiseks peame kõigepealt kasutama klassi Worksheet Function.

Kood:

Sub Countif_Example1 () vahemik ("C3"). Väärtus = WorksheetFunction. Lõpeta alam

4. samm: kadunud valige Exceli funktsioon VBA COUNTIF.

Kood:

Sub Countif_Example1 () Range ("C3"). Väärtus = WorksheetFunction.CountIf (End Sub

5. samm: kui vaatate funktsiooni VBA COUNTIF parameetreid, ei näe me parameetrit, nagu näeme töölehel.

Nagu näeme töölehe ülaltoodud pildil, on meil täpne süntaks, kuid VBA-s näeme ainult Arg 1 ja Arg 2.

Arg 1 on vahemik, seega valige vahemikuks A1 kuni A10.

Kood:

Sub Countif_Example1 () Range ("C3"). Väärtus = WorksheetFunction.CountIf (Range ("A1: A10"), Sub Sub

6. samm: Arg 2 on väärtus, mida peame loendama vahemikust A1 kuni A10. Selles näites peame arvutama „Bangalore”.

Kood:

Sub Countif_Example1 () Range ("C3"). Väärtus = WorksheetFunction.CountIf (Range ("A1: A10"), "Bangalore") End Sub

Ok, oleme valmis.

Lahtris C3 tulemuse nägemiseks käivitage kood.

Tulemuseks saime 4. Kuna lahtrites A1, A4, A7 ja A10 funktsioonis VBA COUNTIF kuvatav linnanimi “Bangalore” tagastas toote 4-na.

If you can see VBA code has returned only the result of the formula, we don’t get to know the procedure in the formula bar.

To arrive at the formula, we need to write the code slightly differently. Below is the code for you to apply the formula itself to the cell.

Code:

Sub Countif_Example1() Range("C3").Formula = "=CountIf(A1:A10, ""Bangalore"")" End Sub

This will apply the formula to the cell C3.

Arrive Result with Variables

Variables are an integral part of any coding language. We need to declare variables to work efficiently with the VBA code. For example, look at the below code.

Code:

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.

Hämarate kriteeriumide väärtus stringina

CriteriaValue = "Bangalore"

Nii et muutuja „CriteteriaValue” omab nüüd väärtust „Bangalore”.

Järgmisel real olen nagu tavaliselt rakendanud funktsiooni COUTNIF.

ResultCell = WorksheetFunction.CountIf (ValuesRange, CriteriaValue)

Nii saame Excel VBA-s funktsiooni COUNTIF rakendada vastavalt oma vajadustele.

Huvitavad Artiklid...