5 Ωραίες μακροεντολές Microsoft Excel για ταξινόμηση δεδομένων

Οι μακροεντολές Excel μπορεί να μην είναι τόσο ολοκληρωμένες όσο άλλα εργαλεία αυτοματισμού, αλλά η εγκυρότητα και η αποτελεσματικότητα του Excel VBA δεν μπορούν να υπονομευθούν. Εάν εργάζεστε στο Excel και σε άλλα εργαλεία του Microsoft Office, όπως το Word και η Access, δεν μπορείτε να κάνετε λάθος με το VBA και τις δυνατότητές του.

Το MS Excel είναι ένα ισχυρό εργαλείο που προσφέρει έναν τόνο επιλογών στους χρήστες του. Από την αποθήκευση δεδομένων έως τη δημιουργία αυτοματοποιημένων πινάκων εργαλείων, μπορείτε να τα κάνετε όλα στο Excel και τα υπολογιστικά φύλλα του.

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

Κατεβάστε ένα εικονικό σύνολο δεδομένων

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

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

Μπορείτε να κάνετε λήψη του συνόλου δεδομένων που χρησιμοποιείται σε αυτό το άρθρο, εάν θέλετε να το ακολουθήσετε.

Κατεβάστε: Σύνολο δεδομένων Excel

1. Ταξινόμηση μιας στήλης με χρήση μακροεντολών Excel

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

Ανοίξτε ένα νέο αρχείο Excel και αποθηκεύστε το με ένα Βιβλίο εργασίας με δυνατότητα Macro-Enable (.xlsm) τύπος βιβλίου εργασίας. Αυτό το αρχείο θα αποθηκεύσει τη μακροεντολή για να ταξινομήσει τα δεδομένα σας από άλλο αρχείο.

Σχετίζεται με: Καλύτερα διαδικτυακά μαθήματα για Master Advanced Excel

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

Εισαγάγετε τον ακόλουθο κωδικό:

Sub sortwithheaders()
Τετράδια εργασιών("Δείγμα Οικονομικών.xlsx").Φύλλα (1).Ενεργοποίηση
Εύρος ("A1:P701"). Κλειδί ταξινόμησης1:=Εύρος ("e1"), Σειρά1:=xlΑύξουσα, Κεφαλίδα:=xlΝαι
End Sub

Που:

• Κλειδί 1: Καθορίστε τις στήλες που θέλετε να ταξινομήσετε
• Παραγγελία 1: Μέθοδος παραγγελίας (αύξουσα/φθίνουσα)
• Επί κεφαλής: Εάν το περιεχόμενό σας έχει κεφαλίδες, αυτή η επιλογή θα παραμείνει ως xlΝαι. Εναλλακτικά, επιλέξτε xl Όχι.

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

2. Ταξινόμηση δυναμικών δεδομένων σε μία στήλη

Μπορεί να υπάρχουν περιπτώσεις όπου το σημείο εκκίνησης σας ορίζεται, αλλά το τελικό σας σημείο είναι δυναμικό. Σε μια τέτοια περίπτωση, μπορείτε να κάνετε τον κώδικά σας δυναμικό έτσι ώστε να παίρνει αυτόματα το τέλος του εύρους.

Για να ικανοποιήσετε την αλλαγή στα δεδομένα, χρησιμοποιήστε τον παρακάτω κωδικό:

Sub sortwithheaders()
Τετράδια εργασιών("Δείγμα Οικονομικών.xlsx").Φύλλα (1).Ενεργοποίηση
Εύρος ("A1", Εύρος ("A1"). Τέλος (xlDown)). Κλειδί ταξινόμησης1:=Εύρος ("e2"), Σειρά1:=xlΑύξουσα, Κεφαλίδα:=xlΝαι
End Sub

Που:

• Τέλος (xlΚάτω): Αυτή η λειτουργία θα επιλέξει αυτόματα το τελευταίο συμπληρωμένο κελί αυτόματα

Σημείωση: Εάν ο τύπος συναντήσει ένα κενό κελί σε μια στήλη, θα θεωρήσει το προηγούμενο κελί ως το τέλος του εύρους.

Σχετίζεται με: Πώς να δημιουργήσετε προσαρμοσμένες συντομεύσεις πληκτρολογίου στο Microsoft Excel

3. Ταξινόμηση πολλών στηλών μαζί

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

Sub SortMultipleColumns()
Με φύλλα εργασίας ("Φύλλο1")
 Με .Κελιά (1, "A"). CurrentRegion
 .Cells.sort Key1:=.Range("B1"), Order1:=xlAscending, _
 Key2:=.Range("E1"), Order2:=xlAscending, _
 Προσανατολισμός:=xlTopToBottom, Κεφαλίδα:=xlΝαι
 Τέλος με
 Τέλος με
End Sub

