Ξεκινήστε το Microsoft Excel και ανοίξτε το βιβλίο εργασίας σας . 2
Πατήστε το πλήκτρο " Alt + F8 " για να ανοίξετε το παράθυρο Μακροεντολές . Τύπος " GetSheetNames " στο πεδίο " Όνομα μακροεντολής " και στη συνέχεια κάντε κλικ στο " Δημιουργία ".
Εικόνων 3
Πληκτρολογήστε τον ακόλουθο κώδικα στο πρόγραμμα επεξεργασίας VBA .
Sub GetSheetNames ( )
Dim wSheet Όπως Φύλλο
για κάθε wSheet Σε Φύλλα
On Error Resume Next
ActiveCell.Value = wSheet.Name
ActiveCell.Offset ( 1 , 0 ) . Επιλέξτε
Επόμενο wSheet
End Sub
Η
4 Κλείστε το πρόγραμμα επεξεργασίας VBA για να επιστρέψετε στο βιβλίο εργασίας σας .
5
Επισημάνετε ένα κελί στο φύλλο σας . Πατήστε το πλήκτρο " Alt + I " τότε " C " για να δημιουργήσετε μια κενή στήλη .
Η
6 Κάντε κλικ στο πρώτο κενό κελί της νέας στήλης .
Η
7 Πατήστε το πλήκτρο " Alt + F8 "για να ανοίξετε ξανά το παράθυρο Μακροεντολές . Επιλέξτε " GetSheetNames " και στη συνέχεια κάντε κλικ στο " Run".
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα