Η Παμ θα ήθελε να τακτοποιήσει αλφαβητικά τις καρτέλες του φύλλου εργασίας της. Αυτή δεν είναι μια εντολή στο Excel, αλλά χρησιμοποιώντας μια σύντομη μακροεντολή, μπορείτε να την προσθέσετε στη γραμμή εργαλείων γρήγορης πρόσβασης.
Δες το βίντεο
- Η Pam θέλει να ταξινομήσει τις καρτέλες του φύλλου εργασίας αλφαβητικά
- Πρόκειται να χρησιμοποιήσετε μια μακροεντολή στο προσωπικό βιβλίο εργασίας μακροεντολών
- Alt + T + M + S και αλλάξτε την ασφάλεια μακροεντολών για να επιτρέψετε μακροεντολές
- Καταγράψτε μια μακροεντολή Hello World στο προσωπικό βιβλίο εργασίας μακροεντολών
- Πληκτρολογήστε νέο κωδικό στο Personal Macro Workbook
- Εκχωρήστε αυτόν τον κωδικό σε ένα κουμπί QAT
Μεταγραφή βίντεο
Μάθετε το Excel από το Podcast, Episode 2084: Ταξινόμηση καρτελών φύλλου εργασίας αλφαβητικά
Γεια σας, καλώς ήλθατε πίσω στο netcast, είμαι ο Bill Jelen. Η σημερινή ερώτηση από την Pam: Υπάρχει τρόπος αλφαβητισμού των καρτελών του φύλλου εργασίας; Λοιπόν, δεν υπάρχει ενσωματωμένος τρόπος για να το κάνουμε αυτό, αλλά θα μπορούσαμε να το κάνουμε με μια μακροεντολή. Και τώρα, αυτή είναι μια μακροεντολή που πρέπει πραγματικά να βρίσκεται στο προσωπικό βιβλίο εργασίας μακροεντολών, εντάξει; Έτσι, αν δεν έχετε κάνει ποτέ μακροεντολές, θα κάνουμε Alt + T για τον Tom και για τη Mary, S για τον Sam. Και βεβαιωθείτε ότι μετακινείτε από την Απενεργοποίηση όλων των μακροεντολών χωρίς ειδοποίηση στην Απενεργοποίηση μακροεντολών με ειδοποίηση.
Εντάξει τότε, πατήστε Alt + F8 και ρίξτε μια ματιά και δείτε εάν έχετε μακροεντολές, βεβαιωθείτε ότι έχετε επιλέξει Μακροεντολές σε: Όλα τα ανοιχτά βιβλία εργασίας. Εάν δεν έχετε κάτι που ξεκινά ως PERSONAL.XLSB, πρέπει να κάνετε αυτά τα προαιρετικά βήματα. Εάν έχετε ήδη κάτι με το PERSONAL.XLSB, τότε κρατήστε το για ένα δευτερόλεπτο, εντάξει;
Έτσι, θα βγούμε στην καρτέλα Προβολή και θα ηχογραφήσουμε μια νέα μακροεντολή. Θα ονομάζεται HelloWorld. Χωρίς χώρο, χωρίς χώρο. Και θα αποθηκεύσουμε τη μακροεντολή στο βιβλίο προσωπικών μακροεντολών, κάντε κλικ στο OK. Και απλά πληκτρολογήστε κάπου Hello World, έτσι και έπειτα κατεβείτε εδώ δίπλα στο Ready και κάντε κλικ στο Stop. Εντάξει, τώρα που θα σας αναγκάσει να έχετε ένα προσωπικό βιβλίο εργασίας μακροεντολών. Εντάξει, αν δεν έχετε χρησιμοποιήσει ποτέ μακροεντολές, ίσως να μην έχετε.
Σε αυτό το σημείο, θα πατήσουμε το πλήκτρο Alt + F11 και αν δεν έχετε χρησιμοποιήσει ποτέ μακροεντολές, θα πάρετε αυτήν την γκρίζα οθόνη εδώ. Θα πάμε στο View, Project Explorer και θα βρούμε το νέο PERSONAL.XLSB. Εάν έχετε ήδη μια Ενότητα εκεί που φυσικά θα έχετε, βεβαίως, ανοίξτε τις ενότητες και κάντε διπλό κλικ στην Ενότητα 1. Τώρα, έχω ήδη μερικές μακροεντολές στο Προσωπικό Βιβλίο Εργασίας Μακροεντολών μου αλλά θα έρθω εδώ εδώ για την τελευταία σειρά, βάλτε μερικά κενά.
Εντάξει, οπότε τότε θα πληκτρολογήσετε αυτόν τον κώδικα στον οποίο επικολλήσαμε. Και θα μιλήσουμε για αυτήν τη μακροεντολή καθώς την τρέχω. Λοιπόν, θα το τρέξω μία γραμμή κάθε φορά πατώντας το πλήκτρο F8. Και ένα πράγμα που έμαθα εδώ είναι ότι αφού τελείωσα το είδος, ήταν λίγο ανησυχητικό να καταλήξω σε ένα διαφορετικό φύλλο, οπότε θυμάμαι σε ποιο φύλλο είμαστε, οπότε αργότερα, μπορώ να το επιλέξω αμέσως πριν από τη μακροεντολή Ολοκληρώθηκε.
Εντάξει τώρα, εδώ είμαστε. Ας επιστρέψουμε στο Excel και θα δείτε ότι το πρώτο φύλλο εκεί ονομάζεται Τίτλος. Αυτήν τη στιγμή βρισκόμαστε σε ένα φύλλο που ονομάζεται Ερώτηση. Θέλω να προσθέσω ένα νέο φύλλο πριν από τον Τίτλο, οπότε κάνουμε φύλλα εργασίας. Προσθέστε και μετά θέλω να το μετονομάσω. Προς το παρόν έρχεται σε ένα Sheet1 ως TempSortSheet. Να είστε προσεκτικοί, αυτό θα πρέπει να είναι ένα όνομα που ποτέ δεν θα χρησιμοποιούσατε. Σας αρέσει να μην ονομάζετε αυτήν την Κατάσταση Εισοδήματος, εντάξει; Απλώς χρησιμοποιήστε κάτι πολύ τυχαίο, οπότε όταν εμείς- θα αντιμετωπίσετε ένα σφάλμα εάν έχετε ήδη ένα φύλλο που ονομάζεται TempSortSheet. Και τότε αυτό που βρήκα είναι ότι χρησιμοποιούσα αυτό το φύλλο εργασίας. Καταμέτρηση ξανά και ξανά, οπότε απλώς πρόκειται να το βάλω σε μια μεταβλητή όσο πιο εύκολο να πω WSC από τα φύλλα εργασίας. Έχουμε, λοιπόν, 150 φύλλα εργασίας και έχουμε λίστα με αυτά τα φύλλα εργασίας.
Εντάξει, οπότε βρίσκεστε για πρώτη φορά μέσω του βρόχου όπου πηγαίνω από το 1 έως το 250. Την πρώτη φορά μέσω του βρόχου στο ολοκαίνουργιο φύλλο μας που προσθέσαμε, το TempSortSheet, στη Σειρά 1 Σειρά 1, πηγαίνουμε για να βάλετε μια τιμή που είναι = στο πρώτο φύλλο εργασίας. Εντάξει, και αυτό που πρέπει να είναι είναι καλά, ναι, TempSortSheet εκεί. Αλλά θα το αφήσω να τρέξει μερικές ακόμη φορές. Θα πατήσω το F8 και θα δείτε ότι λαμβάνουμε όλες τις καρτέλες φύλλων με τη σειρά που εμφανίζονται στο βιβλίο εργασίας και υποθέτω ότι αρχίζω να λαμβάνω αυτές τις καρτέλες που έχουν τους αριθμούς λογαριασμού, εντάξει. Και θα το αφήσω να τρέξει, δεν θέλω να πατήσω το F8 300 φορές. Έτσι, θα κάνω κλικ εδώ και θα πάω στο Debug, Run To Cursor που είναι το Ctrl + F8 που θα το τελειώσει. Και δείτε ότι έχουμε μια λίστα με τις 150 καρτέλες φύλλων.Είναι υπέροχο.
Και τώρα εδώ εκμεταλλευόμαστε τη δύναμη του Excel. Υπάρχουν πολλές δημοσιεύσεις στο διαδίκτυο, συμπεριλαμβανομένου του πίνακα μηνυμάτων, όπου πραγματικά προσπαθούν και ταξινομούν. Γράφουν το δικό τους είδος για να μετακινούν τα φύλλα και θα επωφεληθούμε από το Excel εδώ επειδή το Excel έχει ένα είδος και χρησιμοποιώ τον κωδικό από το Excel 2003. Μου αρέσει αυτός ο κωδικός, πιο εύκολο να το θυμάμαι. Θα ξεκινήσω από το A1, αλλάξτε το μέγεθος σε 150 κελιά όπου το ταξινομώ. Το κλειδί θα είναι το Α1. Λοιπόν, αυτό είναι το μόνο πράγμα που θα μπορούσε να είναι. Η παραγγελία θα είναι Αύξουσα και βεβαιωθείτε ότι έχετε ορίσει ότι υπάρχει Κεφαλίδα, εντάξει; Δεν θέλουμε το TempSortSheet να ταξινομήσει τα δεδομένα. Εντάξει, έτσι εκεί. Μπαμ! Αυτό κάνει το είδος και δεν χρειάζεται να γράφουμε γύρω από τον κώδικα ταξινόμησης φυσαλίδων. Και μετά θα πάμε από τη σειρά 2 που είναι A120,το φύλλο για μετακίνηση είναι A120. Γιατί το " " ? Αχ, σε περίπτωση που έχετε ένα όνομα φύλλου, όπως το είχαμε νωρίτερα αυτήν την εβδομάδα, σαν ένα φύλλο με το όνομα 123 που θα προκαλούσε σύγχυση στο Excel. Και μετά, πού θα το μεταφέρουμε; Θα πάμε στο Row 2 αλλά μετά το πρώτο φύλλο. Έτσι το MoveAfter γίνεται 1. Έτσι, θα πάρουμε το φύλλο μας που ονομάζεται A120 και θα το μετακινήσουμε μετά το πρώτο φύλλο όπως αυτό, το F8, και εκεί λειτούργησε. Εκτελέστε αυτές τις τρεις γραμμές για άλλη μια φορά. Το A124 έρχεται στο σωστό σημείο.πρόκειται να πάρω το φύλλο μας που ονομάζεται A120 και να το μετακινήσουμε μετά το πρώτο φύλλο όπως αυτό, το F8, και εκεί λειτούργησε. Εκτελέστε αυτές τις τρεις γραμμές για άλλη μια φορά. Το A124 έρχεται στο σωστό σημείο.πρόκειται να πάρω το φύλλο μας που ονομάζεται A120 και να το μετακινήσουμε μετά το πρώτο φύλλο όπως αυτό, το F8, και εκεί λειτούργησε. Εκτελέστε αυτές τις τρεις γραμμές για άλλη μια φορά. Το A124 έρχεται στο σωστό σημείο.
Σε αυτό το σημείο, τώρα γνωρίζουμε ότι λειτουργεί, μπορούμε να κάνουμε Ctrl + F8 που κάνει όλες τις κινούμενες - 150 κινήσεις συνέβησαν εκεί εκεί. Και τώρα, θα διαγράψω το αρχικό φύλλο που είναι το διαγραμμένο TempSortSheet. Αλλά πριν το διαγράψω, δεν θέλω να πουν σε οποιονδήποτε εκτελεί τον κώδικα ότι πρόκειται να διαγράψουμε το φύλλο. Έτσι, απλώς το διαγράφω και μετά επιλέγω το αρχικό φύλλο και εμφανίζω το μήνυμα ότι τα βιβλία εργασίας έχουν ταξινομηθεί έτσι.
Εντάξει, τώρα που έχουμε τη μακροεντολή, γνωρίζουμε ότι η μακροεντολή λειτουργεί και βρίσκεται στο προσωπικό βιβλίο εργασίας μακροεντολών, μερικά πράγματα που θέλουμε να κάνουμε: Alt + F11 επιστρέψτε εδώ και βεβαιωθείτε ότι είστε στην προσωπική μακροεντολή βιβλίο εργασίας, κάντε κλικ εκεί και κάντε κλικ στο Αποθήκευση Εάν δεν το αποθηκεύσετε τώρα, αργότερα όταν κλείνετε το Excel, θα εμφανιστεί αυτό το μήνυμα σχετικά με το "Θέλετε να αποθηκεύσετε αλλαγές στο PERSONAL.XLSB;" και θα ξεχάσετε εντελώς και δεν θα αποθηκεύσετε τις αλλαγές, σωστά; Γι 'αυτό πάντα φροντίζω να αποθηκεύω τις αλλαγές και στη συνέχεια Alt + Tab όπου προσαρμόζω τη Γραμμή εργαλείων γρήγορης πρόσβασης, επιλέξτε από τις μακροεντολές, βρείτε αυτό που ονομάζεται SortSheets, προσθέστε το στη Γραμμή εργαλείων γρήγορης πρόσβασης. Δεν μου αρέσει το διάγραμμα ροής, οπότε θα αναζητήσουμε κάτι που λέει Α έως Ω ή ξέρετε, οπότεΧρησιμοποιήστε αυτό και βάλτε μια μικρή καρτέλα εκεί από τα Ταξινόμηση φύλλων έτσι, κάντε κλικ στο OK, κάντε κλικ στο OK.
Εντάξει, τώρα είναι το τεστ. Θα εισαγάγω ένα νέο βιβλίο εργασίας. Θα φτιάξω μερικά αντίγραφα των φύλλων και θα τα βάλουμε σε μια περίεργη ακολουθία, Ζ και μετά Υ και μετά Μ και μετά Β, έτσι Κάντε κλικ στην επιλογή Ταξινόμηση φύλλων και BAM! Επιστρέφουν εδώ με τη σωστή σειρά. Πόσο δροσερό είναι αυτό.
Εντάξει, έτσι το σημερινό επεισόδιο, η Pam θέλει να ταξινομήσει τις καρτέλες του φύλλου εργασίας αλφαβητικά. Ουάου! Χρησιμοποιήσαμε τη μακροεντολή. Πρώτα, αλλάξτε την ασφάλεια της μακροεντολής και καταγράψτε τη μακροεντολή Hello World στο προσωπικό βιβλίο εργασίας μακροεντολών και, στη συνέχεια, πληκτρολογήστε τον κωδικό στο βιβλίο εργασίας προσωπικής μακροεντολής και αντιστοιχίστε τον σε ένα κουμπί γραμμής εργαλείων γρήγορης πρόσβασης.
Θέλω να ευχαριστήσω τον Pam για αυτήν την ερώτηση. Θέλω να σας ευχαριστήσω που σταματήσατε. Θα σας δούμε την επόμενη φορά για ένα άλλο netcast από.
Λήψη αρχείου
Κατεβάστε το δείγμα αρχείου εδώ: Podcast2084.xlsm
