Come creare una cartella di lavoro e rinominare le tabelle
Vuoi creare cartelle di lavoro che contengano dodici fogli di lavoro in modo da poter raccogliere dati per ogni mese dell'anno? Lascia che una macro lo faccia automaticamente.
La seguente macro crea una nuova cartella di lavoro vuota con dodici fogli di lavoro e nomina i singoli fogli nella forma abbreviata dei nomi dei mesi, ad esempio "Gen", "Feb", ecc. Ecco la macro appropriata:
Sotto tabelle CreateMonth ()
Dim Tab Number As Integer
Dim Nuovo come cartella di lavoro
Nomi dim come Variant
Nomi = array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
"Luglio", "Agosto", "Settembre", "Ott", "Nov", "Dic")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Imposta nuovo = Cartelle di lavoro.Aggiungi
Application.SheetsInNewWorkbook = TabNumber
Per TabNumber = da 1 a 12
New.Worksheets (TabNumber) .Name = Names (TabNumber - 1)
Numero di tab successivo
Fine sottotitolo
Dopo l'avvio, riceverai una cartella di lavoro con dodici fogli di lavoro. La figura seguente mostra l'aspetto del risultato:
Se si desidera utilizzare altri nomi al posto dei nomi dei mesi, adattare i nomi nell'assegnazione dei valori alla variabile "Nomi".
Suggerimento: se desideri sapere come inserire e avviare macro in Excel, troverai una breve descrizione qui: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros-in-excel-ein.html
