Το σεμινάριο δείχνει πώς μπορείτε να ταξινομήσετε γρήγορα τα φύλλα εργασίας του Excel σε αλφαβητική σειρά χρησιμοποιώντας κώδικα VBA και το εργαλείο Διαχείριση βιβλίων εργασίας.

Το Microsoft Excel παρέχει διάφορους γρήγορους και εύκολους τρόπους για να τακτοποιήσετε τις στήλες ή τις γραμμές με αλφαβητική σειρά. Υπάρχει όμως μόνο μία μέθοδος για την αναδιάταξη των φύλλων εργασίας στο Excel - σύρετέ τα στην επιθυμητή θέση στη γραμμή καρτελών του φύλλου. Όταν πρόκειται για την αλφαβητική διάταξη των καρτελών σε ένα πραγματικά μεγάλο βιβλίο εργασίας, αυτός μπορεί να είναι ένας μακρύς και λανθασμένος τρόπος. Ψάχνετε για μια εναλλακτική λύση που εξοικονομεί χρόνο; Υπάρχουν μόνο δύο: ο κώδικας VBAή εργαλεία τρίτων.

Πώς να αλφαβητοποιήσετε καρτέλες στο Excel με VBA

Παρακάτω θα βρείτε τρία παραδείγματα κώδικα VBA για την ταξινόμηση των φύλλων του Excel σε αύξουσα, φθίνουσα και σε οποιαδήποτε κατεύθυνση με βάση την επιλογή του χρήστη.

Υποθέτοντας ότι έχετε κάποια εμπειρία με την VBA, θα περιγράψουμε μόνο τα βασικά βήματα για να προσθέσετε μια μακροεντολή στο φύλλο εργασίας σας:

1. Στο βιβλίο εργασίας του Excel, πατήστε Alt + F11 για να ανοίξετε το Visual Basic Editor.
2. Στο αριστερό παράθυρο, κάντε δεξί κλικ στο ThisWorkbook , και στη συνέχεια κάντε κλικ στο Εισαγωγή >, Ενότητα .
3. Επικολλήστε τον κώδικα VBA στο παράθυρο Κώδικας.
4. Πατήστε F5 για να εκτελέσετε τη μακροεντολή.

Για λεπτομερείς οδηγίες βήμα προς βήμα, ανατρέξτε στην ενότητα Πώς να εισαγάγετε και να εκτελέσετε κώδικα VBA στο Excel.

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

Εναλλακτικά, μπορείτε να κατεβάσετε το δείγμα του βιβλίου εργασίας Alphabetize Excel Tabs, να ενεργοποιήσετε το περιεχόμενο αν σας ζητηθεί και να εκτελέσετε την επιθυμητή μακροεντολή απευθείας από εκεί. Το βιβλίο εργασίας περιέχει τις ακόλουθες μακροεντολές:

• TabsAscending - ταξινομήστε τα φύλλα αλφαβητικά από το Α έως το Ω.
• TabsDescending - τακτοποιήστε τα φύλλα με την αντίστροφη σειρά, από το Ζ στο Α.
• AlphabetizeTabs - ταξινομήστε τις καρτέλες φύλλων και προς τις δύο κατευθύνσεις, αύξουσα ή φθίνουσα.

Με το βιβλίο εργασίας του δείγματος κατεβασμένο και ανοιχτό στο Excel σας, ανοίξτε το δικό σας βιβλίο εργασίας όπου θέλετε να αλφαβητοποιήσετε τις καρτέλες, πατήστε Alt + F8 , επιλέξτε την επιθυμητή μακροεντολή και κάντε κλικ στο κουμπί Εκτέλεση .

Ταξινόμηση καρτελών του Excel αλφαβητικά από το Α έως το Ω

Αυτή η μικρή μακροεντολή τακτοποιεί τα φύλλα του τρέχοντος βιβλίου εργασίας σε αύξουσα αλφαριθμητική σειρά , πρώτα τα φύλλα εργασίας των οποίων τα ονόματα αρχίζουν με αριθμούς, και στη συνέχεια τα φύλλα από το Α έως το Ω.

Sub TabsAscending() For i = 1 To Application.Sheets.Count For j = 1 To Application.Sheets.Count - 1 If UCase$(Application.Sheets(j).Name)> UCase$(Application.Sheets(j + 1).Name) Then Sheets(j).Move after:=Sheets(j + 1) End If Next Next Next MsgBox "Οι καρτέλες έχουν ταξινομηθεί από το Α έως το Ω." End Sub

Τακτοποιήστε τις καρτέλες του Excel από το Z στο A

Αν θέλετε να ταξινομήσετε τα φύλλα σας σε φθίνουσα αλφαριθμητική σειρά (Z έως A, και στη συνέχεια φύλλα με αριθμητικά ονόματα), τότε χρησιμοποιήστε τον ακόλουθο κώδικα:

