VBA COUNTIF
Funkcije, ki temeljijo na kriterijih, so pravilo excela pri izračunih. Na začetku učenja excela smo se morali naučiti procesa COUTNIF v excelu. V naših prejšnjih člankih smo vam pokazali, kako delati s funkcijo COUNTIF v Excelu VBA.
Oglejte si naš članek o formuli COUNTIF v Excelu, da poznate osnove funkcije COUNTIF v Excelu VBA. V tem članku vam bomo pokazali, kako uporabljati isto funkcijo pri kodiranju VBA. Zdaj bomo isto formulo videli v VBA. Najprej, COUNTIF ni funkcija VBA; namesto tega gre za funkcijo delovnega lista, do katere lahko dostopate v razredu funkcije delovnega lista.
Primer funkcije števca Excel VBA
Ok, poglejmo preprost primer.
Oglejte si spodnji isti primer štetja vrednosti iz serije.
Na zgornji sliki imamo imena mest od celic A1 do A10. V celici C3 moramo prešteti, kolikokrat se ime mesta "Bangalore" pojavi v območju od A1 do A10.
Ok, sledite spodnjim korakom, da napišete kodo za uporabo funkcije COUNTIF.
1. korak: Zaženite postopek Sub.
Koda:
Možnost Izrecno Sub Countif_Example1 () Konec Sub
2. korak: Ker moramo rezultat shraniti v celico C3, zaženimo obseg (“C3”).
Koda:
Sub Countif_Example1 () Obseg ("C3"). Vrednost = Konec Sub
3. korak: V celici C3 z uporabo funkcije excel VBA COUNTIF poskušamo priti do rezultata. Za dostop do funkcije moramo najprej uporabiti razred Funkcije delovnega lista.
Koda:
Sub Countif_Example1 () Obseg ("C3"). Vrednost = Funkcija delovnega lista. Končaj pod
4. korak: Iz izgubljene funkcije izberite excel VBA COUNTIF.
Koda:
Sub Countif_Example1 () Obseg ("C3"). Value = WorksheetFunction.CountIf (End Sub
5. korak: Če pogledate parametre funkcije VBA COUNTIF, parametra ne vidimo, kot vidimo na delovnem listu.
Kot lahko vidimo na zgornji sliki na delovnem listu, imamo natančno sintakso, v VBA pa lahko vidimo le Arg 1 in Arg 2.
Arg 1 je obseg, zato izberite obseg od A1 do A10.
Koda:
Sub Countif_Example1 () Obseg ("C3"). Value = WorksheetFunction.CountIf (Range ("A1: A10"), End Sub
6. korak: Arg 2 je tista vrednost, ki jo moramo šteti od območja A1 do A10. V tem primeru moramo izračunati "Bangalore."
Koda:
Sub Countif_Example1 () Obseg ("C3"). Value = WorksheetFunction.CountIf (Range ("A1: A10"), "Bangalore") End Sub
Ok, končali smo.
Zaženite kodo, da si ogledate rezultat v celici C3.
Rezultat smo dobili kot 4. Ker je ime mesta »Bangalore«, ki se pojavlja v celicah A1, A4, A7 in A10, funkcija VIF COUNTIF izdelek vrnila kot 4.
Če vidite, da je koda VBA vrnila le rezultat formule, postopka v vrstici s formulami ne bomo spoznali.
Da pridemo do formule, moramo kodo napisati nekoliko drugače. Spodaj je koda za uporabo same formule v celici.
Koda:
Sub Countif_Example1 () Obseg ("C3"). Formula = "= CountIf (A1: A10," "Bangalore" ")" End Sub
S tem bo formula uporabljena za celico C3.
Prihod do rezultata s spremenljivkami
Spremenljivke so sestavni del katerega koli kodnega jezika. Za učinkovito delo s kodo VBA moramo prijaviti spremenljivke. Na primer, poglejte spodnjo kodo.
Koda:
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 = WorksheetFuectionCareritVeanCanritueValueCanritueValueCanritueValueCanritueValueCanritueValueVanueValueCanritueValueCanritueValueCanritueValueVanueValue ) End Sub
Naj dešifriram kodo, da boste bolje razumeli.
Najprej sem dve spremenljivki razglasil za obseg.
Dim ValuesRange As Range: To se nanaša na seznam vrednosti.
Dim ResultCell As Range: To se nanaša na celico z rezultati.
Nato sem obseg referenc nastavil na obe spremenljivki.
Set ValuesRange = Range (“A1: A10”): To je obseg, v katerem so vsa imena mest.
Nastavi ResultCell = Obseg (“C3”): V tej celici bomo shranili rezultat funkcije COUNTIF.
V tem času sem razglasil še eno spremenljivko za shranjevanje vrednosti meril.
Dim CriteriaValue As String
CriteriaValue = “Bangalore”
Tako ima spremenljivka "CriteteriaValue" vrednost "Bangalore."
V naslednji vrstici sem kot običajno uporabil funkcijo COUTNIF.
ResultCell = WorksheetFunction.CountIf (ValuesRange, CriteriaValue)
Tako lahko uporabimo funkcijo COUNTIF v Excelu VBA, da ustreza našim potrebam.
