Πώς να ταξινομήσετε τις καρτέλες φύλλου εργασίας σε αλφαβητική σειρά στο Excel

Εάν έχετε μεγάλο αριθμό φύλλων εργασίας στο βιβλίο εργασίας του Excel, μπορεί να είναι δύσκολο να βρείτε ένα συγκεκριμένο φύλλο εργασίας. Η ταξινόμηση των καρτελών του φύλλου εργασίας σας αλφαβητικά θα σας διευκόλυνε να βρείτε αυτό που ψάχνετε.

Εκτός από την οργάνωση των καρτελών του φύλλου εργασίας εφαρμόζοντας χρώματα σε αυτά, μπορείτε επίσης να τα ταξινομήσετε αλφαβητικά ή αλφαριθμητικά, αρκεί να έχετε εφαρμόσει προσαρμοσμένα ονόματα στα φύλλα εργασίας σας. Δυστυχώς, η ταξινόμηση των καρτελών του φύλλου εργασίας με αλφαβητική σειρά δεν ενσωματώνεται στο Excel, αλλά μπορείτε να προσθέσετε μια μακροεντολή στο βιβλίο εργασίας σας που θα σας επιτρέψει να ταξινομήσετε τις καρτέλες σας σε αύξουσα ή φθίνουσα σειρά. Θα σας δείξουμε πώς να προσθέσετε μια μακροεντολή διαθέσιμη στον ιστότοπο υποστήριξης της Microsoft στο βιβλίο εργασίας του Excel που θα ταξινομήσει τις καρτέλες του φύλλου εργασίας σας.

Για να ξεκινήσετε, πατήστε Alt + F11 για να ανοίξετε τον επεξεργαστή Microsoft Visual Basic for Applications (VBA). Στη συνέχεια, μεταβείτε στο Insert> Module.

Αντιγράψτε και επικολλήστε την ακόλουθη μακροεντολή από τη Microsoft στο παράθυρο της ενότητας που εμφανίζεται.

SubArder_Active_Book () Dim i ως ακέραιος Dim j Ως ακέραιος Dim iAnswer Ως VbMsgBoxResult "Προτρέψτε τον χρήστη ως προς ποια κατεύθυνση θέλει να ταξινομήσει τα φύλλα εργασίας" iAnswer = MsgBox ("Ταξινόμηση φύλλων σε αύξουσα σειρά;" & Chr (10) _ & "Το κλικ με το No θα ταξινομηθεί στην φθίνουσα σειρά", _ vbYesNoCancel + vbQuestion + vbDefaultButton1, "Ταξινόμηση φύλλων εργασίας") Για i = 1 Σε Sheets.Count Για j = 1 Σε Sheets.Count - 1 " σε αύξουσα σειρά. 'Εάν το iAnswer = vbYes Στη συνέχεια, αν το UCase $ (φύλλα (j) .Name)> UCase $ (φύλλα (j + 1). η απάντηση είναι Όχι, στη συνέχεια ταξινομούμε σε φθίνουσα σειρά. 'ElseIf iAnswer = vbNo Στη συνέχεια, αν UCase $ (φύλλα (j) .Name) < UCase$(Sheets(j + 1).Name) Then                Sheets(j).Move After:=Sheets(j + 1)             End If          End If       Next j    Next i End Sub

Ο επεξεργαστής VBA ονομάζει αυτόματα κάθε ενότητα με έναν αριθμό στο τέλος, όπως η Ενότητα1, η Ενότητα2, κλπ. Μπορείτε απλά να αποδεχτείτε το προεπιλεγμένο όνομα της ενότητας. Ωστόσο, εάν σκοπεύετε να προσθέσετε άλλες μακροεντολές στο βιβλίο εργασίας σας, είναι καλή ιδέα να μετονομάσετε κάθε ενότητα, ώστε να ξέρετε τι είναι. Θα μετονομάσουμε την ενότητα μας για να σας δείξει πώς.

Για να μετονομάσετε τη λειτουργική μονάδα, επιλέξτε το κείμενο στο πλαίσιο Όνομα για τη μονάδα κάτω από το στοιχείο Ιδιότητες στο αριστερό παράθυρο.

