|
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 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.
|
