Portāls COUNTIF funkciju programmā Excel izmanto, lai saskaitītu to šūnu skaitu diapazonā, kas atbilst dotajam nosacījumam. Šajā rakstā mēs parādīsim, kā izmantot funkciju COUNTIF funkciju programmā Excel ar VBA makro.

Lejupielādēt darba burtnīcu

No šejienes varat lejupielādēt bezmaksas praktisko Excel darba burtnīcu.

COUNTIF funkcija ar VBA.xlsm

COUNTIF funkcija programmā Excel

• Sintakse

WorksheetFunction.CountIf( Arg1 Kā diapazons, Arg2 ) Kā dubultnieks

• Parametri

• Atgriešanas veids

Vērtība kā Double

6 piemēri par COUNTIF funkcijas izmantošanu programmā Excel ar VBA

Šajā sadaļā uzzināsiet, kā izmantot COUNTIF funkciju programmā Excel, lai saskaitītu tekstus, skaitļus utt. ar VBA kods.

1. Darblapas funkcija ar COUNTIF programmā Excel VBA

Excel Darblapu funkcija var izmantot, lai izsauktu lielāko daļu citu Excel funkciju, kas ir pieejamas programmā. funkcija Insert dialoglodziņu programmā Excel un COUNTIF funkcija ir viena no šīm funkcijām.

Izmantojot iepriekš minēto piemēru, mēs iemācīsimies, kā izmantot Darblapas funkcija ar COUNTIF skaitīt datus ar VBA programmā Excel.

Soļi:

• Preses Alt + F11 uz tastatūras vai atveriet cilni Izstrādātājs -> Visual Basic lai atvērtu Visual Basic redaktors .

• Iznirstošajā koda logā izvēlnes joslā noklikšķiniet uz Ievietot -> Modulis .

• Nokopējiet un ielīmējiet kodu logā šādu kodu.

 Sub ExCOUNTIF() Range("B13") = Application.WorksheetFunction.CountIf(Range("B5:B10"), "<3") End Sub 

Tagad jūsu kods ir gatavs darbam.

• Preses F5 uz tastatūras vai izvēlnes joslā izvēlieties Run -> Run Sub/UserForm Varat arī vienkārši noklikšķināt uz maza ikona Atskaņot apakšizvēlnes joslā, lai palaistu makro.

Mēs vēlējāmies noskaidrot, cik daudz skaitļu mūsu datu kopā ir mazāki par 3. Pēc koda izpildes mēs saņēmām rezultātu 4, kas ir skaitļu skaits, kuri ir mazāki par 3 mūsu datu kopā.

Lasīt vairāk: Kā lietot COUNTIF starp diviem skaitļiem (4 metodes)

2. COUNTIF funkcija, lai Excel programmā Excel saskaitītu konkrētu tekstu

Ja vēlaties saskaitīt konkrētu tekstu, piemēram, cik daudz pilsētu, nosaukumu vai pārtikas produktu u. c. ir Excel lapā, varat izmantot funkciju COUNTIF funkcija VBA .

No iepriekš minētā piemēra mēs uzzināsim, kā izmantot COUNTIF lai saskaitītu, cik reižu vārds Džons mūsu datu kopā ar VBA makro.

Soļi:

• Tāpat kā iepriekš, atveriet Visual Basic redaktors no Izstrādātājs cilne un Ievietot a Modulis koda logā.
• Koda logā nokopējiet un ielīmējiet šādu kodu.

 Sub CountifText() 'input countName = WorksheetFunction.CountIf(Range("B5:B10"), "John") 'output Range("E7") = countName End Sub 

Tagad jūsu kods ir gatavs darbam.

• Palaist makro un iegūsiet kopējo skaitu.

Ja nevēlaties rakstīt tekstu tieši kodā, varat to vispirms saglabāt mainīgajā un vēlāk nodot mainīgo kodā. Tāpat kā tālāk dotajā kodā,

 Sub CountifText() 'ievade Nosaukums = Range("E6") countName = WorksheetFunction.CountIf(Range("B5:B10"), Nosaukums) 'izvade Range("E7") = countName End Sub 

Lasīt vairāk: Teksta skaitīšana sākumā ar COUNTIF & amp; LEFT funkcijas programmā Excel

3. COUNTIF funkcija, lai aprēķinātu skaitli ar VBA

Varat izmantot COUNTIF funkciju, lai iegūtu konkrētus rezultātus.

No iepriekš minētā piemēra mēs uzzināsim, kā izmantot COUNTIF lai saskaitītu, cik daudz skaitļu mūsu datu kopā ir. lielāks par 1,1 ar VBA makro.

Soļi:

• Tāpat kā iepriekš, atveriet Visual Basic redaktors no Izstrādātājs cilne un Ievietot a Modulis koda logā.
• Koda logā nokopējiet un ielīmējiet šādu kodu.

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

