Πώς να ταξινομήσετε κατά μακροεντολή
Θέλετε να ταξινομήσετε δεδομένα από ένα πρόγραμμα VBA; Όταν χρησιμοποιείτε το Excel διαδραστικά, επικαλεστείτε την εντολή "Δεδομένα - Ταξινόμηση", αλλά πώς το κάνετε αυτό με μια μακροεντολή; Το παρακάτω σχήμα δείχνει μια λίστα χωρίς ταξινόμηση:
Για να ταξινομήσετε μια τέτοια λίστα κατά στήλη Β, για παράδειγμα, χρησιμοποιήστε την ακόλουθη μακροεντολή:
Sub SortColumnIncreasing ()
Χαμηλή στήλη ταξινόμησης ως συμβολοσειρά
Dim area As String
Εύρος = "A1: D28"
Ταξινόμηση στήλης = "Β"
ActiveSheet.Range. Ταξινόμηση _
Key1: = Range (sorting column & "1"), Order1: = xlΑύξουσα, _
Κεφαλίδα: = xlGuess, MatchCase: = False, _
Προσανατολισμός: = xlTopToBottom
Τέλος υπο
Όταν ξεκινάτε τη μακροεντολή, επιλέγεται η αντίστοιχη περιοχή κελιών στον πίνακα. Ως κριτήριο, το Excel χρησιμοποιεί τα περιεχόμενα της στήλης Β. Το παρακάτω σχήμα δείχνει το αποτέλεσμα:
Για να προσαρμόσετε τη μακροεντολή στις απαιτήσεις σας, ορίστε το περιεχόμενο για τις μεταβλητές "Περιοχή" και "Ταξινόμηση στήλης". Στην πρώτη μεταβλητή ορίζετε ποια περιοχή κελιών πρόκειται να ταξινομηθεί, με τη δεύτερη μεταβλητή ελέγχετε ποια στήλη θα χρησιμοποιηθεί ως κριτήριο.
Συμβουλή: Αν θέλετε να μάθετε πώς να εισάγετε και να ξεκινάτε μακροεντολές στο Excel, θα βρείτε μια σύντομη περιγραφή εδώ: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
