Πώς να Ταξινόμηση ένα Array String σε VBA

Διαλογή μια σειρά σειρά σε Visual Basic for Applications ( VBA ), δεν είναι τόσο απλό όσο και σε άλλες , πιο πρόσφατες γλώσσες προγραμματισμού . Στην VBA , μπορείτε να ταξινομήσετε μια σειρά σε αύξουσα σειρά χρησιμοποιώντας ένα ζευγάρι των " Για ... θηλιές » και looping μέσα από κάθε στοιχείο του πίνακα . Η μέθοδος αυτή είναι χρήσιμη όταν θέλετε να εμφανίσετε τις τιμές πίσω στο χρήστη σε αύξουσα σειρά , για να δώσει τα στοιχεία σας μια πιο επαγγελματική εμφάνιση . Τα πράγματα που θα χρειαστείτε για Microsoft Excel
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Εκκίνηση του Microsoft Excel , κάντε κλικ στην καρτέλα "Προγραμματιστής " , στη συνέχεια, κάντε κλικ στο " Visual Basic" για να ανοίξετε το VB editor. Δημιουργήστε μια νέα διαδικασία sub με την προσθήκη του παρακάτω κώδικα :

Private Sub SortVBAArray ( ) 2

Δημιουργία πίνακα χορδών σας και να προσθέσετε δέκα τιμές σε αυτό :

Dim DataArray ( 10 ) Όπως String

DataArray ( 0 ) = " John"

DataArray ( 1 ) = " Zackari "

DataArray ( 2 ) = " Sam "

DataArray ( 3 ) = " Αδάμ "

DataArray ( 4 ) = " Bob "

DataArray ( 5 ) = " Kitzia "

DataArray ( 6 ) = " Daniel"

DataArray ( 7 ) = " Όσκαρ "

DataArray ( 8 ) = " Alan "

DataArray ( 9 ) = " Yarexli "

με 3

Καλέστε τη διαδικασία sub που θα ταξινομήσετε τις τιμές στον πίνακα και στο τέλος της διαδικασίας :

Καλέστε sortArray ( DataArray )

End Sub

4

Δημιουργήστε τη διαδικασία επιμέρους που θα ταξινομήσει τον πίνακα σειρά σε αύξουσα σειρά και την εμφάνιση των αποτελεσμάτων μέσω της άμεσης παράθυρο :

Sub sortArray ( tmpArray ( ) Όπως String )

Dim firstIdx Όπως Integer

Dim lastIdx As Integer

Dim xCntr As Integer

Dim yCntr As Integer

Dim Temp Όπως String

Λίστα Dim Όπως String

firstIdx = LBound ( tmpArray )

lastIdx = UBound ( tmpArray )

Για xCntr = firstIdx να lastIdx - 1

Για yCntr = xCntr + 1 Για lastIdx

Αν tmpArray ( xCntr ) > tmpArray ( yCntr ) Στη συνέχεια

Temp = tmpArray ( yCntr )

tmpArray ( yCntr ) = tmpArray ( xCntr )

tmpArray ( xCntr ) = Θερμοκρασία

End If

Επόμενο yCntr

Επόμενο xCntr

Για xCntr = 1 Για να UBound ( tmpArray )

List = Λίστα & vbCrLf & tmpArray ( xCntr )

Επόμενο

Debug.Print Λίστα

End Sub
5

Κάντε κλικ στην πρώτη διαδικασία ρουτίνας και πατήστε το πλήκτρο " Ctrl " + " G " για να εμφανιστεί το παράθυρο άμεσης παρακολούθησης . Πατήστε το πλήκτρο " F5 " για να τρέξει το πρόγραμμα και να δείτε τα αποτελέσματα .
Η
εικόνων