Ce didacticiel montrera comment générer un tableau dans une plage à l'aide de VBA.
Sortie (impression) tableau à plage
Les données stockées dans un tableau peuvent facilement être sorties dans une feuille Excel. Il y a 3 façons de le faire.
Données de sortie vers une plage différente
Nous pourrions remplir un tableau avec les données d'une plage dans Excel, puis générer les données dans une plage différente dans Excel.
| 12345678 | Sortie de sous-test public()'déclare le tableauDim rnArray() comme variante'remplir le tableau avec la plagernTableau = Plage("A1:H24")'sortir le tableau vers une plage différente de cellulesPlage("J1:Q24") = rnArray()Fin du sous-marin |
Le tableau entier est copié dans une ligne de code dans le tableau, puis sorti dans son intégralité dans une plage différente de cellules de la feuille.
Boucle dans un tableau et sortie des données
Cet exemple va parcourir un tableau, produisant le tableau dans une plage.
| 12345678910111213 | Public SubTestLoopArray()'déclare le tableauDim rnArray() en tant que variante'Déclare l'entier pour stocker le nombre de lignesDim iRw en tant qu'entier'Attribuer une plage à une variable de tableaurnTableau = Plage("A1:A10")' parcourt les valeurs du tableauPour iRw = LBound(rnArray) À UBound(rnArray)'remplir une plage différente avec les donnéesCellules(iRw, 2).Valeur = rnArray(iRw, 1)iRw suivantFin du sous-marin |
LBoundet UBoundrenvoie l'index de début (borne inférieure) et l'index de fin (borne supérieure) d'un tableau, dans ce cas 1 et 10.
Transposer les données du tableau
Nous pouvons également transposer les données du tableau vers la feuille Excel. Transpose vous permet d'afficher les données horizontalement sur la feuille Excel.
Par exemple, si nous avons une liste d'états dans Excel et que nous souhaitons les transposer.
Nous pourrions alors exécuter le code suivant :
| 12345678 | Public Sub TestOutputTranspose()'déclare le tableauDim rnArray() comme variante'remplissez-le avec la plagernTableau = Plage("A1:A38")'transposer les donnéesRange(Cells(1, 3), Cells(1, 40)).Valeur = Application.Transpose(rnArray)Fin du sous-marin |
Ce qui donnerait ceci :
Sortie vers Debug.Print
Nous pouvons également afficher les valeurs du tableau dans la fenêtre de débogage.
| 12345678910111213 | Public SubTestLoopArray()'déclare le tableauDim rnArray() comme variante'Déclare l'entier pour stocker le nombre de lignesDim iRw en tant qu'entier'Attribuer une plage à une variable de tableaurnTableau = Plage("A1:A10")'boucle à travers les lignes - 1 à 10Pour iRw = 1 à UBound(rnArray)'sortie dans la fenêtre immédiateDebug.Print rnArray(iRw, 1)iRw suivantFin du sous-marin |
