Υπάρχουν πολλές σύντομες μακροεντολές που μπορείτε να προσθέσετε στο Προσωπικό βιβλίο εργασίας μακροεντολών και στη συνέχεια να προσθέσετε στο QAT. Σε αυτήν την συμβουλή, θα δείτε πώς μπορείτε να δημιουργήσετε το Προσωπικό βιβλίο εργασίας μακροεντολών, να πληκτρολογήσετε μερικές μακροεντολές και, στη συνέχεια, να τις αντιστοιχίσετε σε εικονίδια στο QAT.
Δημιουργήστε ένα προσωπικό βιβλίο εργασίας μακροεντολών
Ξεκινήστε από οποιοδήποτε βιβλίο εργασίας. Μεταβείτε στην ενότητα Προβολή, μακροεντολές, εγγραφή μακροεντολής. Στο παράθυρο διαλόγου Εγγραφή μακροεντολής, πληκτρολογήστε ένα όνομα μιας λέξης όπως το HelloWorld. Επιλέξτε Προσωπικό βιβλίο εργασίας μακροεντολών. Κάντε κλικ στο OK.
Πληκτρολογήστε Hello στο ενεργό κελί και πατήστε Enter. Στη συνέχεια, επιλέξτε Προβολή, Μακροεντολές, Διακοπή εγγραφής. Αυτά τα βήματα θα δημιουργήσουν ένα Personal.xlsb στον υπολογιστή σας όπου μπορείτε να αποθηκεύσετε νέες μακροεντολές.
Ανοίξτε τον Επεξεργαστή VBA και βρείτε το Module1 στο Personal.xlsb
Από το Excel, πατήστε Alt + F11. (Εάν δεν έχετε Alt + F11, μπορείτε να προσθέσετε την εντολή Visual Basic στο QAT και να κάνετε κλικ σε αυτό.
Η πρώτη σας φορά στο πρόγραμμα επεξεργασίας VBA, μπορεί να είναι μια τεράστια έκταση του γκρι. Από το μενού VBA, επιλέξτε Προβολή, Project Explorer.
Αναζητήστε μια καταχώριση με το όνομα VBAProject (PERSONAL.XLSB). Κάντε κλικ στο εικονίδιο + για να το αναπτύξετε.
Αναζητήστε και αναπτύξτε Modules. Κάντε δεξί κλικ στο Module1 και επιλέξτε Προβολή κώδικα.
Θα δείτε τον κωδικό HelloWorld. Μετά το End Sub, πληκτρολογήστε οποιαδήποτε από αυτές τις διαδικασίες.
Sub VeryHideActiveSheet() ActiveSheet.Visible = xlVeryHidden End Sub Sub ShowAllSheets() For Each sh In ActiveWorkbook.Worksheets sh.Visible = True Next sh End Sub Sub UpperSelection() For Each cell In Selection.SpecialCells(2, 2) ' 2, 2 means xlCellTypeConstants, Text cell.Value = UCase(cell.Value) Next End Sub Sub LowerSelection() For Each cell In Selection.SpecialCells(2, 2) cell.Value = LCase(cell.Value) Next End Sub Sub ProperSelection() For Each cell In Selection.SpecialCells(2, 2) cell.Value = Application.WorksheetFunction.Proper(cell.Value) Next End Sub Όταν προσαρμόζετε το QAT, επιλέξτε Μακροεντολές από το επάνω αριστερό αναπτυσσόμενο μενού.
Όταν επιλέγετε μια μακροεντολή και κάνετε κλικ στην επιλογή Προσθήκη >>, το εικονίδιο θα προεπιλεγεί σε ένα διάγραμμα ροής. Κάντε κλικ στην επιλογή Τροποποίηση κάτω δεξιά. Επιλέξτε ένα νέο εικονίδιο. Πληκτρολογήστε μια καλή συμβουλή εργαλείου.
Ακολουθεί μια εξήγηση για τον τρόπο χρήσης αυτών των πέντε μακροεντολών:
- Very Hide : Τα φύλλα εργασίας μπορούν να είναι ορατά, κρυμμένα ή πολύ κρυμμένα. Λίγοι άνθρωποι γνωρίζουν για τα πολύ κρυμμένα φύλλα επειδή πρέπει να χρησιμοποιήσετε το VBA για να τα δημιουργήσετε. Ένα φύλλο εργασίας που είναι πολύ κρυφό δεν θα εμφανίζεται στην αρχική σελίδα, τη μορφή, την απόκρυψη και την απόκρυψη, τα φύλλα εργασίας. (Ευχαριστώ στον -Sagar Malik)
- Εμφάνιση όλων των φύλλων : Είναι εύκολο να επιλέξετε 12 φύλλα και να τα κρύψετε με μία εντολή. Αλλά τότε το ξεμπλοκάρισμα των φύλλων είναι μια μοναδική πρόταση. Αυτή η μακροεντολή θα εμφανίσει όλα τα φύλλα (συμπεριλαμβανομένων των πολύ κρυφών φύλλων).
- Άνω Επιλογή : Μετατρέπει όλο το κείμενο της επιλογής σε κεφαλαία.
- Μικρή επιλογή : Μετατρέπει όλο το κείμενο στην επιλογή σε πεζά.
- Σωστή επιλογή : Μετατρέπει όλο το κείμενο της επιλογής σε σωστή περίπτωση.
Ευχαριστούμε τον MF Wong που πρότεινε μερικές από αυτές τις μακροεντολές.
