Πώς να δημιουργήσετε μια λίστα με τους κρυμμένους πίνακες χρησιμοποιώντας το VBA
Μπορείτε να κάνετε τα φύλλα ενός βιβλίου εργασίας αόρατα με την εντολή "Μορφή - Φύλλο - Απόκρυψη". Τότε είναι ακόμα δυνατή η πρόσβαση στα περιεχόμενα του πίνακα χρησιμοποιώντας έναν τύπο, αλλά ο πίνακας δεν είναι πλέον ορατός.
Εάν χρειάζεστε μια λίστα με όλα τα κρυφά φύλλα εργασίας στο ενεργό βιβλίο εργασίας, μπορείτε να χρησιμοποιήσετε την ακόλουθη μακροεντολή:
Sub ListHiddenTablesOn ()
Dim Table ως φύλλο εργασίας, NewTable ως φύλλο εργασίας
Dim CurrentMappe As Workbook
Dim i As Integer
Ορίστε CurrentMappe = ActiveWorkbook
Set NeueTabelle = Workbooks.Add.Sheets (1)
Για κάθε πίνακα σε CurrentMappe.Worksheets
Εάν Πίνακας. Ορατό = Λάθος Τότε
i = i + 1
NewTable.Cells (i, 1). Value = Table.Name
Τέλος εαν
Επόμενος πίνακας
Τέλος υπο
Η μακροεντολή περνάει σε όλα τα φύλλα εργασίας και ελέγχει την ιδιότητα ΟρατόςΤο Εάν δεν ικανοποιηθεί, είναι ένα κρυφό υπολογιστικό φύλλο. Στη συνέχεια, το όνομα του φύλλου μεταφέρεται στη λίστα.
Η μακροεντολή παραθέτει τα ονόματα όλων των κρυφών φύλλων εργασίας σε έναν πίνακα σε ένα νέο βιβλίο εργασίας.
Το σχήμα δείχνει το αποτέλεσμα της μακροεντολής όταν υπάρχουν τρία κρυφά φύλλα εργασίας στο ενεργό βιβλίο εργασίας: "Κρυφό", "Κρυφό" και "Αόρατο".
Συμβουλή: Εάν θέλετε να μάθετε πώς να εισάγετε και να ξεκινάτε μακροεντολές στο Excel, θα βρείτε μια σύντομη περιγραφή εδώ:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html
