Εξετάστε μια κατάσταση στην οποία πρέπει να αποκρύψετε και να αποκρύψετε πολλά φύλλα κάθε φορά. Εάν κάποιος κρύβεται και αποκρύπτεται χειροκίνητα, αυτό θα πάρει πολύ χρόνο.
Σε αυτό το άρθρο, θα μάθετε πώς να αποκρύπτετε ή να αποκρύπτετε πολλές καρτέλες χρησιμοποιώντας τον κώδικα VBA.
Ε): Θέλω μια μακροεντολή που θα αποκρύπτει ή θα αποκρύπτει πολλές καρτέλες σε μια χρονική στιγμή.
Ακολουθεί ένα στιγμιότυπο του φύλλου 1 στο οποίο θα υπάρχουν δύο δυναμικές λίστες, δηλαδή Απόκρυψη καρτελών και Αφαίρεση καρτελών
- Η ιδέα είναι όταν κάνουμε κλικ στο κουμπί Απόκρυψη ή Απόκρυψη, τότε τα αναφερόμενα φύλλα θα πρέπει να αποκρύπτονται ή να αποκρύπτονται
Πρέπει να ακολουθήσουμε τα παρακάτω βήματα:
- Για να έχουμε το αποτέλεσμα πρέπει να ξεκινήσουμε τον επεξεργαστή VB
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κώδικα επιλέξτε Visual Basic
- Κάντε κλικ στην επιλογή Εισαγωγή και στη συνέχεια ενότητα
Αυτό θα δημιουργήσει νέα ενότητα.
Εισαγάγετε τον ακόλουθο κώδικα στη μονάδα
Sub HideTabs () Dim TabNo As DoubleDim LastTab As DoubleLastTab = Εύρος ("Hide_TabsDNR"). Μετρήστε
Στο Σφάλμα Συνέχιση Επόμενο
Για TabNo = 2 στο LastTab
Φύλλα (Εύρος ("Hide_TabsDNR") (TabNo)). Ορατό = Λάθος
Επόμενο TabNo
Σφάλμα GoTo 0
Φύλλα (1). Επιλέξτε
Τέλος υπο
Sub UnHideTabs ()
Dim TabNo As Double
Dim LastTab ως διπλό
LastTab = Εύρος ("Hide_TabsDNR"). Μετρήστε
Στο Σφάλμα Συνέχιση Επόμενο
Για TabNo = 2 To LastTab
Φύλλα (Εύρος ("UnHide_TabsDNR") (TabNo)). Ορατό = Αληθινό
Επόμενο TabNo
Σφάλμα GoTo 0
Φύλλα (1). Επιλέξτε
Τέλος υπο
- Είμαστε όλοι έτοιμοι να εκτελέσουμε τη μακροεντολή, αν κάνουμε κλικ στο κουμπί Απόκρυψη τότε όλα τα αναγραφόμενα φύλλα θα είναι κρυμμένα, ανατρέξτε παρακάτω στιγμιότυπο
- Με τον ίδιο τρόπο αν κάνουμε κλικ στο κουμπί Unhide τότε όλα τα κρυμμένα φύλλα που αναφέρονται στη στήλη D θα εμφανιστούν.
Με αυτόν τον τρόπο μπορούμε δυναμικά να αποκρύψουμε ή να αποκρύψουμε πολλές καρτέλες ταυτόχρονα.