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 calculul tuturor costurilor în domeniul celulelor? Da, putem estima și asta. Pentru a număra toate valorile celulei din 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-ți face griji, deși nu este o funcție VBA; totuși, îl putem folosi sub clasa funcției foii de lucru în codificarea VBA.
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, vreau să păstrez activitatea î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, permiteți mai întâi să folosiț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ă calculăm intervalul de celule de la A1 la A11. Pentru a furniza 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.
De exemplu, uitați-vă la 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.
În primul rând, 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 gama 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 de la A1 la A11. În regula 2, este o 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.
