VBA TOČKA | Kako uporabiti funkcijo delovnega lista COUNTA v Excelu VBA?

Funkcija delovnega lista COUNTA v Excelu VBA

V prejšnjem članku »Excel COUNTA« smo videli, kako uporabiti funkcijo COUNT za štetje številskih vrednosti iz obsega vrednosti. Kaj pa štetje vseh vrednosti v obsegu celic? Da, tudi to lahko štejemo. Za štetje vseh vrednosti celic v obsegu celic moramo uporabiti formulo “COUNTA” v excelu VBA. V tem članku vam bomo pokazali, kako s funkcijo COUNTA v VBA štejete vse vrednosti celic v priloženem obsegu.

Primeri funkcije COUNTA v VBA

Ena od resnic je, da funkcija “COUNTA” ni funkcija VBA. Vem, da je vaše vprašanje, če to ni funkcija VBA, kako jo potem uporabiti? Brez skrbi, čeprav to ni funkcija VBA, jo lahko kljub temu uporabimo v razredu funkcij delovnega lista pri kodiranju VBA.

To predlogo programa VBA COUNTA Excel lahko prenesete tukaj - Predloga programa VBA COUNTA Excel

Ok, napišimo kodo, da uporabimo excel VBA COUNTA.

1. korak: Ustvarite ime podprocedure.

2. korak: Zdaj se najprej odločite, kam bomo shranili rezultat funkcije VBA COUNTA. V tem primeru želim rezultat shraniti v celico C2. Moja koda bo torej obseg ("C2").

Koda:

 Sub Counta_Example1 () Obseg ("C2"). Vrednost = Konec Sub 

3. korak: V celici C2 potrebujemo vrednost funkcije VBA COUNTA. Torej, če želite uporabiti funkcijo excel VBA COUNTA, lahko najprej uporabite razred funkcije delovnega lista.

Koda:

 Sub Counta_Example1 () Obseg ("C2"). Vrednost = Sub End Work 

Korak 4: Po uporabi razreda funkcije delovnega lista izberite formulo TAČKA tako, da postavite piko.

Koda:

 Sub Counta_Example1 () Obseg ("C2"). Value = Delovni list Funkcija.Count End Sub 

5. korak: Zdaj moramo ponuditi obseg celic, ki jih je treba šteti. V tem primeru moramo prešteti obseg celic od A1 do A11. Torej oskrbite celice z uporabo predmeta VBA RANGE.

Koda:

 Sub Counta_Example1 () Obseg ("C2"). Value = WorksheetFunction.CountA (Range ("A1: A11")) End Sub 

Ok, zaženimo kodo, da dobimo rezultat v celici C2.

Torej, enak rezultat je vrnila tudi VBA COUNTA.

Tako lahko s COUNTA štejemo neprazne ali neprazne celice iz priloženega obsega.

Kodiranje s spremenljivkami

Spremenljivke VBA so ključ do gradnje projekta. Zdaj za iste podatke lahko prijavimo spremenljivke VBA in pridemo do rezultata.

Za primer si oglejte spodnjo kodo.

Koda:

 Sub Counta_Example2 () Dim CountaRange As Range Dim CountaResultCell As Range Set CountaRange = Range ("A1: A11") Set CountaResultCell = Range ("C2") CountaResultCell = WorksheetFunction.CountA (CountaRange) End Sub Subrandge 

Pojasnimo zgornjo kodo zdaj.

Najprej sem spremenljivko »CountaRange« razglasil kot obseg za sklicevanje na obseg vrednosti.

 Zatemni CountaRange As Range

Nato sem referenco postavil kot obseg A1 na A11.

 Nastavi CountaRange = obseg ("A1: A11")

Druga spremenljivka se sklicuje na celico rezultata COUNTA.

 Zatemni CountaResultCell As Range

Za to spremenljivko sem celico nastavil kot C2.

 Nastavi CountaResultCell = obseg ("C2")

Zdaj sem kot običajno uporabil funkcijo COUNTA z uporabo spremenljivk namesto trdo kodiranih obsegov. Zdaj si oglejte staro kodo in to kodo VBA.

Koda 1:

Koda 2:

V kodi 1 imamo obseg C2, v kodi 2 pa ime spremenljivke »CountaResultCell«. Tu je spremenljivka “CountaResultCell” postavila referenco kot celico C2. Ta spremenljivka je torej celica C2.

V kodi 1 je območje funkcije COUNTA od A1 do A11, v kodi 2 pa spremenljivka, imenovana "CountaRange". Ta spremenljivka vsebuje sklic na obseg od A1 do A11.

V tem je razlika med staro kodo in kodo s spremenljivkami.

Torej, funkcija COUNTA nam pomaga šteti vse prazne celice iz priloženega obsega, ne glede na podatke, ki jih ima.