Σε αυτό το άρθρο, θα μάθουμε να ταξινομούμε φύλλα με αύξουσα σειρά μέσω VBA στο Microsoft Excel 2010.
Ενώ εργάζεστε σε πολλά φύλλα, διαπιστώνετε ότι τα φύλλα δεν είναι σωστά τοποθετημένα. Θέλετε να δημιουργήσετε γρήγορα μια μακροεντολή που θα ταξινομεί αυτόματα το φύλλο σε αύξουσα σειρά κάθε φορά που εκτελείται η μακροεντολή.
Για να ταξινομήσετε τα φύλλα με αύξουσα σειρά, ακολουθήστε τα παρακάτω βήματα:
- Πατήστε Alt+F11 για να ξεκινήσετε την οθόνη του VB Editor
- Από το μενού Εισαγωγή, επιλέξτε Ενότητα.
- Στην ενότητα, πληκτρολογήστε τις γραμμές κώδικα ως εξής:
Sub SortingSheetsInAscending ()
Dim i As Integer, n As Integer, SheetsCounter As Integer
Εάν το ActiveWorkbook δεν είναι τίποτα, τότε βγείτε από το υπο
Αν ActiveWorkbook.ProtectStructure Τότε
MsgBox ActiveWorkbook.Name & "is protected", vbCritical, "Sort Sheets"
Έξοδος Sub
Τέλος εαν
Αν MsgBox ("Ταξινόμηση φύλλων;", vbQuestion + vbΝαιΌχι) vbΝαι Τότε Έξοδος από υπο
Application.EnableCancelKey = xl Απενεργοποιημένο
SheetsCounter = Sheets.Count
Για i = 2 To SheetsCounter
Για n = 1 στο SheetsCounter
Εάν Φύλλα (n). Όνομα> Φύλλα (i). Όνομα Τότε
Φύλλα (i). Μετακίνηση πριν: = Φύλλα (n)
Τέλος εαν
Επόμενο n
Επόμενο i
Τέλος υπο
- Εκτελέστε τη μακροεντολή από τη μονάδα πατώντας F5.
Εναλλακτικά, πατήστε Alt+F11 και επιστρέψτε στο Excel, εκχωρήστε τη μακροεντολή σε οποιοδήποτε αντικείμενο του Excel ως κουμπί ή εικονίδιο ή πατήστε Alt+F8 για να επιλέξετε τη μακροεντολή και, στη συνέχεια, κάντε κλικ στην επιλογή Εκτέλεση.
Θα διαπιστώσετε ότι τα φύλλα είναι διατεταγμένα με αλφαριθμητική σειρά.