Πώς να δημιουργήσετε μια λίστα με όλα τα φύλλα εργασίας στο ενεργό βιβλίο εργασίας χρησιμοποιώντας μια μακροεντολή VBA
Θέλετε να δημιουργήσετε έναν πίνακα με όλα τα φύλλα στο ενεργό βιβλίο εργασίας; Χρησιμοποιήστε την ακόλουθη μακροεντολή:
Sub ShowTablesheets ()
Dim Row As Long
Ελαφρύ φύλλο ως φύλλο εργασίας
Ελαφρύ νέο φύλλο ως φύλλο εργασίας
Ορίστε Neublatt = ActiveWorkbook.Worksheets.Addd
Σειρά = 1
Για κάθε φύλλο στο ActiveWorkbook.Worksheets
If Sheet.Name New Sheet.Name Τότε
Νέο φύλλο. Κελιά (σειρά, 1) = φύλλο. Όνομα
Γραμμή = γραμμή + 1
Τέλος εαν
Επόμενο φύλλο
Τέλος υπο
Η μακροεντολή δημιουργεί ένα νέο φύλλο εργασίας στο ενεργό βιβλίο εργασίας στο οποίο αποθηκεύονται τα ονόματα όλων των φύλλων εργασίας. Μόνο το νέο φύλλο επισκόπησης εξαιρείται από τη λίστα. Το παρακάτω σχήμα δείχνει πώς μπορεί να είναι το αποτέλεσμα:
Για να εισαγάγετε τη μακροεντολή, ανοίξτε τον επεξεργαστή VBA στο Excel χρησιμοποιώντας τον συνδυασμό πλήκτρων ALT F11. Σε αυτόν τον επεξεργαστή, επιλέξτε την εντολή INSERT - MODULE και εισαγάγετε τη μακροεντολή. Ξεκινάτε τη μακροεντολή από το Excel χρησιμοποιώντας τον συνδυασμό πλήκτρων ALT F8.
