1 Κάντε κλικ στην καρτέλα "Προγραμματιστής " , και κάντε κλικ στο " Visual Basic" για να ξεκινήσει το πρόγραμμα επεξεργασίας VB . Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα . 2
Ξεκινήστε μια νέα υποδιαδικασία ως εξής: "
Sub sheetNames ( )
με 3
Δημιουργήστε το " sheetName " μεταβλητή να παρακολουθείτε τα ονόματα των φύλλων και των δύο μεταβλητών που πρέπει να χρησιμοποιούνται ως μετρητές , ως εξής :
Dim sheetName As String
Dim xCntr As Integer
Dim shtCntr As Integer
4
Ορίστε τα περιεχόμενα του " sheetName " μεταβλητή με το όνομα του πρώτου φύλλου του βιβλίου εργασίας σας , ως εξής :
sheetName = " Φύλλο1 "
5
Δώστε στον μετρητή τιμή 1 αντιπροσωπεύει το πρώτο φύλλο :
shtCntr = 1
Η 6
Χρήση τον ακόλουθο κώδικα για να δημιουργήσετε ένα " για ... Loop " σε βρόχο μέσα από κάθε φύλλο στο βιβλίο εργασίας σας και να προσθέσετε το όνομα του φύλλου στην Α1 με τον " sheetName " μεταβλητή :
για xCntr = 0 Για να 2
φύλλα εργασίας ( sheetName ) . Ενεργοποίηση
Range ( "A1" ) . Επιλέξτε
ActiveCell.FormulaR1C1 = sheetName
Range ( " A2 " ) . Επιλέξτε
shtCntr = shtCntr + 1
sheetName = " Φύλλο " & shtCntr
Επόμενο xCntr
Η
7 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το διαδικασία . A1 σε κάθε φύλλο θα περιέχει το όνομα του φύλλου .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα