Πώς να Ταξινόμηση Tabs Αλφαβητικά Με VBA στο Excel

Διαλογή καρτέλες αλφαβητικά με τη Visual Basic for Applications ( VBA ) στο Excel δεν είναι τόσο δύσκολο όπως μπορείτε να σκεφτείτε . Στην VBA μπορείτε να χρησιμοποιήσετε τη μέθοδο « Worksheet.Move " για να μετακινήσετε ένα φύλλο σε μια άλλη θέση στο βιβλίο εργασίας . Μπορείτε να ορίσετε το όνομα και τη σειρά των φύλλων σε μια σειρά και βρόχο μέσω του πίνακα για να μετακινήσετε το είδος των καρτελών φύλλου . Αυτή η μέθοδος είναι εξαιρετικά χρήσιμο όταν θέλετε να ταξινομήσετε μέσω πολλών φύλλων σε ένα βιβλίο εργασίας . Οδηγίες
Η

1 Κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic" για να ανοίξετε το Microsoft Visual Basic. Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να προσθέσετε μια νέα ενότητα 2

Ξεκινήστε με τη δημιουργία μιας νέας διαδικασίας sub και προσθέτοντας τον παρακάτω κώδικα VBA : .

Sub sortSheetsAlphabetically ( )
εικόνων 3

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

Dim shtNamesArray Όπως Παραλλαγή

Dim shtCntr Όπως Long
4

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

shtNamesArray = Array ( " aSheet " , " bSheet " , " cSheet " )

5

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

για shtCntr = UBound ( shtNamesArray ) να LBound ( shtNamesArray ) Βήμα -1
.

Φύλλα εργασίας ( shtNamesArray ( shtCntr ) ) Μετακίνηση πριν : = Φύλλα εργασίας ( 1 )

Επόμενο shtCntr
Η

6 Ολοκληρώστε τη διαδικασία, πληκτρολογώντας " End Sub ". Πατήστε το πλήκτρο " F5 " για να τρέξει και να ταξινομήσετε τις καρτέλες .
Η
εικόνων