Sub TabsDescending() For i = 1 To Application.Sheets.Count For j = 1 To Application.Sheets.Count - 1 If UCase$(Application.Sheets(j).Name) <UCase$(Application.Sheets(j + 1).Name) Then Application.Sheets(j).Move after:=Application.Sheets(j + 1) End If Next Next Next MsgBox "Οι καρτέλες έχουν ταξινομηθεί από το Ζ στο Α." End Sub

Αλφαβητική ταξινόμηση καρτελών με αύξουσα ή φθίνουσα σειρά

Αυτή η μακροεντολή επιτρέπει στους χρήστες σας να αποφασίζουν πώς θα ταξινομούν τα φύλλα εργασίας σε ένα συγκεκριμένο βιβλίο εργασίας, αλφαβητικά από το Α έως το Ω ή με την αντίστροφη σειρά.

Δεδομένου ότι το τυπικό πλαίσιο διαλόγου (MsgBox) στο Excel VBA επιτρέπει μόνο την επιλογή από μια χούφτα προκαθορισμένων κουμπιών, θα δημιουργήσουμε τη δική μας φόρμα (UserForm) με τρία προσαρμοσμένα κουμπιά: Από το Α έως το Ω , Από Z σε A , και Ακύρωση .

Για το σκοπό αυτό, ανοίξτε τον επεξεργαστή της Visual Basic, κάντε δεξί κλικ στο ThisWorkbook , και κάντε κλικ στο Εισαγωγή >, UserForm . Ονομάστε τη φόρμα σας SortOrderFrom , και προσθέστε 4 στοιχεία ελέγχου σε αυτό: μια ετικέτα και τρία κουμπιά:

Στη συνέχεια, πατήστε F7 (ή κάντε διπλό κλικ στη φόρμα) για να ανοίξετε το Κωδικός και επικολλήστε εκεί τον παρακάτω κώδικα. Ο κώδικας υποκλέπτει τα κλικ των κουμπιών και εκχωρεί μια μοναδική ετικέτα σε κάθε κουμπί:

Private Sub CommandButton1_Click() Me.Tag = 1 Me.Hide End Sub Private Sub CommandButton2_Click() Me.Tag = 2 Me.Hide End Sub Private Sub CommandButton3_Click() Me.Tag = 0 Me.Hide End Sub

Ανάλογα με το αν ο χρήστης κάνει κλικ στο Από το Α έως το Ω ή Από Z σε A στη φόρμα σας, ταξινομήστε τις καρτέλες σε αύξουσα αλφαβητική σειρά (επιλεγμένη από προεπιλογή) ή φθίνουσα αλφαβητική σειρά- ή κλείστε τη φόρμα και μην κάνετε τίποτα σε περίπτωση Ακύρωση Αυτό γίνεται με τον ακόλουθο κώδικα VBA, τον οποίο εισάγετε με τον συνηθισμένο τρόπο μέσω Εισαγωγή >, Ενότητα .

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm If SortOrder = 0 Then Exit Sub For x = 1 To Application.Sheets.Count For y = 1 To Application.Sheets.Count - 1 If SortOrder = 1 Then If UCase$(Application.Sheets(y).Name)> UCase$(Application.Sheets(y + 1).Name) Then Sheets(y).Move after:=Sheets(y + 1) End If ElseIf SortOrder = 2 Then If UCase$(Application.Sheets(y).Name)<UCase$(Application.Sheets(y + 1).Name) Then Sheets(y).Move after:=Sheets(y + 1) End If End If Next Next End Sub Function showUserForm() As Integer showUserForm = 0 Load SortOrderForm SortOrderForm.Show (1) showUserForm = SortOrderForm.Tag Unload SortOrderForm End Function

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

Επιλέξτε την προτιμώμενη σειρά ταξινόμησης, ας πούμε, Από το Α έως το Ω και παρατηρήστε τα αποτελέσματα:

Συμβουλή. Με το VBA, μπορείτε επίσης να δημιουργήσετε αντίγραφα των φύλλων εργασίας του Excel. Ο κώδικας είναι διαθέσιμος εδώ: Πώς να αντιγράψετε φύλλο στο Excel με το VBA.

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

Οι χρήστες της Ultimate Suite για το Excel δεν χρειάζεται να ασχολούνται με το VBA - έχουν στη διάθεσή τους έναν πολυλειτουργικό Διαχειριστή Βιβλίων Εργασίας:

Με αυτό το εργαλείο που προστίθεται στην κορδέλα του Excel, η αλφαβητική ταξινόμηση των καρτελών γίνεται με ένα απλό κλικ, όπως ακριβώς πρέπει να γίνεται!

Αν είστε περίεργοι να εξερευνήσετε αυτά και άλλα 70+ επαγγελματικά εργαλεία για το Excel, μια δοκιμαστική έκδοση της Ultimate Suite είναι διαθέσιμη για λήψη εδώ.

Σας ευχαριστώ για την ανάγνωση και ελπίζω να σας δω στο blog μας την επόμενη εβδομάδα!