Les sujets:

Les partenaires publicitaires:

Réponses populaires

Questions connexes

Les partenaires publicitaires:

Excel VBA tutoriel sur boucles

VBA est le langage de programmation Visual Basic de Microsoft. Il est le plus souvent associé avec des macros utilisées dans des tableurs 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 communes disponibles dans d'autres langues, comme pour les boucles, boucle 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 utilisez, le processus est facile et sera simple à mettre en œuvre.

Instructions

  1. Créer une instruction If dans VBA comme cet exemple qui compare deux valeurs et écrit «EQUAL» ou «PAS ÉGAL" dans la cellule A1 en fonction du résultat de la comparaison.

    Sous My_If_Test ()

    This_value Dim

    That_value Dim

    this_value = 0

    that_value = 2

    Si this_value = Puis that_value

    Sheets ("Sheet1"). Cells (1,1) .Value = "EQUAL"

    Autre

    Sheets ("Sheet1"). Cells (1,1) .Value = "non égal"

    Fin si

    End Sub

    Si vous avez besoin de tester si quelque chose ne correspond pas, le signe est lt;>.

  2. Créer une boucle For en VBA suivant cet exemple code qui permet d'insérer la valeur d'un compteur incrémenté dans chaque rangée correspondante.

    Sous My_For_Test ()




    Dim compteur

    END_VAL Dim

    END_VAL = 10

    Pour compteur = 0 à l'étape 1 END_VAL

    Sheets ("Sheet1"). Cells (compteur, 1) .Value = compteur

    Suivant

    End Sub

  3. Créer une boucle do / while en VBA suivant ce code exemple que, comme l'exemple de boucle for, insère la valeur d'un compteur incrémenté dans chaque ligne correspondant.

    Sous My_DoWhile_Test ()

    Indice Dim

    END_VAL Dim

    index = 0

    END_VAL = 10

    Avez tandis que l'indice lt; END_VAL

    Sheets ("Sheet1"). Cells (compteur, 1) .Value = indice



    index = index + 1

    Boucle

    End Sub

    La logique du Do / While boucle est telle que, si la comparaison de l'état initial de Bien échoue, la boucle est pas exécutée. Par exemple, si l'indice avait égalé 10 ou plus avant que le code exécuté cette boucle do / while, le code à l'intérieur de la boucle ne serait jamais courir.

  4. Créer un Do / Jusqu'à boucle dans VBA suivant ce code exemple que, comme le Do / Bien exemple de boucle, insère la valeur d'un compteur incrémenté dans chaque rangée correspondante.

    Sous My_DoUntil_Test ()

    Indice Dim

    END_VAL Dim

    index = 0

    END_VAL = 10

    Faire

    Sheets ("Sheet1"). Cells (compteur, 1) .Value = indice

    index = index + 1

    Loop Until index = END_VAL

    End Sub

    La logique de la Do / Until est subtilement différent d'un Do / While. Le code dans le Do / Jusqu'à est exécuté au moins une fois, même si la condition Jusqu'à échoue. Par exemple, si l'indice avait égalé 10 ou plus avant que le code exécuté ce faire / Jusqu'à boucle, le code de la boucle serait exécuté une seule fois de toute façon.

Questions connexes

» » » » Excel VBA tutoriel sur boucles