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 COUNTAOk, 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.