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 izračun vseh stroškov na področju celic? Da, lahko tudi to ocenimo. Za štetje vseh vrednosti celic v obsegu celic moramo v Excelu VBA uporabiti formulo “COUNTA”. 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 resnica je, da funkcija “COUNTA” ni funkcija VBA. Vem, da je vaše vprašanje, če to ni funkcija VBA, kako jo potem uporabiti? Nič vas ne skrbi, čeprav to ni funkcija VBA; še vedno pa ga lahko uporabimo pod razredom funkcij delovnega lista pri kodiranju VBA.

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 ohraniti delo v celici 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. Če želite torej uporabiti funkcijo excel VBA COUNTA, najprej uporabimo razred funkcije delovnega lista.

Koda:

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

4. korak: 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 izračunati obseg celic od A1 do A11. Za zagotavljanje celic 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.

Na primer, poglejte 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, ki se sklicuje 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 imamo ime spremenljivke »CountaResultCell«. Tu je spremenljivka “CountaResultCell” postavila referenco kot celico C2. Ta spremenljivka je torej celica C2.

V kodi 1 je obseg funkcij COUNTA od A1 do A11. V pravilu 2 gre za spremenljivko, imenovano »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 neprazne celice iz priloženega obsega ne glede na podatke, ki jih ima.

Zanimive Članki...