Fonction de feuille de calcul COUNTA dans Excel VBA
Dans notre article précédent «Excel COUNTA», nous avons vu comment utiliser la fonction COUNT pour compter les valeurs numériques de la plage de valeurs. Que diriez-vous de calculer tous les coûts dans le domaine des cellules? Oui, nous pouvons également estimer cela. Pour compter toutes les valeurs de cellule dans la plage de cellules, nous devons utiliser la formule «COUNTA» dans Excel VBA. Dans cet article, nous allons vous montrer comment utiliser la fonction COUNTA dans VBA pour compter toutes les valeurs de cellule dans la plage fournie.
Exemples de fonction COUNTA dans VBA
L'une des vérités est que la fonction «COUNTA» n'est pas une fonction VBA. Je sais que votre question est la suivante: si ce n’est pas une fonction VBA, comment l’utiliser? Rien ne s'inquiète même s'il ne s'agit pas d'une fonction VBA; encore, nous pouvons l'utiliser sous la classe de fonction de feuille de calcul dans le codage VBA.
Ok, écrivons le code pour appliquer l'excel VBA COUNTA.
Étape 1: Créez un nom de sous-procédure.
Étape 2: Maintenant, décidez d'abord où nous allons stocker le résultat de la fonction VBA COUNTA. Dans cet exemple, je souhaite conserver le travail dans la cellule C2. Donc mon code sera Range («C2»). Value.
Code:
Sub Counta_Example1 () Range ("C2"). Value = End Sub
Étape 3: Dans la cellule C2, nous avons besoin de la valeur de la fonction VBA COUNTA. Donc, pour appliquer la fonction Excel VBA COUNTA, utilisons d'abord la classe de fonctions de feuille de calcul.
Code:
Sub Counta_Example1 () Range ("C2"). Value = Work End Sub
Étape 4: Après avoir appliqué la classe de fonctions de la feuille de calcul, sélectionnez la formule COUNTA en mettant un point.
Code:
Sub Counta_Example1 () Range ("C2"). Value = WorksheetFunction.Count End Sub
Étape 5: Nous devons maintenant fournir la plage de cellules à compter. Dans cet exemple, nous devons calculer la plage de cellules de A1 à A11. Pour fournir les cellules à l'aide de l'objet VBA RANGE.
Code:
Sub Counta_Example1 () Range ("C2"). Value = WorksheetFunction.CountA (Range ("A1: A11")) End Sub
Ok, exécutons le code pour obtenir le résultat dans la cellule C2.
Donc, le même résultat renvoyé par VBA COUNTA également.
Comme ça, nous pouvons utiliser COUNTA pour compter les cellules non vides ou non vides de la plage fournie.
Codage avec des variables
Les variables VBA sont la clé de la construction d'un projet. Maintenant, pour les mêmes données, nous pouvons déclarer des variables VBA et arriver au résultat.
Par exemple, regardez le code ci-dessous.
Code:
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
Expliquons maintenant le code ci-dessus.
Tout d'abord, j'ai déclaré la variable «CountaRange» comme plage pour référencer la plage de valeurs.
Dim CountaRange As Range
Ensuite, j'ai défini la référence comme plage A1 à A11.
Définir CountaRange = Range ("A1: A11")
La deuxième variable consiste à référencer la cellule de résultat COUNTA.
Dim CountaResultCell As Range
Pour cette variable, j'ai défini la cellule comme C2.
Définir CountaResultCell = Range ("C2")
Maintenant, comme d'habitude, j'ai appliqué la fonction COUNTA en utilisant des variables au lieu de plages codées en dur. Maintenant, regardez l'ancien code et ce code VBA.
Code 1:
Code 2:
Dans le code 1, nous avons la gamme C2. Dans le code 2, nous avons le nom de variable «CountaResultCell». Ici, la variable «CountaResultCell» définit la référence comme cellule C2. Donc, cette variable est maintenant la cellule C2.
Dans le code 1, la plage de fonctions COUNTA est A1 à A11. Dans la règle 2, il s'agit d'une variable appelée «CountaRange». Cette variable contient une référence à la plage A1 à A11.
C'est ce qui fait la différence entre l'ancien code et le code avec des variables.
Ainsi, la fonction COUNTA nous aide à compter toutes les cellules non vides de la plage fournie quelles que soient les données dont elle dispose.
