Βίντεο: Πως Βάζω Thumbnail Απο Κινητό Android και iPhone - Εξώφυλλο Βίντεο YouTube - Make Video Greece 2025
Ένας τρόπος για να αποκτήσετε κώδικα σε μια ενότητα VBA είναι η καταγραφή των ενεργειών σας χρησιμοποιώντας τη μακροεντολή εγγραφής του Excel. Ένα πράγμα που πρέπει να θυμάστε είναι ότι μπορείτε να καταγράψετε μόνο τα πράγματα που μπορείτε να κάνετε απευθείας στο Excel. Η εμφάνιση ενός πλαισίου μηνυμάτων δεν βρίσκεται στο κανονικό ρεπερτόριο του Excel. (Είναι ένα πράγμα VBA.) Η συσκευή εγγραφής μακροεντολών είναι χρήσιμη, αλλά σε πολλές περιπτώσεις θα χρειαστεί να εισαγάγετε τουλάχιστον κάποιον κώδικα με μη αυτόματο τρόπο.
Ακολουθεί ένα βήμα προς βήμα παράδειγμα που σας δείχνει τον τρόπο εγγραφής μιας μακροεντολής που εισάγει ένα νέο φύλλο εργασίας και αποκρύπτει όλες εκτός από τις δέκα πρώτες σειρές και όλες τις πρώτες δέκα στήλες. Εάν θέλετε να δοκιμάσετε αυτό το παράδειγμα, ξεκινήστε με ένα νέο, κενό βιβλίο εργασίας και ακολουθήστε αυτά τα βήματα:
-
Ενεργοποιήστε ένα φύλλο εργασίας στο βιβλίο εργασίας.
Κάθε φύλλο εργασίας θα κάνει.
-
Κάντε κλικ στην καρτέλα Developer (Προγραμματιστής) και βεβαιωθείτε ότι η χρήση σχετικών αναφορών είναι και όχι επισημαίνεται.
Αυτή η μακροεντολή θα καταγραφεί με απόλυτες αναφορές.
-
Επιλέξτε Προγραμματιστής → Κωδικός → Εγγραφή μακροεντολής ή κάντε κλικ στο εικονίδιο δίπλα στην ένδειξη Έτοιμο στο αριστερό άκρο της γραμμής κατάστασης.
Το Excel εμφανίζει το παράθυρο διαλόγου Εγγραφή μακροεντολών.
-
Στο πλαίσιο διαλόγου Εγγραφή μακροεντολής, ονομάστε τη μακροεντολή TenByTen και πατήστε Shift + T για το πλήκτρο συντόμευσης.
Η μακροεντολή μπορεί να εκτελεστεί όταν πιέσετε Ctrl + Shift + T.
-
Κάντε κλικ στο OK για να ξεκινήσετε την εγγραφή.
Το Excel εισάγει αυτόματα μια νέα ενότητα VBA στο έργο που αντιστοιχεί στο ενεργό βιβλίο εργασίας. Από αυτό το σημείο, το Excel μετατρέπει τις ενέργειές σας στον κώδικα VBA. Κατά την εγγραφή, το εικονίδιο στη γραμμή κατάστασης μετατρέπεται σε ένα μικρό τετράγωνο. Αυτή είναι μια υπενθύμιση ότι η εγγραφή μακροεντολών εκτελείται. Μπορείτε επίσης να κάνετε κλικ σε αυτό το εικονίδιο για να σταματήσετε τη μακροεντολή.
-
Κάντε κλικ στο εικονίδιο Νέο φύλλο στα δεξιά της τελευταίας καρτέλας φύλλου.
Το Excel εισάγει ένα νέο φύλλο εργασίας.
-
Επιλέξτε ολόκληρη τη στήλη Κ (την 11η στήλη) και πατήστε Ctrl + Shift + δεξιό βέλος. στη συνέχεια, κάντε δεξί κλικ σε οποιαδήποτε επιλεγμένη στήλη και επιλέξτε Απόκρυψη από το μενού συντομεύσεων.
Το Excel αποκρύπτει όλες τις επιλεγμένες στήλες.
-
Επιλέξτε ολόκληρη τη Γραμμή 11 και πατήστε Ctrl + Shift + κάτω βέλος. στη συνέχεια κάντε δεξί κλικ σε οποιαδήποτε επιλεγμένη γραμμή και επιλέξτε Απόκρυψη από το μενού συντομεύσεων.
Το Excel αποκρύπτει όλες τις επιλεγμένες στήλες.
-
Επιλέξτε το κελί A1.
-
Επιλέξτε Προγραμματιστής → Κωδικός → Διακοπή εγγραφής ή κάντε κλικ στο κουμπί Διακοπή εγγραφής στη γραμμή κατάστασης (το μικρό τετράγωνο).
Το Excel σταματά να καταγράφει τις ενέργειές σας.
Για να δείτε αυτή τη νέα εγγραφή, πατήστε Alt + F11 για να ενεργοποιήσετε το VBE. Εντοπίστε το όνομα του βιβλίου εργασίας στο παράθυρο του έργου. Βλέπετε ότι το έργο έχει καταχωρηθεί μια νέα ενότητα. Το όνομα της ενότητας εξαρτάται από το αν είχατε άλλες ενότητες στο βιβλίο εργασίας όταν ξεκινήσατε την εγγραφή της μακροεντολής.Αν δεν το κάνετε, η ενότητα θα ονομάζεται Ενότητα1. Μπορείτε να κάνετε διπλό κλικ στη λειτουργική μονάδα για να δείτε το παράθυρο Κώδικας για την ενότητα.
Ο κώδικας που δημιουργείται από τις ενέργειές σας:
Sub TenByTen () Συντόμευση πληκτρολογίου "TenByTen Macro": Ctrl + Shift + T 'Sheets. Προσθέστε μετά: = Στήλες ActiveSheet ("K: K"). Επιλέξτε Εύρος (Επιλογή, Επιλογή, Τέλος (xlToRight)). Επιλέξτε Επιλογή. ΣυνολικόΚολάου. Κρυφό = True Γραμμές ("11: 11"). Επιλέξτε περιοχή (επιλογή, επιλογή, τέλος (xlDown)). Επιλέξτε Επιλογή. EntireRow. Κρυφό = True Range ("Α1"). Επιλέξτε End Sub
Για να δοκιμάσετε αυτή τη μακροεντολή, ενεργοποιήστε οποιοδήποτε φύλλο εργασίας και πατήστε το πλήκτρο συντόμευσης που αντιστοιχίσατε στο Βήμα 4: Ctrl + Shift + T.
Εάν δεν έχετε αντιστοιχίσει ένα κλειδί συντόμευσης στη μακροεντολή, μην ανησυχείτε. Δείτε πώς μπορείτε να εμφανίσετε μια λίστα όλων των διαθέσιμων μακροεντολών και να εκτελέσετε αυτήν που θέλετε:
-
Επιλέξτε προγραμματιστής → κώδικας → μακροεντολές.
Οι ανεμιστήρες του πληκτρολογίου μπορούν να πατήσουν Alt + F8. Κάθε μία από αυτές τις μεθόδους εμφανίζει ένα παράθυρο διαλόγου που εμφανίζει όλες τις διαθέσιμες μακροεντολές.
-
Επιλέξτε τη μακροεντολή στη λίστα (στην περίπτωση αυτή, TenByTen).
-
Κάντε κλικ στο κουμπί Εκτέλεση.
Το Excel εκτελεί τη μακροεντολή και έχετε ένα νέο φύλλο εργασίας με δέκα ορατές γραμμές και δέκα ορατές στήλες.
Μπορείτε να εκτελέσετε οποιονδήποτε αριθμό εντολών και να εκτελέσετε οποιονδήποτε αριθμό ενεργειών ενώ εκτελείται η εγγραφή μακροεντολών. Το Excel μεταφέρει πιστά τις κινήσεις του ποντικιού και τις πληκτρολογήσεις σας στον κώδικα VBA.
Και, φυσικά, μπορείτε επίσης να επεξεργαστείτε τη μακροεντολή μετά την καταγραφή της. Για να δοκιμάσετε τις νέες δεξιότητές σας, δοκιμάστε να επεξεργαστείτε τη μακροεντολή, ώστε να εισάγει ένα φύλλο εργασίας με εννέα ορατές γραμμές και στήλες - ιδανικό για ένα παζλ Sudoku.