photosdematures.com

Funció del full de treball COUNTA a Excel VBA

Al nostre article anterior "Excel COUNTA" hem vist com utilitzar la funció COUNT per comptar els valors numèrics de l'interval de valors. Què hi ha de comptar tots els valors de l’interval de cel·les? Sí, també ho podem comptar. Per comptar tots els valors de les cel·les de l’interval de cel·les hem d’utilitzar la fórmula “COUNTA” a excel VBA. En aquest article, us mostrarem com utilitzar la funció COUNTA a VBA per comptar tots els valors de cel·la de l’interval subministrat.

Exemples de funció COUNTA a VBA

Una de les veritats és que la funció "COUNTA" no és una funció VBA. Sé que la vostra pregunta és si no és una funció VBA, com la fem servir? No us preocupeu, tot i que no és una funció VBA, encara que la podem utilitzar a la classe de funcions del full de càlcul a la codificació VBA.

Podeu descarregar aquesta plantilla Excel de VBA COUNTA aquí - Plantilla Excel de VBA COUNTA

D’acord, escrivim el codi per aplicar l’excel VBA COUNTA.

Pas 1: Creeu un nom de subprocés.

Pas 2: Ara primer decidiu on emmagatzemarem el resultat de la funció VBA COUNTA. En aquest exemple, vull emmagatzemar el resultat a la cel·la C2. Per tant, el meu codi serà Range ("C2"). Valor.

Codi:

 Subcontra_Exemple1 () Interval ("C2"). Valor = Final Sub 

Pas 3: A la cel·la C2 necessitem el valor de la funció VBA COUNTA. Per tant, aplicar la funció Excel VBA COUNTA permet aplicar primer la classe de funció de full de treball.

Codi:

 Subcontra_Exemple1 () Interval ("C2"). Valor = Finalització de la feina Sub 

Pas 4: Després d'aplicar la classe de funcions del full de treball, seleccioneu la fórmula COUNTA posant un punt.

Codi:

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

Pas 5: Ara hem de subministrar l’interval de cel·les a comptar. En aquest exemple, hem de comptar l’interval de cel·les d’A1 a A11. Així doncs, subministreu les cel·les mitjançant l’objecte VBA RANGE.

Codi:

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

D’acord, executem el codi per obtenir el resultat a la cel·la C2.

Així, doncs, el mateix resultat que va retornar VBA COUNTA.

Així, podem utilitzar COUNTA per comptar les cel·les no buides o no buides de l’interval subministrat.

Codificació amb variables

Les variables VBA són la clau per construir un projecte. Ara, per a les mateixes dades, podem declarar variables VBA i arribar al resultat.

Per obtenir un exemple, mireu el codi següent.

Codi:

 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 

Expliquem ara el codi anterior.

Primer he declarat la variable "CountaRange" com a rang per fer referència a l'interval de valors.

 Atenuar la gamma com a rang

A continuació, he establert la referència com a rang A1 a A11.

 Estableix CountaRange = Range ("A1: A11")

La segona variable és fer referència a la cel·la de resultats COUNTA.

 Dim CountaResultCell com a rang

Per a aquesta variable, he definit la cel·la com a C2.

 Estableix CountaResultCell = Range ("C2")

Ara, com de costum, he aplicat la funció COUNTA fent servir variables en lloc d’intervals codificats. Ara mireu el codi antic i aquest codi VBA.

Codi 1:

Codi 2:

Al codi 1 tenim el rang C2, al codi 2 tenim el nom de la variable "CountaResultCell". Aquí la variable "CountaResultCell" estableix la referència com a cel·la C2. Per tant, aquesta variable és ara una cèl·lula C2.

Al codi 1, l'interval de funcions COUNTA és A1 a A11, al codi 2 és una variable anomenada "CountaRange". Aquesta variable conté una referència a l'interval A1 a A11.

És la diferència entre el codi antic i el codi amb variables.

Per tant, la funció COUNTA ens ajuda a comptar totes les cel·les no buides de l’interval subministrat, independentment de les dades que tingui.