Fare clic sulla scheda "Sviluppatore " , e fare clic su " Visual Basic " per avviare l'editor di Visual Basic . Fai clic sul menu "Inserisci" e fare clic su "Modulo" per inserire un nuovo modulo di codice .
2
Inizia una nuova subprocedure come segue "
sheetNames Sub ( ) per
3
creare il " sheetName " variabile per tenere traccia dei nomi dei fogli e due variabili per essere utilizzati come contatori , come segue :
Dim sheetName As String
dim xCntr As Integer dim
shtCntr As Integer
4
Definire il contenuto della variabile " sheetName " con il nome del primo foglio nella cartella di lavoro , come segue :
sheetName = " Foglio1 "
5
Dare il contatore un valore di 1 rappresenta il primo foglio di calcolo:
shtCntr = 1
6
Usa il seguente codice per creare un " per ... loop" per eseguire il ciclo ogni foglio nella cartella di lavoro e aggiungere il nome del foglio di A1 , utilizzando il " sheetName " variabile :
xCntr = 0 a 2
fogli di lavoro ( sheetName ) . Attivare
Range (" A1") . Selezionare
ActiveCell.FormulaR1C1 = sheetName
Range (" A2 " ) . selezionare
shtCntr = shtCntr + 1
sheetName = "Foglio" & shtCntr
Avanti xCntr
7
Premere " F5 " per eseguire il procedura . A1 in ogni foglio conterrà il nome del foglio .
software © www.354353.com