Πληκτρολογήστε ένα όνομα για την ενότητα στο πλαίσιο Όνομα και πατήστε Enter. Σημειώστε ότι το όνομα της μονάδας δεν μπορεί να περιέχει κενά.

Το όνομα της ενότητας αλλάζει στη λίστα "Modules" κάτω από το Project στο αριστερό παράθυρο.

Κλείστε τον επεξεργαστή VBA πατώντας Αρχείο> Κλείσιμο και Επιστροφή στο Microsoft Excel.

Τώρα, θα τρέξουμε τη μακροεντολή για να ταξινομήσουμε τις καρτέλες μας. Πατήστε Alt + F8 για να αποκτήσετε πρόσβαση στη λίστα μακροεντολών στο πλαίσιο διαλόγου Macro. Επιλέξτε τη μακροεντολή στη λίστα (στην περίπτωσή μας υπάρχει μόνο μία μακροεντολή) και κάντε κλικ στην επιλογή "Εκτέλεση".

Εμφανίζεται το ακόλουθο παράθυρο διαλόγου, το οποίο σας επιτρέπει να επιλέξετε αν θέλετε να ταξινομήσετε τα φύλλα εργασίας σας σε αύξουσα ή φθίνουσα σειρά. Θέλουμε να τα ταξινομήσουμε σε αύξουσα σειρά, ώστε να κάνουμε κλικ στο "Ναι".

Οι καρτέλες φύλλου εργασίας είναι πλέον διατεταγμένες αλφαβητικά.

Η μακροεντολή που προσθέσατε είναι τώρα μέρος του βιβλίου εργασίας σας, αλλά όταν την αποθηκεύετε, πιθανότατα θα δείτε το ακόλουθο παράθυρο διαλόγου. Αυτό συμβαίνει επειδή αποθηκεύσατε το βιβλίο εργασίας σας ως αρχείο .xlsx, το οποίο είναι μια κανονική μορφή βιβλίου εργασίας του Excel που δεν περιλαμβάνει μακροεντολές. Για να συμπεριλάβετε μακροεντολές στο βιβλίο εργασίας σας και να μπορείτε να τις εκτελέσετε, πρέπει να αποθηκεύσετε το βιβλίο εργασίας ως βιβλίο εργασίας με δυνατότητα ενεργοποίησης μακροεντολών ή ένα αρχείο .xlsm. Για να το κάνετε αυτό, κάντε κλικ στο "Όχι" σε αυτό το παράθυρο διαλόγου.

Εμφανίζεται το παράθυρο διαλόγου Αποθήκευση ως. Πλοηγηθείτε όπου θέλετε να αποθηκεύσετε το βιβλίο εργασίας με δυνατότητα ενεργοποίησης μακροεντολών, εάν δεν είστε ήδη σε αυτόν το φάκελο. Επιλέξτε "Βιβλίο εργασίας με δυνατότητα Macro Excel (* .xlsm)" από την αναπτυσσόμενη λίστα "Αποθήκευση ως τύπος".

Κάντε κλικ στην επιλογή "Αποθήκευση".

Εάν δεν αποθηκεύσετε το βιβλίο εργασίας ως βιβλίο εργασίας με δυνατότητα μακροεντολής (αρχείο .xlsm), η μακροεντολή που προσθέσατε θα διαγραφεί. Ίσως θελήσετε να διαγράψετε την έκδοση .xlsx του βιβλίου εργασίας σας, ώστε να μην ξεχάσετε να χρησιμοποιήσετε την έκδοση .xlsm του βιβλίου εργασίας σας εάν θέλετε να προσθέσετε περισσότερες καρτέλες φύλλου εργασίας και να τις ταξινομήσετε ξανά χρησιμοποιώντας τη μακροεντολή. Μπορείτε να αποθηκεύσετε ξανά το βιβλίο εργασίας ως αρχείο .xlsx, αν δεν θέλετε πλέον να χρησιμοποιήσετε μακροεντολές.