VBA BROJ | Kako se koristi funkcija radnog lista COUNTA u programu Excel VBA?

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 brojanje svih vrijednosti u rasponu stanica? Da, i to možemo računati. Da bismo prebrojali sve vrijednosti stanica u rasponu stanica, moramo upotrijebiti 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 je istina da funkcija "COUNTA" nije VBA funkcija. Znam da je vaše pitanje ako nije VBA funkcija, kako je onda koristimo? Ne brinite iako to nije VBA funkcija, ipak je možemo koristiti u klasi funkcije radnog lista u VBA kodiranju.

Ovaj VBA COUNTA Excel predložak možete preuzeti ovdje - VBA COUNTA Excel Predložak

Ok, napišimo kod da primijenimo excel VBA COUNTA.

Korak 1: Stvorite ime potprocedure.

Korak 2: Prvo prvo odlučite gdje ćemo pohraniti rezultat funkcije VBA COUNTA. U ovom primjeru želim rezultat pohraniti u ćeliju C2. Dakle, moj kôd bit će Raspon ("C2"). Vrijednost.

Kodirati:

 Sub Counta_Example1 () Raspon ("C2"). Vrijednost = Kraj Sub 

Korak 3: U ćeliji C2 potrebna nam je vrijednost funkcije VBA COUNTA. Dakle, da bismo primijenili excel VBA COUNTA funkciju, najprije možemo primijeniti klasu funkcija radnog lista.

Kodirati:

 Sub Counta_Example1 () Raspon ("C2"). Vrijednost = Sub End Work 

Korak 4: Nakon primjene klase funkcije radnog lista odaberite formulu COUNTA stavljanjem točke.

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 prebrojati raspon stanica od A1 do A11. Dakle, opskrbite stanice pomoću objekta VBA RANGE.

Kodirati:

 Sub Counta_Example1 () Raspon ("C2"). Vrijednost = Funkcija radnog lista.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.

Za 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 sam proglasio 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:

In code 1 we have Range C2, in Code 2 we have the variable name “CountaResultCell”. Here the variable “CountaResultCell” set reference as C2 cell. So this variable is C2 cell now.

In code 1 COUNTA function range is A1 to A11, in code 2 it is variable called “CountaRange”. This variable holds a reference to the range A1 to A11.

This is what is the difference between old code and code with variables.

So, the COUNTA function helps us to count all the non-empty cells from the supplied range irrespective of the data it has.