Funkcija radnog lista COUNTA u programu Excel VBA
U našem ranijem članku "Excel COUNTA" vidjeli smo kako koristiti funkciju COUNT za brojanje numeričkih vrijednosti iz raspona vrijednosti. Što kažete na izračun svih troškova na polju ćelija? Da, možemo to i procijeniti. Da bismo prebrojali sve vrijednosti stanica u rasponu stanica, moramo koristiti formulu "COUNTA" u excelu VBA. U ovom ćemo vam članku pokazati kako koristiti funkciju COUNTA u VBA za brojanje svih vrijednosti ćelija u isporučenom rasponu.
Primjeri funkcije COUNTA u VBA
Jedna od istine je da funkcija "COUNTA" nije VBA funkcija. Znam da je vaše pitanje, ako nije VBA funkcija, kako je onda koristimo? Ništa ne brine iako nije VBA funkcija; ipak, možemo ga koristiti u klasi funkcije radnog lista u VBA kodiranju.
Ok, napišimo kod da primijenimo excel VBA COUNTA.
Korak 1: Stvorite ime potprocedure.
Korak 2: Sada prvo odlučite gdje ćemo pohraniti rezultat funkcije VBA COUNTA. U ovom primjeru želim zadržati rad u ćeliji C2. Dakle, moj kôd bit će Raspon ("C2"). Vrijednost.
Kodirati:
Sub Counta_Example1 () Raspon ("C2"). Vrijednost = Kraj Sub
Korak 3: U ćeliji C2 trebamo vrijednost funkcije VBA COUNTA. Dakle, da bismo primijenili excel VBA COUNTA funkciju, najprije možemo koristiti klasu funkcije radnog lista.
Kodirati:
Sub Counta_Example1 () Raspon ("C2"). Vrijednost = Sub End Work
Korak 4: Nakon primjene klase funkcije radnog lista, odaberite formulu COUNTA stavljajući točku.
Kodirati:
Podbroj Counta_Example1 () Raspon ("C2"). Vrijednost = Funkcija radnog lista. Kraj Kraj Sub
Korak 5: Sada moramo dostaviti raspon stanica koje se broje. U ovom primjeru moramo izračunati raspon stanica od A1 do A11. Da bi se stanice osigurale pomoću objekta VBA RANGE.
Kodirati:
Sub Counta_Example1 () Raspon ("C2"). Vrijednost = Radni listFunction.CountA (Raspon ("A1: A11")) Kraj Sub
Ok, pokrenimo kôd da bismo dobili rezultat u ćeliji C2.
Dakle, isti rezultat vratio je i VBA COUNTA.
Kao što je ovo, pomoću COUNTA možemo brojati neprazne ili neprazne stanice iz isporučenog raspona.
Kodiranje varijablama
VBA varijable su ključ za izgradnju projekta. Sada za iste podatke možemo deklarirati VBA varijable i doći do rezultata.
Na primjer, pogledajte donji kod.
Kodirati:
Sub Counta_Example2 () Priguši CountaRange kao raspon Dim CountaResultCell As Range Set CountaRange = Range ("A1: A11") Set CountaResultCell = Range ("C2") CountaResultCell = WorksheetFunction.CountA (CountaRange) End Sub SubRange
Objasnimo sada gornji kod.
Prvo, proglasio sam varijablu "CountaRange" kao raspon koji upućuje na raspon vrijednosti.
Zatamni CountaRange As Range
Dalje, referencu sam postavio kao raspon A1 na A11.
Postavi CountaRange = Raspon ("A1: A11")
Druga varijabla odnosi se na ćeliju rezultata COUNTA.
Priguši CountaResultCell As Range
Za ovu varijablu postavila sam ćeliju kao C2.
Postavi CountaResultCell = Raspon ("C2")
Sada sam, kao i obično, primijenio funkciju COUNTA koristeći varijable umjesto tvrdo kodiranih raspona. Sada pogledajte stari kod i ovaj VBA kod.
Šifra 1:
Šifra 2:
U kodu 1 imamo domet C2. U kodu 2 imamo naziv varijable "CountaResultCell." Ovdje je varijabla "CountaResultCell" postavila referencu kao C2 ćeliju. Dakle, ova je varijabla sada C2 ćelija.
U kodu 1 raspon funkcije COUNTA je od A1 do A11. U pravilu 2 to je varijabla koja se naziva "CountaRange". Ova varijabla sadrži referencu na raspon od A1 do A11.
U tome je razlika između starog koda i koda s varijablama.
Dakle, funkcija COUNTA pomaže nam da izbrojimo sve neprazne stanice iz isporučenog raspona, bez obzira na podatke koje ima.
