Δείτε πώς μπορείτε να δώσετε στους πίνακες σας μια αλφαβητική σειρά
Η ταξινόμηση δεδομένων αλφαβητικά στις λίστες σας δεν αποτελεί πρόβλημα. Αλλά πώς θα το κάνετε όταν θέλετε να βάλετε τα φύλλα εργασίας με αλφαβητική σειρά σύμφωνα με τα ονόματά τους;
Η παρακάτω εικόνα δείχνει ένα μητρώο φύλλων με μια σειρά φύλλων εργασίας. Θα πρέπει να ταξινομηθούν αλφαβητικά έτσι ώστε να είναι ευκολότερο να βρεθούν.
3
Με μερικά φύλλα, μπορείτε να κάνετε αξιόπιστα τη δουλειά χειροκίνητα. Με πολλά φύλλα αυτό γίνεται γρήγορα δύσκολο, χρονοβόρο και μπερδεμένο. Η παρακάτω μακροεντολή θα σας βοηθήσει περαιτέρω:
Sub SortBlaetter ()
Dim Zaehler1 ως ακέραιος, Zaehler2 ως ακέραιος
Dim Name As String
Όνομα = ActiveSheet.Name
Για Zaehler1 = 1 στα φύλλα εργασίας. Αριθμός
Για Zaehler2 = Zaehler1 Προς φύλλα εργασίας. Αριθμός
Εάν UCase (Φύλλα εργασίας (Counter2). Όνομα) <UCase (Worksheets (Counter1). Name) Τότε
Φύλλα εργασίας (Zaehler2). Μετακίνηση πριν: = Φύλλα εργασίας (Zaehler1)
Τέλος εαν
Επόμενος μετρητής2, μετρητής1
Φύλλα εργασίας (Όνομα). Ενεργοποιήστε
Τέλος υπο
Η μακροεντολή ταξινομεί τα φύλλα εργασίας στο ενεργό βιβλίο εργασίας με αλφαβητική αύξουσα σειρά. Το παρακάτω σχήμα δείχνει πώς μοιάζει το δείγμα βιβλίου εργασίας μετά την εκκίνηση της μακροεντολής:
Συμβουλή: Αν θέλετε να μάθετε πώς να εισάγετε και να ξεκινάτε μακροεντολές στο Excel, θα βρείτε μια σύντομη περιγραφή εδώ: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
