|
VBA est le langage de programmation Visual Basic de Microsoft. Il est le plus souvent associé avec des macros utilisées dans les feuilles de calcul Excel et parfois même la génération de rapports avec une sortie ciblée sur des documents Word ou PowerPoint. VBA offre aux développeurs toutes les options logiques communs disponibles dans d'autres langues, telles que des boucles , des boucles while et if /then /else . Cependant, comme toutes les langues , la syntaxe de l'utilisation de ces boucles est un peu différente dans VBA. Une fois que vous les utilisez, le processus est facile et sera simple à mettre en œuvre . Instructions
1 Créer une instruction If dans VBA comme dans cet exemple qui compare deux valeurs et écrit «égal» ou « NOT EQUAL " dans la cellule A1 en fonction du résultat de la comparaison.
< p> Sous My_If_Test ()
Dim this_value
Dim that_value
this_value = 0
that_value = 2
Si this_value = that_value puis Sheets
( "Sheet1" ) . Cells (1,1). Value = " EQUAL "
Else Fiches de
( "Sheet1" ) . Cells (1, 1). Value = "non égal "
End If End Sub
Si vous avez besoin de tester si quelque chose n'est pas égal , le signe est <>.
2 Créer une boucle en VBA suivant cet exemple de code qui permet d'insérer la valeur d'un compteur incrémenté à chaque ligne correspondante.
Sous My_For_Test ()
contre
Dim end_value
end_value = 10 & compteur = 0 à end_value Étape 1
Sheets (" Sheet1" ) . Cells Dim ( compteur, 1). Value = compteur
Suivant
End Sub
3 Créer un Do /While en VBA suivant cet exemple de code qui, comme le Par exemple en boucle, insère la valeur d'un compteur incrémenté à chaque ligne correspondante .
Sous My_DoWhile_Test ()
Dim index
Dim end_value
indice de = 0
end_value = 10 & Do While index < end_value
Sheets (" Sheet1" ) . Cells (comptage, 1). Value = indice
index = index + 1
boucle
End Sub
la logique du Do /While est telle que, si la comparaison initiale de la condition While échoue, l' boucle n'est pas exécutée. Par exemple, si l'indice avait égalé 10 ou plus avant que le code exécuté cette Do /While , le code de la boucle ne serait jamais exécuté.
4 Créer un Do /Until en VBA suivant cet exemple code qui , comme le Do /boucle while exemple , insère la valeur d'un compteur incrémenté à chaque ligne correspondante .
Sous My_DoUntil_Test ()
Dim index
Dim end_value
indice de = 0
end_value = 10 & Avez- Feuilles
( "Sheet1" ) . Cells (comptage, 1). Value = indice
indice de = index + 1
loop Until index = end_value
End Sub
la logique du Do /Until est subtilement différent de celui d'une boucle Do /While . Le code de la Do /Jusqu'en est exécuté au moins une fois , même si la condition Until échoue. Par exemple, si l'indice avait égalé 10 ou plus avant que le code exécuté cette Do /Jusqu'à boucle, le code de la boucle serait exécuté une seule fois de toute façon .
|
