Funkcija VBA COUNTIF v programu Excel (6 primerov)

Hugh West

15-06-2023 Makroji in Excel VBA
  • Deliti To
Hugh West

Spletna stran COUNTIF v Excelu se uporablja za štetje števila celic v območju, ki izpolnjujejo dani pogoj. V tem članku vam bomo pokazali, kako uporabiti funkcijo COUNTIF funkcijo v Excelu z VBA makro.

Prenos delovnega zvezka

Brezplačni delovni zvezek Excel lahko prenesete s tega mesta.

Funkcija COUNTIF z VBA.xlsm

Funkcija COUNTIF v Excelu

  • Sintaksa

WorksheetFunction.CountIf( Arg1 Kot razpon, Arg2 ) kot dvojnik

  • Parametri
Parameter Obvezno/izbirno Vrsta podatkov Opis
Arg1 Zahtevano Razpon

Razpon celic iz celic štetja.

Arg2 Zahtevano Varianta Število, izraz, sklic na celico ali besedilo, ki določa, katere celice se štejejo. Izraz je lahko na primer 20, "20", ">20", "fruit" ali B2.
  • Vrsta vrnitve

Vrednost kot Double

6 primerov uporabe funkcije COUNTIF v Excelu z VBA

V tem razdelku boste izvedeli, kako uporabljati COUNTIF funkcijo v Excelu za štetje besedil, številk itd. z VBA koda.

1. Funkcija WorksheetFunction s COUNTIF v Excelu VBA

Excelova Delovni listFunkcija lahko uporabite za klicanje večine drugih funkcij v Excelu, ki so na voljo v funkcija Insert pogovorno okno v Excelu in COUNTIF je ena od teh funkcij.

Z zgornjim primerom se bomo naučili, kako uporabiti Delovni listFunkcija s spletno stranjo . COUNTIF za štetje podatkov z VBA v programu Excel.

Koraki:

  • Pritisnite Alt + F11 na tipkovnici ali odprite zavihek Razvijalec -> Visual Basic da odprete Urejevalnik Visual Basic .

  • V pojavnem oknu kode v menijski vrstici kliknite Vstavljanje -> Modul .

  • Kopirajte naslednjo kodo in jo prilepite v okno s kodo. 
 Sub ExCOUNTIF() Razpon("B13") = Application.WorksheetFunction.CountIf(Razpon("B5:B10"), "<3") End Sub

Vaša koda je zdaj pripravljena za zagon.

  • Pritisnite F5 na tipkovnici ali v menijski vrstici izberite Run -> Run Sub/UserForm Lahko tudi kliknete na majhna ikona za predvajanje v podmeniju za zagon makra.

Želeli smo ugotoviti, koliko številk v naši zbirki podatkov je manjših od 3. Po zagonu kode smo dobili rezultat 4, kar je število številk, ki so manjše od 3 v naši zbirki podatkov.

Preberite več: Kako uporabiti COUNTIF med dvema številoma (4 metode)

2. Funkcija COUNTIF za štetje določenega besedila v Excelu

Če želite prešteti določeno besedilo, na primer koliko mest, imen, živil itd. je v Excelovem listu, lahko uporabite COUNTIF funkcijo v VBA .

Iz zgornjega primera se bomo naučili, kako uporabiti COUNTIF za štetje, kolikokrat se ime John se v našem naboru podatkov pojavi z VBA makro.

Koraki:

  • Na enak način kot prej odprite Urejevalnik Visual Basic iz Razvijalec zavihek in Vstavite a Modul v oknu kode.
  • V oknu s kodo kopirajte naslednjo kodo in jo prilepite. 
 Sub CountifText() 'input countName = WorksheetFunction.CountIf(Range("B5:B10"), "John") 'output Range("E7") = countName End Sub

Vaša koda je zdaj pripravljena za zagon.

  • Spustite in dobili boste skupno število.

Če besedila ne želite zapisati neposredno v kodo, ga lahko najprej shranite v spremenljivko in jo pozneje posredujete znotraj kode. Tako kot v spodnji kodi, 

 Sub CountifText() 'vhod Ime = Območje("E6") countName = WorksheetFunction.CountIf(Območje("B5:B10"), Ime) 'izhod Območje("E7") = countName End Sub

Preberite več: Računanje besedila na začetku s funkcijami COUNTIF & LEFT v Excelu

3. Funkcija COUNTIF za izračun števila z VBA

Uporabite lahko COUNTIF funkcijo za pridobivanje določenih rezultatov.

Iz zgornjega primera se bomo naučili, kako uporabiti COUNTIF preštejemo, koliko številk je v našem naboru podatkov, ki so več kot 1,1 s spletno stranjo . VBA makro.

Koraki:

  • Na enak način kot prej odprite Urejevalnik Visual Basic iz Razvijalec zavihek in Vstavite a Modul v oknu kode.
  • V oknu s kodo kopirajte naslednjo kodo in jo prilepite. 
 Sub CountifNumber() 'input countNum = WorksheetFunction.CountIf(Range("B5:B10"), ">1.1") 'output Range("E7") = countNum End Sub

Vaša koda je zdaj pripravljena za zagon.

  • Spustite makro in dobili boste skupno število.

Če številke ne želite zapisati neposredno v kodo, jo lahko najprej shranite v spremenljivko in jo pozneje posredujete znotraj kode. Tako kot v spodnji kodi, 

 Sub CountifNumber() 'input Num = Range("E6") countNum = WorksheetFunction.CountIf(Range("B5:B10"), ">" & Num) 'output Range("E7") = countNum End Sub

