VBA COUNTIF-funktsioon Excelis (6 näidet)

Hugh West

15-06-2023 Makros &; Excel VBA
  • Jaga Seda
Hugh West

The COUNTIF funktsiooni Excelis kasutatakse selleks, et lugeda antud tingimusele vastavate lahtrite arvu vahemikus. Selles artiklis näitame, kuidas kasutada funktsiooni COUNTIF funktsioon Excelis koos VBA makro.

Lae alla töövihik

Tasuta Exceli harjutusvihiku saate alla laadida siit.

COUNTIF-funktsioon VBA.xlsm abil

COUNTIF funktsioon Excelis

  • Süntaks

WorksheetFunction.CountIf( Arg1 Nagu vahemik, Arg2 ) As Double

  • Parameetrid
Parameeter Kohustuslik/ vabatahtlik Andmete tüüp Kirjeldus
Arg1 Nõutav Range

Ruutude vahemik alates loendurirakendest.

Arg2 Nõutav Variant Number, väljend, lahtriviide või tekst, mis määrab, milliseid lahtreid loendada. Näiteks võib väljend olla 20, "20", ">20", "fruit" või B2.
  • Tagastamise tüüp

Väärtus kui Double

6 näidet funktsiooni COUNTIF kasutamise kohta Excelis VBAga

Selles jaotises saate teada, kuidas kasutada COUNTIF funktsioon Excelis tekstide, numbrite jne loendamiseks koos VBA kood.

1. WorksheetFunction koos COUNTIFiga Excel VBAs

Exceli TöölehtFunktsioon saab kasutada enamiku teiste Exceli funktsioonide kutsumiseks, mis on saadaval Exceli sees funktsioon Insert dialoogiaknas Excelis ja COUNTIF funktsioon on üks neist funktsioonidest.

Ülaltoodud näite abil õpime, kuidas kasutada TöölehtFunktsioon koos COUNTIF andmete loendamiseks koos VBA Excelis.

Sammud:

  • Press Alt + F11 klaviatuuril või mine vahekaardile Arendaja -> Visual Basic avada Visual Basic toimetaja .

  • Avakuva koodiaknas klõpsake menüüribal nuppu Insert -> Moodul .

  • Kopeeri järgmine kood ja kleebi see koodiaknasse. 
 Sub ExCOUNTIF() Range("B13") = Application.WorksheetFunction.CountIf(Range("B5:B10"), "<3") End Sub

Teie kood on nüüd valmis käivitamiseks.

  • Press F5 klaviatuuril või valige menüüribalt Run -> Run Sub/UserFormi käivitamine Võite ka lihtsalt klõpsata väike Play ikoon allmenüüribal makro käivitamiseks.

Tahtsime teada, kui palju on meie andmestikus numbreid, mis on väiksemad kui 3. Pärast koodi käivitamist saime tulemuseks 4, mis on meie andmestiku jaoks alla 3 olevate numbrite arv.

Loe edasi: Kuidas kasutada COUNTIFi kahe arvu vahel (4 meetodit)

2. Funktsioon COUNTIF konkreetse teksti lugemiseks Excelis

Kui soovite lugeda mingit konkreetset teksti, näiteks kui palju linnu või nimesid või toiduaineid jne. on Exceli lehel, siis saate kasutada funktsiooni COUNTIF funktsioon VBA .

Ülaltoodud näite põhjal õpime, kuidas kasutada COUNTIF lugeda, mitu korda nimi John esineb meie andmekogumis koos VBA makro.

Sammud:

  • Samamoodi nagu varem, avatud Visual Basic toimetaja alates Arendaja vahekaart ja Sisesta a Moodul koodiaknas.
  • Kopeerige koodiaknas järgmine kood ja kleepige see sisse. 
 Sub CountifText() 'sisend countName = WorksheetFunction.CountIf(Range("B5:B10"), "John") 'väljund Range("E7") = countName End Sub

Teie kood on nüüd valmis käivitamiseks.

  • Käivita makro ja saate koguarvu.

Kui te ei soovi teksti otse oma koodi kirjutada, siis võite selle esmalt salvestada muutujasse ja hiljem koodis muutuja edasi anda. Nagu alljärgnevas koodis, 

 Sub CountifText() 'sisend Name = Range("E6") countName = WorksheetFunction.CountIf(Range("B5:B10"), Name) 'väljund Range("E7") = countName End Sub

Loe edasi: Loendage teksti alguses COUNTIF & LEFT funktsioonid Excelis

3. COUNTIF funktsioon arvude arvutamiseks VBA abil

Võite kasutada COUNTIF funktsioon teatud tulemuste väljavõtmiseks.

Ülaltoodud näitest õpime, kuidas kasutada COUNTIF loendada, kui palju on meie andmestikus numbreid, mis on suurem kui 1,1 koos VBA makro.

Sammud:

  • Samamoodi nagu varem, avatud Visual Basic toimetaja alates Arendaja vahekaart ja Sisesta a Moodul koodiaknas.
  • Kopeerige koodiaknas järgmine kood ja kleebige see sisse. 
 Sub CountifNumber() 'sisend countNum = WorksheetFunction.CountIf(Range("B5:B10"), ">1.1") 'väljund Range("E7") = countNum End Sub

Teie kood on nüüd valmis käivitamiseks.

  • Käivita makro ja saate koguarvu.

Nagu juba eelnevalt arutatud, kui te ei soovi numbrit otse oma koodi kirjutada, siis võite selle esmalt salvestada muutujasse ja hiljem koodis muutuja edasi anda. Nagu alljärgnevas koodis, 

 Sub CountifNumber() 'sisend Num = Range("E6") countNum = WorksheetFunction.CountIf(Range("B5:B10"), ">" & Num) 'väljund Range("E7") = countNum End Sub

