Πώς να αποκτήσετε ονόματα φύλλων χρησιμοποιώντας το VBA στο Microsoft Excel
Σε περίπτωση που θέλετε να βρείτε έναν τρόπο που μπορεί να σας δώσει όλα τα ονόματα του φύλλου που είναι ορατά, δηλαδή δεν είναι κρυμμένα.
Σε αυτό το άρθρο, θα μάθουμε πώς να λαμβάνετε ονόματα μόνο των ορατών φύλλων, χρησιμοποιώντας τον κώδικα VBA.
Ερώτηση): Έχω πολλά φύλλα σε ένα αρχείο και έχω κρύψει τα φύλλα που δεν θέλω να βλέπουν οι άλλοι. Θέλω έναν κωδικό που θα μου δίνει το όνομα όλων των ορατών φύλλων.
Ας σκεφτούμε ότι έχουμε 5 φύλλα και κρύβουμε σκόπιμα ένα συγκεκριμένο φύλλο.
Για να λάβουμε το όνομα των ορατών φύλλων, πρέπει να ακολουθήσουμε τα παρακάτω βήματα:
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κωδικών, επιλέξτε Visual Basic
Αντιγράψτε τον παρακάτω κώδικα στην τυπική μονάδα
Sub VisibleSheets ()
Dim i Ως ακέραιος, j ως ακέραιος: j = 1
Κελιά (1, 1) .CurrentRegion.Cells.Clear
Για i = 1 σε φύλλα. Αριθμός
Εάν Φύλλα (i). Ορατό = -1 Τότε
Κελιά (j, 1) = Φύλλα (i). Όνομα
j = j + 1
Τέλος εαν
Επόμενο
Τέλος υπο
- Για πρώτη φορά όταν εκτελείτε τον κώδικα, θα λάβετε τα ονόματα όλων των φύλλων στο τρέχον φύλλο στη στήλη Α
- Εάν αποκρύψουμε το φύλλο Jan τότε θα έχουμε την ακόλουθη λίστα με τα ονόματα φύλλων
Με αυτόν τον τρόπο, μπορούμε να λάβουμε το όνομα όλων των ορατών φύλλων, χρησιμοποιώντας τον κώδικα vba.
Λήψη - Πώς να λάβετε ονόματα φύλλων με vba - xlsm