Preberite več: Excelov COUNTIF s kriteriji Več kot in Manj kot

Podobna branja

  • Excelova funkcija COUNTIF za štetje celic, ki so večje od 0
  • Kako v Excelu skupaj uporabljati funkciji IF in COUNTIF
  • Excel COUNTIF za štetje celice, ki vsebuje besedilo iz druge celice
  • Kako uporabiti funkcijo COUNTIF za izračun odstotka v Excelu

4. Funkcija COUNTIF z območjem objekta v Excelu

Skupino celic lahko dodelite Objekt obsega in nato uporabite to Objekt obsega za štetje vrednosti v Excelu.

Koraki:

  • Odpri Urejevalnik Visual Basic iz Razvijalec zavihek in Vstavite a Modul v oknu kode.
  • V oknu s kodo kopirajte naslednjo kodo in jo prilepite. 
 Sub ExCountIFRange() Dim iRng As Range "dodelite območje celic Set iRng = Range("B5:B10") "uporabite območje v formuli Range("B13") = WorksheetFunction.SumIf(iRng, ">1") "sprostite objekt območja Set iRng = Nothing End Sub

Vaša koda je zdaj pripravljena za zagon.

  • Spustite kodo in dobili boste skupno število z vrednostjo seštevanja.

Preberite več: Kako uporabiti COUNTIF za nesorodno območje v Excelu

5. Metoda formule COUNTIF v programu Excel

Uporabite lahko tudi Formula in/ali FormulaR1C1 metodo za uporabo COUNTIF v celico v VBA Te metode so bolj prilagodljive pri izvajanju takšnih operacij.

5.1 Metoda formule

Formula metoda omogoča določitev območja celic kot B5:B10 prikazano v spodnjem primeru.

Koraki:

  • V oknu kode Urejevalnik Visual Basic kopirajte naslednjo kodo in jo prilepite. 
 Option Explicit Sub ExCountIfFormula() Range("B13").Formula = "=COUNTIF(B5:B10, "">1"")" End Sub

Vaša koda je zdaj pripravljena za zagon.

Ta del kode vam bo dal skupno število podatkov, ki jih potrebujete.

5.2 Metoda FormulaR1C1

FormulaR1C1 metoda je bolj prilagodljiva, saj ni omejena na določeno območje celic.

Z istim naborom podatkov se bomo zdaj naučili, kako uporabiti FormulaR1C1 za štetje vrednosti v VBA .

Koraki:

  • V oknu kode Urejevalnik Visual Basic kopirajte naslednjo kodo in jo prilepite. 
 Option Explicit Sub ExCountIfFormulaRC() Range("B13").FormulaR1C1 = "=COUNTIF(R[-8]C:R[-1]C,"">2"")" End Sub

Vaša koda je zdaj pripravljena za zagon.

Ta koda vam bo dala tudi skupno število podatkov, ki jih potrebujete.

Če ne želite nastaviti izhodnega območja, lahko to kodo naredite še bolj prilagodljivo, če zapišete takole, 

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

Formula bo preštela celice, ki izpolnjujejo pogoj, in postavila odgovor v ActiveCell v delovnem listu. Območje znotraj COUNTIF se je treba sklicevati na funkcijo z uporabo Vrstica (R) in . Stolpec (C) sintaksa.

Preberite več: Kako uporabiti COUNTIF med dvema vrednostma celic v Excelu

6. Pripisovanje rezultata funkcije COUNTIF spremenljivki

Če želite rezultat formule uporabiti drugje in ne v podatkovnem nizu Excel, ga lahko dodelite spremenljivki in ga uporabite pozneje v kodi.

Spletna stran VBA koda za to je, 

 Sub AssignCountIfVariable() Dim iResult As Double 'Pripišite spremenljivko iResult = Application.WorksheetFunction.CountIf(Range("B5:B10"), "<3") 'Prikaži rezultat MsgBox "Število celic z vrednostjo manj kot 3 je " & iResult End Sub

Rezultat bo prikazan v sporočilnem polju programa Excel.

Preberite več: COUNTIF Excel primer (22 primerov)

Zaključek

V tem članku je bilo prikazano, kako uporabiti COUNTIF funkcijo v Excelu z VBA Upam, da vam je ta članek zelo koristil. Če imate kakršna koli vprašanja v zvezi s to temo, vas prosim, da jih postavite.

Prejšnja objava Kako izračunati večstopenjsko provizijo v Excelu (3 preproste metode)
Naslednja objava Kako povezati datoteke v Excelu (5 različnih pristopov)

Hugh West je zelo izkušen trener Excela in analitik z več kot 10-letnimi izkušnjami v industriji. Po izobrazbi je diplomirani računovodstvo in finance ter magisterij poslovne administracije. Hugh ima strast do poučevanja in je razvil edinstven pristop k poučevanju, ki ga je enostavno slediti in razumeti. Njegovo strokovno znanje o Excelu je pomagalo na tisoče študentom in strokovnjakom po vsem svetu, da so izboljšali svoje sposobnosti in se izkazali v karieri. Prek svojega bloga Hugh deli svoje znanje s svetom, ponuja brezplačne vadnice za Excel in spletno usposabljanje, ki posameznikom in podjetjem pomaga doseči njihov polni potencial.