Tri d'un tableau de chaînes dans Visual Basic pour Applications (VBA) n'est pas aussi simple que dans d'autres langages de programmation les plus récents. Dans VBA , vous pouvez trier un tableau en ordre en utilisant un couple de " For ... Boucles " croissant et une boucle à travers chaque élément du tableau . Cette méthode est utile lorsque vous avez besoin pour afficher des valeurs à l'utilisateur dans l'ordre croissant , pour donner à vos données un aspect plus professionnel . Les choses dont vous aurez besoin
Microsoft Excel
Show More Instructions
1

Lancez Microsoft Excel , cliquez sur l'onglet « Développeur », puis cliquez sur " Visual Basic " pour ouvrir le VB Editor. Créer un nouveau sous-procédure en ajoutant le code suivant :

privé SortVBAArray Sub ( )
2

Créer votre tableau de chaînes et d'ajouter dix valeurs à elle:

Dim dataArray (10) As String

dataArray (0) = "John"

dataArray ( 1) = " Zackari "

dataArray (2) = "Sam" < br >

dataArray (3) = " Adam "

dataArray (4) = "Bob"

dataArray (5) = " Kitzia "

dataArray (6) = " Daniel "

dataArray (7) = "Oscar"

dataArray (8) = " Alan "

dataArray (9) = " Yarexli "

3

Appelez le sous-procédure qui va trier les valeurs dans le tableau et terminer la procédure :

Appel sortArray ( dataArray )

End Sub
< br > 4

Créer le sous procédure qui va trier le tableau de chaînes dans l'ordre croissant et afficher les résultats dans la fenêtre Exécution :

sous sortArray ( tmpArray () As string)

Dim firstIdx As Integer

lastIdx As Integer

xCntr As Integer

yCntr As Integer

Temp Dim As String

Liste Dim As String

firstIdx = LBound ( tmpArray )

lastIdx = LimiteSup ( tmpArray )

xCntr = firstIdx Pour lastIdx - 1 x

yCntr = xCntr + 1 Pour lastIdx

Si tmpArray ( xCntr ) > tmpArray ( yCntr ) Puis

Temp = tmpArray ( yCntr )

tmpArray ( yCntr ) = tmpArray ( xCntr )

tmpArray ( xCntr ) = Temp

End If

Suivant yCntr

Suivant xCntr

xCntr = 1 To UBound ( tmpArray ) Photos

List = Liste & vbCrLf & tmpArray ( xCntr )

Suivant

Debug.Print Liste

End Sub
5 < p > Cliquez sur le premier sous-procédure et appuyez sur " Ctrl " + " G " pour afficher la fenêtre Exécution. Appuyez sur "F5" pour exécuter le programme et voir les résultats.