VBA COUNTIF (primjeri) - Kako koristiti funkciju COUNTIF u programu Excel VBA?

Sadržaj

VBA COUNTIF

VBA COUNTIF

Funkcije temeljene na kriterijima vladari su excelom u izračunima. Na početku učenja excela morali smo naučiti COUTNIF proces u excelu. U našim ranijim člancima pokazali smo vam kako raditi s funkcijom COUNTIF u programu Excel VBA.

Pogledajte naš članak o formuli COUNTIF u Excelu da biste saznali osnove funkcije COUNTIF u programu Excel VBA. U ovom ćemo vam članku pokazati kako koristiti istu funkciju u VBA kodiranju. Sad ćemo vidjeti istu formulu u VBA. Prvo, COUNTIF nije VBA funkcija; umjesto toga, to je funkcija radnog lista kojoj se može pristupiti u klasi funkcije radnog lista.

Primjer funkcije Excel Counter Counter

Ok, pogledajmo jednostavan primjer.

Pogledajte donji isti primjer brojanja vrijednosti iz serije.

Na gornjoj slici imamo imena gradova od ćelije A1 do A10. U ćeliji C3 moramo izračunati koliko se puta naziv grada "Bangalore" pojavljuje u rasponu od A1 do A10.

U redu, slijedite korake u nastavku za pisanje koda za primjenu funkcije COUNTIF.

Korak 1: Pokrenite Sub postupak.

Kodirati:

Opcija Eksplicitno Sub Countif_Example1 () Kraj Sub

Korak 2: Budući da moramo pohraniti rezultat u ćeliju C3, pokrenimo Raspon ("C3"). Vrijednost.

Kodirati:

Sub Countif_Example1 () Raspon ("C3"). Vrijednost = Kraj Sub

Korak 3: U ćeliji C3 primjenom excel VBA COUNTIF funkcije pokušavamo doći do rezultata. Dakle, da bismo pristupili funkciji, prvo trebamo koristiti klasu Funkcija radnog lista.

Kodirati:

Sub Countif_Example1 () Raspon ("C3"). Vrijednost = Funkcija radnog lista. Kraj pod

Korak 4: Iz izgubljene funkcije odaberite excel VBA COUNTIF.

Kodirati:

Sub Countif_Example1 () Raspon ("C3"). Vrijednost = WorksheetFunction.CountIf (End Sub

Korak 5: Ako pogledate parametre funkcije VBA COUNTIF, parametar ne vidimo, kao što vidimo na radnom listu.

Kao što možemo vidjeti na gornjoj slici u radnom listu, imamo točnu sintaksu, ali u VBA možemo vidjeti samo Arg 1 i Arg 2.

Arg 1 je domet, pa odaberite raspon od A1 do A10.

Kodirati:

Sub Countif_Example1 () Raspon ("C3"). Vrijednost = Radni listFunction.CountIf (Raspon ("A1: A10"), Kraj Sub

Korak 6: Arg 2 je vrijednost koju trebamo računati od raspona A1 do A10. U ovom primjeru moramo izračunati "Bangalore".

Kodirati:

Sub Countif_Example1 () Raspon ("C3"). Vrijednost = Radni listFunction.CountIf (Raspon ("A1: A10"), "Bangalore") Kraj Sub

Ok, gotovi smo.

Pokrenite kôd da biste vidjeli rezultat u ćeliji C3.

Rezultat smo dobili kao 4. Budući da se naziv grada "Bangalore" koji se pojavljuje u ćeliji A1, A4, A7 i A10 VBA COUNTIF funkcija vratila proizvod kao 4.

Ako vidite da je VBA kôd vratio samo rezultat formule, ne upoznajemo postupak na traci formule.

Da bismo došli do formule, moramo napisati kod malo drugačije. Ispod je kôd za primjenu same formule na ćeliju.

Kodirati:

Sub Countif_Example1 () Raspon ("C3"). Formula = "= CountIf (A1: A10," "Bangalore" ")" Kraj Sub

To će primijeniti formulu na ćeliju C3.

Dođite do rezultata s varijablama

Varijable su sastavni dio bilo kojeg jezika kodiranja. Moramo deklarirati varijable za učinkovit rad s VBA kodom. Na primjer, pogledajte donji kod.

Kodirati:

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.

Priguši vrijednost kriterija kao niz

CriteriaValue = "Bangalore"

Dakle, sada varijabla "CriteteriaValue" drži vrijednost "Bangalore".

U sljedećem sam retku, kao i obično, primijenio funkciju COUTNIF.