Η προσαρμοσμένη ταξινόμηση στο Excel είναι μια πολύ χρήσιμη λειτουργία. Σε αυτό το άρθρο, θα μιλήσουμε για τον τρόπο αυτόματης ενημέρωσης προσαρμοσμένης ταξινόμησης σε ένα εύρος χρησιμοποιώντας το Excel VBA.
Όταν χρησιμοποιείτε το προσαρμοσμένο είδος, θα διαπιστώσετε ότι αυτή είναι μια καταπληκτική δυνατότητα στο Excel. Ωστόσο, εάν χρησιμοποιείτε αυτήν τη δυνατότητα συχνά, ενδέχεται επίσης να βρείτε πρόβλημα. Θα ταξινομήσετε σε μια σειρά με ορισμένα δεδομένα και πληροφορίες. Όταν προσθέτετε επιπλέον δεδομένα και πληροφορίες στο εύρος, η σειρά στο εύρος δεν θα αλλάξει αυτόματα. Η παρακάτω εικόνα δείχνει ένα παράδειγμα μιας τέτοιας κατάστασης.
Όταν προσθέτετε ένα νέο σύνολο δεδομένων στο εύρος, δεν θα αλλάξει αυτόματα την κατάταξη. Εάν εξακολουθείτε να θέλετε να ταξινομήσετε αυτό το μεγαλύτερο εύρος με νέα σύνολα δεδομένων με τα ίδια κριτήρια, πρέπει να εκτελέσετε ξανά τη διαδικασία προσαρμοσμένης ταξινόμησης. Μπορείτε να δείτε ότι αυτό είναι πολύ ενοχλητικό, ειδικά όταν πρέπει να ενημερώνετε συνεχώς τα δεδομένα και τις πληροφορίες στο φύλλο εργασίας. Κάθε φορά που προσθέτετε νέες πληροφορίες στο εύρος, πρέπει να ταξινομήσετε ξανά. Για να επιλύσετε αυτό το πρόβλημα και να ολοκληρώσετε γρήγορα την εργασία σας, μπορείτε να συνεχίσετε να διαβάζετε αυτό το άρθρο.
Εγγραφή μακροεντολής
Όταν τα κριτήρια προσαρμοσμένου είδους είναι πολύ περίπλοκα, θα δυσκολευτείτε να γράψετε απευθείας τους κωδικούς VBA. Έτσι, τώρα μπορείτε πρώτα να εγγράψετε μια μακροεντολή. Και οι κωδικοί σε αυτήν τη μακροεντολή μπορούν να χρησιμοποιηθούν σε άλλες μακροεντολές. Η διαδικασία καταγραφής κωδικών είναι πολύ εύκολη.
- Πριν καταγράψετε μια μακροεντολή, πρέπει να προσθέσετε την καρτέλα VBA στην κορδέλα. Εδώ κάντε δεξί κλικ σε οποιαδήποτε καρτέλα στην κορδέλα.
- Και μετά επιλέξτε το "Customize the Ribbon" στο μενού.
- Τώρα στο παράθυρο "Επιλογές Excel", επιλέξτε την επιλογή "Προγραμματιστής" στη λίστα "Κύριες καρτέλες".
- Μετά από αυτό, κάντε κλικ στο "OK" στο παράθυρο. Επομένως, έχετε προσθέσει την καρτέλα στην κορδέλα.
- Τώρα θα επιστρέψετε στο φύλλο εργασίας. Κάντε κλικ στην καρτέλα "Προγραμματιστής" που έχετε προσθέσει.
- Και μετά κάντε κλικ στο κουμπί "Εγγραφή μακροεντολής" στη γραμμή εργαλείων. Έτσι, θα εμφανιστεί το παράθυρο "Εγγραφή μακροεντολής".
Από την άλλη πλευρά, μπορείτε επίσης να κάνετε κλικ στο μικρό κουμπί στο κάτω μέρος του φύλλου εργασίας για να αντικαταστήσετε τα παραπάνω 6 βήματα.
- Τώρα στο παράθυρο "Εγγραφή μακροεντολής", εισαγάγετε το όνομα στο πρώτο πλαίσιο κειμένου. Αντιστοιχίστε ένα πλήκτρο συντόμευσης. Και μετά προσθέστε την περιγραφή σύμφωνα με τις ανάγκες σας.
- Στη συνέχεια κάντε κλικ στο "OK". Έτσι, η μακροεντολή αρχίζει να καταγράφει κάθε λειτουργία που κάνετε.
- Επιλέξτε το εύρος που πρέπει να ταξινομήσετε στο φύλλο εργασίας.
- Κάντε κλικ στην καρτέλα "Αρχική σελίδα".
- Και μετά κάντε κλικ στο κουμπί "Ταξινόμηση και φίλτρο" στην κορδέλα.
- Στην αναπτυσσόμενη λίστα, επιλέξτε την επιλογή "Προσαρμοσμένη ταξινόμηση".
- Στο παράθυρο "Ταξινόμηση", ορίστε τα κριτήρια ανάλογα με τις ανάγκες σας. Όλες οι ενέργειες θα καταγραφούν στη μακροεντολή.
Όταν κάνετε εγγραφή μακροεντολής, μην κάνετε επιπλέον βήματα. Διαφορετικά, αυτά τα βήματα θα καταγραφούν επίσης. Και αυτό θα προκαλέσει προβλήματα στο επόμενο μέρος.
- Αφού ολοκληρώσετε τη ρύθμιση στο παράθυρο "Ταξινόμηση", κάντε κλικ στο "OK" για να αποθηκεύσετε τις ρυθμίσεις.
- Τώρα κάντε ξανά κλικ στην καρτέλα "Προγραμματιστής" στην κορδέλα.
- Και μετά κάντε κλικ στο κουμπί "Διακοπή εγγραφής". Όταν το φύλλο εργασίας είναι σε κατάσταση εγγραφής μακροεντολών, το κουμπί θα αλλάξει σε "Διακοπή εγγραφής".
Μπορείτε επίσης να κάνετε κλικ στο κουμπί στο κάτω μέρος του φύλλου εργασίας για να σταματήσετε την εγγραφή της μακροεντολής. Έτσι, ολοκληρώσατε την ηχογράφηση. Όλα τα κριτήρια ταξινόμησης έχουν αποθηκευτεί στη μακροεντολή 1.
Χρησιμοποιήστε μακροεντολές Excel VBA
Σε αυτό το μέρος, θα σας δείξουμε πώς να χρησιμοποιήσετε τις μακροεντολές VBA για να ενημερώσετε προσαρμοσμένο είδος στο φύλλο εργασίας σας. Και θα χρησιμοποιήσετε επίσης τις καταγεγραμμένες μακροεντολές σε αυτό το μέρος.
- Κάντε κλικ στην καρτέλα "Προγραμματιστής" στην κορδέλα.
- Και μετά κάντε κλικ στο κουμπί "Visual Basic" στη γραμμή εργαλείων. Αντ 'αυτού, μπορείτε επίσης να πατήσετε το κουμπί "Alt + F11" στο πληκτρολόγιο για να αντικαταστήσετε τα 2 βήματα.
- Στον επεξεργαστή της Visual Basic, κάντε διπλό κλικ στο φύλλο στην περιοχή "VBAProject". Σε αυτό το φύλλο, πρέπει να ενημερώσετε προσαρμοσμένο είδος. Και στο πραγματικό σας αρχείο, πρέπει να κάνετε διπλό κλικ στο αντίστοιχο φύλλο.
- Τώρα εισαγάγετε τους ακόλουθους κωδικούς στην περιοχή.
Private Sub Worksheet_Change(ByVal Target As Range) End Sub
- Και μετά εισαγάγετε τους ακόλουθους κωδικούς μεταξύ των δύο παραπάνω προτάσεων VBA.
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A1:C13")) Is Nothing Then
End If
Εδώ εκτιμάται το εύρος. Θα υπάρξουν 12 μήνες για τον όγκο των πωλήσεων και μαζί με την πρώτη σειρά της κεφαλίδας, εισάγουμε το εύρος "A1: C13". Μπορείτε επίσης να εισαγάγετε το εύρος στους κωδικούς ανάλογα με το πραγματικό φύλλο εργασίας σας.
- Σε αυτό το βήμα, ανοίξτε την ενότητα 1 στον επεξεργαστή. Οι κωδικοί σε αυτήν την ενότητα είναι η διαδικασία προσαρμοσμένου είδους που έχετε κάνει νωρίτερα. Μπορείτε να δείτε ότι η χρήση της δυνατότητας εγγραφής μακροεντολών μπορεί να σας εξοικονομήσει πολύ χρόνο.
- Τώρα αντιγράψτε το κύριο μέρος αυτής της ενότητας.
- Και μετά κάντε διπλό κλικ στο tarλήψη φύλλου στο τμήμα "VBAProject".
- Μετά από αυτό, επικολλήστε τους κωδικούς στους κωδικούς IF-END IF.
- Και μετά τροποποιήστε το εύρος στους κωδικούς ανάλογα με τις ανάγκες σας. Η καταγεγραμμένη μακροεντολή είναι λίγο περίπλοκη και περιττή. Μπορείτε επίσης να το τροποποιήσετε ανάλογα με τις ανάγκες σας. Επομένως, οι πλήρεις κωδικοί VBA θα είναι ως εξής:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A1:C13")) Is Nothing Then
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("B2:B13"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("C2:C13"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
End With
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:C13")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
End Sub
Προσθέτουμε ένα άλλο ΜΕ ΤΕΛΟΣ ΜΕ στους κωδικούς. Έτσι, θα είναι σαφέστερο από το αποτέλεσμα της εγγραφής. Εάν έχετε άλλες απαιτήσεις, μπορείτε επίσης να το τροποποιήσετε ανάλογα με την πραγματική σας ανάγκη. Πρέπει να είστε προσεκτικοί κατά την τροποποίηση των κωδικών. Διαφορετικά, θα έχετε κάποιο λάθος αποτέλεσμα στο φύλλο εργασίας.
- Τώρα έχετε ολοκληρώσει τους κωδικούς VBA στον επεξεργαστή. Μπορείτε να επιστρέψετε στο φύλλο εργασίας και να δοκιμάσετε το αποτέλεσμα. Όταν προσθέσετε τον επόμενο μήνα και τους αντίστοιχους αριθμούς στο εύρος, η προσαρμοσμένη ταξινόμηση θα ανανεωθεί αυτόματα.
Επομένως, δεν θα χρειαστεί ποτέ να ενημερώνετε μη αυτόματα το προσαρμοσμένο είδος κάθε φορά που εισάγετε νέα στοιχεία στο tarπάρτε εύρος. Από την άλλη πλευρά, πρέπει να αποθηκεύσετε αυτό το βιβλίο εργασίας ως αρχείο Excel με δυνατότητα μακροεντολών. Διαφορετικά, θα χάσετε τους κωδικούς εάν αποθηκεύσετε ως συνηθισμένο αρχείο.
Θα παρέχουμε βοήθεια στα θύματα διαφθοράς του Excel
Όλοι γνωρίζουμε ότι το Excel είναι πολύ ισχυρό και μπορεί να σας βοηθήσει να ολοκληρώσετε την εργασία σας γρήγορα και εύκολα. Αλλά η εφαρμογή Excel δεν είναι ακόμη τέλεια. Μερικές φορές το Excel θα καταστραφεί για πολλούς διαφορετικούς λόγους. Μόλις το Excel καταστραφεί, δεν θα μπορείτε να ολοκληρώσετε τις εργασίες σας από αυτήν την εφαρμογή. Για να δουλέψετε καλύτερα, θα πρέπει να το επισκευάσετε το συντομότερο δυνατό.
Η εταιρεία μας εργάζεται εδώ και πολλά χρόνια στην περιοχή ανάκτησης, ειδικά στην ανάκτηση του Excel. Επομένως, μπορείτε να απευθυνθείτε στο τεχνικό μας προσωπικό για βοήθεια. Με πολυετή εμπειρία, μπορούμε εύκολα να καταλάβουμε τον λόγο που προκαλεί ζημιά στα αρχεία σας. Και για να σας βοηθήσουμε καλύτερα επιδιορθώστε τη ζημιά αρχείου Excel xlsx, έχουμε αναπτύξει ένα εργαλείο τρίτου μέρους. Αυτό το εργαλείο είναι πολύ εύκολο να χειριστεί και δεν χρειάζεται να ανησυχείτε για το πρόβλημα απορρήτου.
Εισαγωγή συγγραφέα:
Η Άννα Μα είναι ειδική ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή Word docx σφάλμα και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com