4. Ταξινόμηση στηλών σε πολλά φύλλα

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

Μια επιλογή είναι να περιηγηθείτε σε κάθε φύλλο με μη αυτόματο τρόπο, να ταξινομήσετε τις απαιτούμενες στήλες και, στη συνέχεια, να προχωρήσετε στο επόμενο βήμα. Εναλλακτικά, γιατί να μην αφήσετε τη VBA να το κάνει για εσάς;

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

Σχετίζεται με: Λειτουργίες αναζήτησης του Microsoft Excel για πιο αποτελεσματική αναζήτηση σε υπολογιστικά φύλλα

Δείτε πώς μπορείτε να ταξινομήσετε στήλες σε πολλά φύλλα:

Sub SortWS()
Dim ws As φύλλο εργασίας
«Ενεργοποίηση του προβλεπόμενου φύλλου εργασίας
Βιβλία Εργασίας ("Δείγμα Οικονομικών.xlsx"). Ενεργοποίηση
«Κύκλος σε κάθε μεμονωμένο φύλλο εργασίας αυτόματα χρησιμοποιώντας βρόχο for
Για κάθε ws στο ActiveWorkbook. Φύλλα
«ενεργοποίηση κάθε μεμονωμένου φύλλου εργασίας
ws. Θέτω εις ενέργειαν
«Καθορίστε το εύρος και, στη συνέχεια, ταξινομήστε τις απαιτήσεις σας βάσει στήλης. Σε αυτήν την περίπτωση, ταξινομείται μόνο μία στήλη.
Εύρος ("A1", Εύρος ("p1"). Τέλος (xlDown)). Κλειδί ταξινόμησης1:=Εύρος ("E1"), Σειρά1:=xlΦθίνουσα, Κεφαλίδα:=xlΝαι
«Η εντολή που χρησιμοποιείται για τη μετάβαση στο επόμενο φύλλο εργασίας, αφού έχει ταξινομηθεί το προηγούμενο φύλλο εργασίας
Επόμενα ws
End Sub

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

5. Αντιγραφή ταξινομημένων δεδομένων από το ένα φύλλο στο άλλο

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

Sub SortWS()
Dim ws As φύλλο εργασίας
«Ενεργοποίηση του προβλεπόμενου φύλλου εργασίας
Βιβλία Εργασίας ("Δείγμα Οικονομικών.xlsx"). Ενεργοποίηση
«Κύκλος σε κάθε μεμονωμένο φύλλο εργασίας αυτόματα χρησιμοποιώντας βρόχο for
Για κάθε ws στο ActiveWorkbook. Φύλλα
«ενεργοποίηση κάθε μεμονωμένου φύλλου εργασίας
ws. Θέτω εις ενέργειαν
«Καθορίστε το εύρος και, στη συνέχεια, ταξινομήστε τις απαιτήσεις σας βάσει στήλης. 
«Σε αυτήν την περίπτωση, ταξινομείται μόνο μία στήλη.
Εύρος ("A1", Εύρος ("p1"). Τέλος (xlDown)). Κλειδί ταξινόμησης1:=Εύρος ("E1"), Σειρά1:=xlΦθίνουσα, Κεφαλίδα:=xlΝαι
«Η εντολή που χρησιμοποιείται για τη μετάβαση στο επόμενο φύλλο εργασίας, αφού έχει ταξινομηθεί το προηγούμενο φύλλο εργασίας
Επόμενα ws
«Δημιουργήστε ένα νέο φύλλο εργασίας μέσα στο βιβλίο εργασίας για να αποθηκεύσετε τα νέα δεδομένα
ActiveWorkbook. Φύλλα. Προσθήκη. Όνομα = "Αποτελέσματα"
«Αντιγράψτε επικολλήστε τα ταξινομημένα δεδομένα στο φύλλο που προστέθηκε πρόσφατα
Φύλλα("Φύλλο1").Εύρος("A1:p701").Αντιγραφή Προορισμός:=Φύλλα("Αποτελέσματα").Εύρος("a1")
End Sub

Ο παραπάνω κωδικός θα ταξινομήσει τις τιμές στη στήλη Ε, θα προσθέσει ένα νέο φύλλο Αποτελέσματα στο υπάρχον βιβλίο εργασίας και επικολλήστε τα ταξινομημένα αποτελέσματα στο κελί Α'1.

Δημιουργία ταξινόμησης μακροεντολών στο Excel

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

Ευτυχώς, η λειτουργικότητα του Excel δεν τελειώνει με μακροεντολές. Δείτε μερικές συμβουλές και κόλπα για να γίνετε πιο αποτελεσματικός χρήστης του Excel.

Οι 9 κορυφαίοι ιστότοποι και ιστολόγια για να μάθετε συμβουλές και κόλπα του Excel

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

Διαβάστε Επόμενο

Σχετικά με τον Συγγραφέα