Dans cet article, nous fournissons un guide étape par étape pour trouver la taille du tableau à l'aide du code VBA.
Comment trouver la taille d'une baie à l'aide du code VBA?
Suivez les étapes pour trouver la taille du tableau à l'aide du code VBA Excel.
- Étape 1: Commençons par la base en premier, déclarons une variable dans VBA comme type de données variant.
Code:
Sub Array_Size () Dim MyArray As Variant End Sub
- Étape 2: Pour cette variable, utilisez la fonction ARRAY et attribuez des valeurs comme indiqué ci-dessous.
Code:
Sub Array_Size () Dim MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") End Sub
- Étape 3: Ok, nous avons assigné des valeurs au nom du tableau «MyArray».
Supposons que si nous devons écrire une boucle pour stocker ces valeurs de tableau dans des cellules, nous devons décider du nombre de fois que la boucle doit s'exécuter. Cela dépend du nombre de valeurs du tableau.
Ok, regardez maintenant le nombre de valeurs attribuées au nom du tableau "MyArray", il y a un total de 7 valeurs assignées au tableau, donc maintenant nous savons combien de fois la boucle doit s'exécuter pour stocker les valeurs d'un tableau dans les cellules .
- Étape 4: Déclarez une autre variable en tant qu'entier pour écrire la boucle FOR dans VBA.
Code:
Sub Array_Size () Dim MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer For k = 1 To 7 Suivant k End Sub
- Étape 5: Là nous allons, nous avons ouvert la boucle FOR comme commençant de 1 à 7, à l'intérieur de la propriété CELLS de boucle d'écriture à stocker comme indiqué ci-dessous.
Code:
Sub Array_Size () Dim MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer For k = 1 To 7 Cellules (k, 1) .Value = MyArray (k) Next k End Sub
- Étape 6: Ok, maintenant exécutez le code ligne par ligne en appuyant sur une touche de fonction F8. En appuyant sur la touche F8 pour la première fois, il lancera la macro.
- Étape 7: Appuyez sur F8 maintenant, il passera à la ligne d'attribution de valeur de tableau.
- Étape 8: À partir de maintenant, le nom du tableau «MyArray» ne contient aucune valeur, appuyez sur F8 et toutes les valeurs mentionnées seront affectées à la variable du tableau.
- Étape 9: Maintenant, la boucle commencera à s'exécuter et appuyez sur la touche F8 2 fois pour voir quelle valeur nous obtenons dans la cellule A1.
- Oops!!! Attendez, notre première valeur dans la variable de tableau est "Jan", mais nous avons obtenu le résultat comme deuxième valeur "Feb" alors que la première boucle de valeurs est toujours en cours d'exécution.
- Étape 10: En effet, lorsque le nombre de valeurs de votre tableau commence à zéro, pas à 1, nous devons donc inclure la boucle de départ à zéro.
- Étape 11: Une fois que la position de départ de la boucle est diminuée d'une, la même fin doit également être diminuée de 1, alors faites la fin en 6 au lieu de 7.
- Étape 12: Une fois que le début et la fin de la boucle ont décidé un autre ajustement que nous devons faire, c'est-à-dire que dans la propriété CELLS, nous avons utilisé la variable «k» comme sélecteur de cellule dynamique, mais comme notre boucle commence à zéro, il n'y a pas de cellule commençant par zéro , alors ajoutez plus 1 à la variable «k».
Code:
Sub Array_Size () Dim MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer For k = 0 to 6 Cellules (k + 1, 1) .Value = MyArray (k) Next k End Sub
- Étape 13: Alors maintenant, lors de l'exécution de la boucle pour la première fois, la valeur «k» est zéro, et puisque nous avons ajouté plus 1, la valeur «k» sera 1 donc se réfère à la cellule A1.
- Étape 14: Exécutez maintenant le code et toutes les valeurs du tableau seront stockées dans des cellules.
Cependant, dans ce cas, nous avons décidé manuellement la taille de début et de fin de la boucle, mais la taille du tableau peut être déterminée facilement à l'aide des fonctions LBOUND & UBOUND.
Recherche automatique de la taille d’une matrice
- Étape 1: Lorsque nous avons inclus le point de début et de fin de la boucle dans ce qui précède, nous avons compté manuellement le nombre de valeurs du tableau, mais pour démarrer le tableau, utilisez la fonction LBOUND et pour ce passage, le nom de la variable «MyArray».
- Étape 2: Et pour déterminer la dernière taille de tableau, utilisez la fonction UBOUND et entrez le nom du tableau «MyArray».
Code:
Sub Array_Size () Dim MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer For k = Lboubd (MyArray ) Pour UBound (MyArray) Cells (k + 1, 1) .Value = MyArray (k) Next k End Sub
- Étape 3: OK, commencez maintenant le code ligne par ligne et appuyez sur la touche F8 jusqu'à ce qu'il atteigne le point de départ de la boucle.
- Étape 4: Maintenant, placez d'abord votre curseur sur «LBound (MyArray)» et voyez ce qu'il dit.
- Étape 5: Le numéro du point de départ indiqué est zéro, placez maintenant le curseur sur «UBound (MyArray)» et voyez ce qu'il dit.
Il indique que la taille du tableau est 6, donc comme nous avons mentionné le début et la fin manuellement, UBOUND et LBOUND choisissent automatiquement les nombres pour nous.