Loe edasi: Exceli COUNTIF suurema kui ja väiksema kui kriteeriumidega

Sarnased lugemised

  • Exceli COUNTIF funktsioon lahtrite lugemiseks, mis on suuremad kui 0
  • Kuidas kasutada IF- ja COUNTIF-funktsioone koos Excelis
  • Exceli COUNTIF, et lugeda lahtrit, mis sisaldab teksti teisest lahtrist
  • Kuidas kasutada COUNTIF-funktsiooni protsendi arvutamiseks Excelis

4. COUNTIF-funktsioon koos objekti vahemikuga Excelis

Saate määrata rakkude rühma Vahemiku objekt ja seejärel kasutada seda Vahemiku objekt väärtuste lugemiseks Excelis.

Sammud:

  • Avatud Visual Basic toimetaja alates Arendaja vahekaart ja Sisesta a Moodul koodiaknas.
  • Kopeerige koodiaknas järgmine kood ja kleepige see sisse. 
 Sub ExCountIFRange() Dim iRng As Range 'määrame rakkude vahemiku Set iRng = Range("B5:B10") 'kasutame vahemikku valemis Range("B13") = WorksheetFunction.SumIf(iRng, ">1") 'vabastame vahemiku objekti Set iRng = Nothing End Sub

Teie kood on nüüd valmis käivitamiseks.

  • Käivita koodi ja saate summaarse arvu koos summeerimisväärtusega.

Loe edasi: Kuidas kasutada COUNTIFi mitte-ühenduva vahemiku jaoks Excelis

5. COUNTIF valemimeetod Excelis

Võite kasutada ka Valem ja/või ValemR1C1 meetodit, et rakendada COUNTIF lahtrisse VBA Need meetodid on selliste toimingute tegemisel paindlikumad.

5.1. Valemimeetod

Valem meetod võimaldab määrata lahtrite vahemiku kui B5:B10 mis on näidatud allpool esitatud näites.

Sammud:

  • Koodiaknas Visual Basic toimetaja , kopeeri järgmine kood ja kleebi see sisse. 
 Option Explicit Sub ExCountIfFormula() Range("B13").Formula = "=COUNTIF(B5:B10, "">1"")" End Sub

Teie kood on nüüd valmis käivitamiseks.

See kooditükk annab teile vajalike andmete koguarvu.

5.2. ValemR1C1 Meetod

ValemR1C1 meetod on paindlikum, kuna see ei piirdu kindla rakkude vahemikuga.

Sama andmestikuga õpime nüüd, kuidas kasutada ValemR1C1 väärtuste loendamiseks VBA .

Sammud:

  • Koodiaknas Visual Basic toimetaja , kopeeri järgmine kood ja kleebi see sisse. 
 Option Explicit Sub ExCountIfFormulaRC() Range("B13").FormulaR1C1 = "=COUNTIF(R[-8]C:R[-1]C,"">2"")" End Sub

Teie kood on nüüd valmis käivitamiseks.

See kood annab teile ka vajalike andmete koguarvu.

Kui te ei soovi väljundvahemikku määrata, siis saate selle koodi veelgi paindlikumaks muuta, kirjutades nii, 

 Option Explicit Sub ExCountIfFormulaRC() ActiveCell.FormulaR1C1 = "=COUNTIF(R[-8]C:R[-1]C,"">2"")" End Sub

Valem loeb lahtrid, mis vastavad tingimusele, ja paigutab vastuse lahtrisse ActiveCell oma töölehel. COUNTIF funktsioonile tuleb viidata, kasutades Rida (R) ja Veerg (C) süntaks.

Loe edasi: Kuidas rakendada COUNTIFi kahe lahtri väärtuste vahel Excelis

6. Funktsiooni COUNTIF tulemuse määramine muutujale

Kui soovite kasutada oma valemi tulemust mujal kui Exceli andmekogumis, võite määrata tulemuse muutujale ja kasutada seda hiljem oma koodis.

The VBA kood selleks on, 

 Sub AssignCountIfVariable() Dim iResult As Double 'Määrake muutuja iResult = Application.WorksheetFunction.CountIf(Range("B5:B10"), "<3") 'Näita tulemust MsgBox "The count of cells with value less than 3 is " & iResult End Sub

Tulemus kuvatakse Exceli sõnumikastis.

Loe edasi: COUNTIF Exceli näide (22 näidet)

Kokkuvõte

See artikkel näitas, kuidas kasutada COUNTIF funktsioon Excelis koos VBA . ma loodan, et see artikkel oli teile väga kasulik. Küsige julgelt, kui teil on küsimusi selle teema kohta.

Eelmine postitus Kuidas arvutada astmeline komisjon Excelis (3 lihtsat meetodit)
Järgmine postitus Kuidas siduda faile Excelis (5 erinevat lähenemisviisi)

Hugh West on suurte kogemustega Exceli koolitaja ja analüütik, kellel on selles valdkonnas üle 10-aastane kogemus. Tal on raamatupidamise ja rahanduse bakalaureusekraad ning ärijuhtimise magistrikraad. Hugh’l on kirg õpetamise vastu ning ta on välja töötanud ainulaadse õpetamisviisi, mida on lihtne järgida ja mõista. Tema Exceli ekspertteadmised on aidanud tuhandetel õpilastel ja spetsialistidel üle maailma oma oskusi parandada ja karjääris silma paista. Oma ajaveebi kaudu jagab Hugh oma teadmisi maailmaga, pakkudes tasuta Exceli õpetusi ja veebikoolitusi, mis aitavad üksikisikutel ja ettevõtetel oma potentsiaali täielikult ära kasutada.