VBA COUNTA | Cum se folosește funcția de foaie de lucru COUNTA în Excel VBA?

Funcția Foaie de lucru COUNTA în Excel VBA

În articolul nostru anterior „Excel COUNTA” am văzut cum să folosim funcția COUNT pentru a număra valorile numerice din gama de valori. Ce zici de numărarea tuturor valorilor din intervalul de celule? Da, putem conta și asta. Pentru a număra toate valorile celulei în intervalul de celule, trebuie să folosim formula „COUNTA” în excel VBA. În acest articol, vă vom arăta cum să utilizați funcția COUNTA în VBA pentru a număra toate valorile celulei din intervalul furnizat.

Exemple de funcții COUNTA în VBA

Unul dintre adevăruri este că funcția „COUNTA” nu este o funcție VBA. Știu că întrebarea dvs. este dacă nu este o funcție VBA, atunci cum o folosim? Nimic nu vă faceți griji, chiar dacă nu este o funcție VBA, totuși o putem folosi în clasa funcției foii de lucru în codarea VBA.

Puteți descărca acest șablon Excel VBA COUNTA aici - Șablon Excel VBA COUNTA

Ok, hai să scriem codul pentru a aplica Excel VBA COUNTA.

Pasul 1: Creați un nume de subprocedură.

Pasul 2: Acum decideți mai întâi unde vom stoca rezultatul funcției VBA COUNTA. În acest exemplu, doresc să stochez rezultatul în celula C2. Deci, codul meu va fi Range („C2”). Valoare.

Cod:

 Sub Counta_Example1 () Range ("C2"). Valoare = End Sub 

Pasul 3: În celula C2 avem nevoie de valoarea funcției VBA COUNTA. Deci, pentru a aplica funcția Excel VBA COUNTA, puteți aplica mai întâi clasa de funcții a foii de lucru.

Cod:

 Sub Counta_Example1 () Range ("C2"). Valoare = End End Sub 

Pasul 4: După aplicarea clasei de funcții a foii de lucru, selectați formula COUNTA punând un punct.

Cod:

 Sub Counta_Example1 () Range ("C2"). Value = WorksheetFunction.Count End Sub 

Pasul 5: Acum trebuie să furnizăm gama de celule care trebuie numărate. În acest exemplu, trebuie să numărăm intervalul de celule de la A1 la A11. Deci, furnizați celulele folosind obiectul VBA RANGE.

Cod:

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

Ok, să rulăm codul pentru a obține rezultatul în celula C2.

Deci, același rezultat a fost returnat și de VBA COUNTA.

Astfel, putem folosi COUNTA pentru a număra celulele ne-goale sau ne-goale din intervalul furnizat.

Codificare cu variabile

Variabilele VBA sunt cheia construirii unui proiect. Acum, pentru aceleași date, putem declara variabile VBA și ajungem la rezultat.

Pentru un exemplu, consultați codul de mai jos.

Cod:

 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 

Să explicăm acum codul de mai sus.

Mai întâi am declarat variabila „CountaRange” ca un interval pentru a face referire la intervalul de valori.

 Dim CountaRange As Range

Apoi, am setat referința ca Gama A1 la A11.

 Setați CountaRange = Range ("A1: A11")

A doua variabilă este de a face referire la celula de rezultat COUNTA.

 Dim CountaResultCell As Range

Pentru această variabilă, am setat celula ca C2.

 Setați CountaResultCell = Range ("C2")

Acum, ca de obicei, am aplicat funcția COUNTA folosind variabile în loc de intervale codificate. Acum, uitați-vă la vechiul cod și la acest cod VBA.

Codul 1:

Codul 2:

În codul 1 avem Range C2, în Codul 2 avem numele variabilei „CountaResultCell”. Aici variabila „CountaResultCell” stabilește referința ca celulă C2. Deci, această variabilă este acum celula C2.

În codul 1 Gama de funcții COUNTA este A1 până la A11, în codul 2 este variabilă numită „CountaRange”. Această variabilă deține o referință la intervalul A1 până la A11.

Aceasta este diferența dintre codul vechi și codul cu variabile.

Deci, funcția COUNTA ne ajută să numărăm toate celulele ne-goale din intervalul furnizat, indiferent de datele pe care le are.