Excel VBA pour la prochaine boucle
La boucle VBA For Next est une boucle qui est utilisée parmi tous les langages de programmation, dans cette boucle il y a un critère après l'instruction for pour laquelle le code boucle dans la boucle jusqu'à ce que le critère soit atteint et lorsque le critère est atteint l'instruction suivante indique la procédure à l'étape suivante du code.
La boucle «For Next» est l'une de ces boucles qui est très souvent utilisée par rapport aux autres boucles dans le codage VBA. Les boucles nous aideront à répéter le même type de tâche pour les cellules spécifiées jusqu'à ce que la condition soit TRUE.
FOR LOOP parcourt la plage de cellules et exécute une tâche spécifique jusqu'à ce que la condition soit TRUE. Par exemple, si vous souhaitez parcourir les 10 premières cellules et insérer des numéros de série incrémentés de 1, vous pouvez utiliser la boucle FOR NEXT.
Cette boucle a besoin d'une variable pour exécuter la boucle. En utilisant cette variable, nous pouvons référencer dynamiquement les cellules.
Il comprend trois paramètres.
Pour instruction = point de départ au point final (effectuer une tâche) instruction suivante
À partir du point de départ, la boucle démarre et exécute une tâche après avoir terminé la tâche, passe à la boucle suivante et effectue à nouveau la même tâche dans la cellule différente. Comme ça, jusqu'à ce qu'il atteigne le point de terminaison, il continue d'exécuter la tâche spécifiée.
Comment utiliser VBA pour la prochaine boucle?
Supposons que vous souhaitiez insérer des numéros de série de 1 à 10 aux cellules A1 à A10. Bien sûr, nous pouvons insérer comme écrire dix lignes de code.
Code:
Sub For_Next_Loop_Example1 () Range ("A1"). Value = 1 Range ("A2"). Value = 2 Range ("A3"). Value = 3 Range ("A4"). Value = 4 Range ("A5") .Valeur = 5 Plage ("A6"). Valeur = 6 Plage ("A7"). Valeur = 7 Plage ("A8"). Valeur = 8 Plage ("A9"). Valeur = 9 Plage ("A10")) .Valeur = 10 End Sub
Mais que faire si je veux insérer 100 numéros de série? Bien sûr, je ne peux pas écrire 100 lignes de code juste pour insérer des numéros de série. C'est là que la beauté de la boucle «FOR NEXT» entre en scène. Suivez les étapes ci-dessous pour minimiser le code.
Étape 1: Tout d'abord, nous devons définir une variable. J'ai déclaré le nom de variable appelé «Serial_Number» comme un type de données entier.
Code:
Sub For_Next_Loop_Example2 () Dim Serial_Number As Integer End Sub
Étape 2: Maintenant, je commande d'appliquer la boucle FOR NEXT, notre objectif est d'insérer des numéros de série de 1 à 10, donc cela signifie que notre boucle doit s'exécuter dix fois. L'instruction FOR LOOP doit donc être comme ceci.
Pour Serial_Number = 1 à 10
Numéro de série suivant
Code:
Sub For_Next_Loop_Example2 () Dim Serial_Number As Integer For Serial_Number = 1 à 10 Next Serial_Number End Sub
Étape 3: Nous avons appliqué la boucle. Maintenant, une fois la boucle appliquée, nous devons spécifier ce que nous devons faire à l'intérieur de la boucle. Notre objectif ici est d'insérer des numéros de série de 1 à 10. Donc, écrivez le code comme Cells (Serial_Number, 1) .Value = Serial_Number.
Code:
Sub For_Next_Loop_Example2 () Dim Serial_Number As Integer Dim Serial_Number = 1 To 10 Cells (Serial_Number, 1) .Value = Serial_Number Dim Serial_Number End Sub
Étape 4: La raison pour laquelle nous avons donné Serial_Number dans la propriété CELLS parce que nous ne pouvons pas spécifier le numéro hardcore pour la référence de ligne ici. Chaque fois que la boucle s'exécute, je veux insérer le nouveau numéro de série dans la nouvelle cellule, pas dans la même cellule.
Étape 5: Exécutez le code ligne par ligne en appuyant sur la touche F8.
Étape 6: Placez un curseur sur la variable Serial_Number; il montre la valeur actuelle de Serial_Number.
À ce stade, la valeur Serial_Number est zéro.
Étape 7: Appuyez une fois de plus sur la touche F8, la couleur jaune passera à la ligne de code suivante dans VBA. Placez maintenant un curseur sur le numéro de série.
Maintenant, la valeur de Serial_Number est égale à un car maintenant la boucle est lancée et notre boucle à partir de 1, donc la valeur de la variable Serial_Number est égale à un.
Une autre chose intéressante ici est là où la variable Serial_Number est là, qui est également égale à 1.
Donc, dans la propriété cells, nous avons mentionné le code comme suit:
Cellules (Serial_Number, 1) .Value = Serial_Number
Cela signifie Cells (1, 1) .Value = 1. (Cells (1,1) signifie Row1 & Column1.
Ainsi, dans la ligne numéro 1 et la colonne numéro 1, la valeur doit être 1.
Étape 8: Maintenant, appuyez une fois de plus sur F8 et voyez ce qui se passe dans Row1 & Column1, c'est-à-dire la cellule A1.
Nous avons donc 1 comme valeur, c'est-à-dire la valeur de Serial_Number.
Étape 9: Appuyez à nouveau sur la touche F8. En règle générale, le code suivant doit être exécuté, c'est-à-dire la fin de la sous-déclaration. Mais ici, il reviendra à la «ligne ci-dessus».
Étape 10: Rappelez-vous que la boucle est déjà terminée lors de la première exécution. Maintenant, il revient pour la deuxième fois. Placez maintenant un curseur sur la variable Serial_Number et voyez quelle est la valeur.
La variable Serial_Number est maintenant égale à 2 car la boucle est déjà retournée pour la deuxième fois.
Maintenant, partout où se trouve Serial_Number, la valeur est égale à 2. Donc, le code de ligne:
Cells (Serial_Number, 1) .Value = Serial_Number est égal à:
Cells (2, 1) .Value = 2. (Cells (2,1) signifie Row2 & Column1 ie cellule A2).
Étape 11: exécutez ce code et voyez la valeur dans la cellule A2.
Donc, nous avons la deuxième valeur du numéro de série.
Étape 12: Appuyez maintenant sur la touche F8. Il reviendra à la ligne ci-dessus pour répéter le code. Cette fois, la valeur Serial_Number sera 3.
Étape 13: Donc, partout où Serial_Number est, il est égal à 3.
Ainsi, le code de ligne: Cells (Serial_Number, 1) .Value = Serial_Number est égal à:
Cells (3, 1) .Value = 3. (Cells (3,1) signifie Row3 & Column1 ie cellule A3).
Étape 14: Appuyez sur F8 pour exécuter la ligne en surbrillance et voir la valeur dans la cellule A3.
Étape 15: Continuez maintenant à appuyer sur F8. Il continuera d'insérer les numéros de série. La valeur de moment de la variable Serial_Number est de 10, elle arrêtera la boucle et quittera la boucle.