Tagad jūsu kods ir gatavs darbam.

• Palaist makro un iegūsiet kopējo skaitu.

Kā jau minēts iepriekš, ja nevēlaties rakstīt skaitli tieši kodā, tad varat to vispirms saglabāt mainīgajā un pēc tam nodot mainīgo kodā. Tāpat kā tālāk dotajā kodā,

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

Lasīt vairāk: Excel COUNTIF ar kritērijiem Lielāks par un Mazāks par

Līdzīgi lasījumi

• Excel COUNTIF funkcija, lai saskaitītu šūnas, kas lielākas par 0
• Kā lietot IF un COUNTIF funkcijas kopā programmā Excel
• Excel COUNTIF, lai saskaitītu šūnas, kas satur tekstu no citas šūnas
• Kā lietot funkciju COUNTIF, lai aprēķinātu procentuālo daļu programmā Excel

4. COUNTIF funkcija ar objekta diapazonu programmā Excel

Šūnu grupai varat piešķirt Diapazona objekts un pēc tam izmantojiet šo Diapazona objekts lai Excel programmā saskaitītu vērtības.

Soļi:

• Atvērt Visual Basic redaktors no Izstrādātājs cilne un Ievietot a Modulis koda logā.
• Koda logā nokopējiet un ielīmējiet šādu kodu.

 Sub ExCountIFRange() Dim iRng As Range 'piešķirt šūnu diapazonu Set iRng = Range("B5:B10") 'izmantot diapazonu formulā Range("B13") = WorksheetFunction.SumIf(iRng, ">1") 'atbrīvot diapazona objektu Set iRng = Nothing End Sub 

Tagad jūsu kods ir gatavs darbam.

• Palaist kodu, un jūs saņemsiet kopējo skaitu ar summēšanas vērtību.

Lasīt vairāk: Kā lietot COUNTIF nesavienojamam diapazonam programmā Excel

5. COUNTIF formulas metode programmā Excel

Varat izmantot arī Formula un/vai FormulaR1C1 metode, lai piemērotu COUNTIF uz šūnu VBA Šīs metodes ir elastīgākas šādu darbību veikšanā.

5.1. Formulas metode

Formula metode ļauj norādīt šūnu diapazonu kā B5:B10 norādīts turpmāk dotajā piemērā.

Soļi:

• Programmas koda logā Visual Basic redaktors , kopējiet un ielīmējiet šādu kodu.

 Option Explicit Sub ExCountIfFormula() Range("B13").Formula = "=COUNTIF(B5:B10, "">1"")" End Sub 

Tagad jūsu kods ir gatavs darbam.

Šī koda daļa sniegs kopējo nepieciešamo datu skaitu.

5.2. FormulaR1C1 metode

FormulaR1C1 metode ir elastīgāka, jo tā neaprobežojas ar noteiktu šūnu diapazonu.

Izmantojot to pašu datu kopu, mēs tagad iemācīsimies, kā izmantot FormulaR1C1 lai saskaitītu vērtības VBA .

Soļi:

• Programmas koda logā Visual Basic redaktors , kopējiet un ielīmējiet šādu kodu.

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

Tagad jūsu kods ir gatavs darbam.

Šis kods arī sniegs kopējo nepieciešamo datu skaitu.

Ja nevēlaties iestatīt izejas diapazonu, tad šo kodu varat padarīt vēl elastīgāku, rakstot šādi,

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

Formula saskaitīs šūnas, kas atbilst nosacījumam, un ievietos atbildi šūnā ActiveCell savā darblapā. Diapazons, kas atrodas COUNTIF uz funkciju jānorāda, izmantojot Rinda (R) un Kolonna (C) sintakse.

Lasīt vairāk: Kā lietot COUNTIF starp divām šūnu vērtībām programmā Excel

6. COUNTIF funkcijas rezultāta piešķiršana mainīgajam lielumam

Ja formulas rezultātu vēlaties izmantot citur, nevis Excel datu kopā, rezultātu varat piešķirt mainīgajam un izmantot to vēlāk kodā.

Portāls VBA kods ir šāds,

 Sub AssignCountIfVariable() Dim iResult As Double 'Piešķirt mainīgo iResult = Application.WorksheetFunction.CountIf(Range("B5:B10"), "<3") 'Parādīt rezultātu MsgBox "To šūnu skaits, kuru vērtība ir mazāka par 3, ir " & iResult End Sub 

Rezultāts tiks parādīts Excel ziņojuma lodziņā.

Lasīt vairāk: COUNTIF Excel piemērs (22 piemēri)

Secinājums

Šajā rakstā tika parādīts, kā izmantot COUNTIF funkciju programmā Excel ar VBA . es ceru, ka šis raksts jums ir bijis ļoti noderīgs. Ja jums ir kādi jautājumi par šo tēmu, droši jautājiet.