VBA COUNTIF
Kriteeripohjaiset toiminnot ovat Excelin hallitsijoita laskelmissa. Excelin oppimisen alussa meidän on opittava COUTNIF-prosessi excelissä. Aikaisemmissa artikkeleissamme olemme osoittaneet, kuinka voit käyttää COUNTIF-toimintoa Excel VBA: ssa.
Tutustu COUNTIF-kaavaa koskevaan artikkeliin Excelissä, jotta saat tietää COUNTIF-toiminnon perusteet Excel VBA: ssa. Tässä artikkelissa näytämme, kuinka samaa toimintoa voidaan käyttää VBA-koodauksessa. Nyt näemme saman kaavan VBA: ssa. Ensinnäkin COUNTIF ei ole VBA-toiminto; sen sijaan se on laskentataulukko-toiminto, jota voidaan käyttää laskentataulukon toimintoluokassa.
Esimerkki Excel VBA Countif -toiminnosta
Ok, katsotaanpa yksinkertainen esimerkki.
Katso alla olevaa samaa esimerkkiä arvojen laskemisesta erästä.
Yllä olevassa kuvassa meillä on kaupunkien nimet solusta A1 A10. Solussa C3 on laskettava, kuinka monta kertaa kaupungin nimi “Bangalore” esiintyy alueella A1 - A10.
Ok, kirjoita koodi noudattamalla seuraavia vaiheita, jotta COUNTIF-toiminto otetaan käyttöön.
Vaihe 1: Aloita alimenettely.
Koodi:
Vaihtoehto Explicit Sub Countif_Example1 () End Sub
Vaihe 2: Koska tulos on tallennettava soluun C3, aloita alue (“C3”).
Koodi:
Sub Countif_Example1 () -alue ("C3"). Arvo = End Sub
Vaihe 3: Solussa C3 yritämme saavuttaa tulos käyttämällä excel VBA COUNTIF -funktiota. Joten funktion käyttämiseksi meidän on ensin käytettävä laskentataulukon toimintoluokkaa.
Koodi:
Sub Countif_Example1 () -alue ("C3"). Arvo = WorksheetFunction. End Sub
Vaihe 4: Kadonneesta Select excel VBA COUNTIF -toiminnosta.
Koodi:
Sub Countif_Example1 () -alue ("C3"). Arvo = WorksheetFunction.CountIf (End Sub
Vaihe 5: Jos tarkastelet VBA COUNTIF -funktion parametreja, emme näe parametria, kuten näemme laskentataulukossa.
Kuten näemme taulukon yllä olevasta kuvasta, meillä on tarkka syntaksitapa, mutta VBA: ssa voimme nähdä vain Arg 1 & Arg 2.
Arg 1 on Alue, joten valitse alueeksi A1 - A10.
Koodi:
Sub Countif_Example1 () -alue ("C3"). Arvo = WorksheetFunction.CountIf (alue ("A1: A10"), End Sub
Vaihe 6: Arg 2 on arvo, joka meidän on laskettava alueelta A1 - A10. Tässä esimerkissä meidän on laskettava "Bangalore".
Koodi:
Sub Countif_Example1 () -alue ("C3"). Arvo = WorksheetFunction.CountIf (Range ("A1: A10"), "Bangalore") End Sub
Ok, olemme valmiit.
Suorita koodi nähdäksesi tulokset solussa C3.
Saimme tuloksen 4. Koska soluissa A1, A4, A7 ja A10 VBA COUNTIF näkyvä kaupungin nimi “Bangalore” palautti tuotteen arvoksi 4.
Jos näet, että VBA-koodi on palauttanut vain kaavan tuloksen, emme tunne kaavapalkin menettelytapaa.
Kaavaan pääsemiseksi meidän on kirjoitettava koodi hieman eri tavalla. Alla on koodi, jolla voit käyttää kaavaa itse soluun.
Koodi:
Sub Countif_Example1 () -alue ("C3"). Kaava = "= CountIf (A1: A10," "Bangalore" ")" End Sub
Tämä soveltaa kaavaa soluun C3.
Saavuta tulos muuttujien avulla
Muuttujat ovat olennainen osa koodauskieliä. Meidän on ilmoitettava muuttujat toimimaan tehokkaasti VBA-koodin kanssa. Katso esimerkiksi alla oleva koodi.
Koodi:
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 merkkijonona
CriteriaValue = “Bangalore”
Joten nyt muuttujalla "CriteteriaValue" on arvo "Bangalore".
Seuraavassa rivissä, kuten tavallista, olen käyttänyt COUTNIF-toimintoa.
ResultCell = WorksheetFunction.CountIf (ValuesRange, CriteriaValue)
Tällä tavoin voimme soveltaa COUNTIF-funktiota Excel VBA: ssa tarpeidesi mukaan.
