Quando si avvia una nuova cartella di lavoro, uno scenario comune richiede la creazione di fogli di lavoro per un anno, uno per ogni settimana dell’anno. In altre parole, una cartella di lavoro potrebbe finire per contenere 52 o 53 fogli di lavoro, a seconda di quante settimane ci sono in un determinato anno.

Se hai la necessità di creare una cartella di lavoro del genere, sai che creare e nominare individualmente tutti i fogli di lavoro può essere una vera seccatura. È qui che una macro sarebbe utile. La seguente macro aggiungerà il numero appropriato di fogli di lavoro e quindi rinominerà tutti i fogli di lavoro in base al numero di settimana (da 01 a 52).

Sub YearWorkbook1()

Dim iWeek As Integer     Dim sht As Variant     Application.ScreenUpdating = False     Worksheets.Add After:=Worksheets(Worksheets.Count), _       Count:=(52 - Worksheets.Count)

iWeek = 1     For Each sht In Worksheets         sht.Name = "Week " & Format(iWeek, "00")

iWeek = iWeek + 1     Next sht     Application.ScreenUpdating = True End Sub

Se invece hai bisogno di un modo per creare fogli di lavoro che mostrano la data di fine di ogni settimana per un anno, è necessaria una macro diversa.

Sub YearWorkbook2()

Dim iWeek As Integer     Dim sht As Variant     Dim sTemp As String     Dim dSDate As Date

sTemp = InputBox("Date for the first worksheet:", "End of Week?")

dSDate = CDate(sTemp)

Application.ScreenUpdating = False     Worksheets.Add After:=Worksheets(Worksheets.Count), _       Count:=(52 - Worksheets.Count)

For Each sht In Worksheets         sht.Name = Format(dSDate, "dd-mmm-yyyy")

dSDate = dSDate + 7     Next sht     Application.ScreenUpdating = True End Sub

Questa versione della macro ti chiede una data di inizio. Quindi utilizza quella data per iniziare a denominare i diversi fogli di lavoro nella cartella di lavoro. Se inserisci un valore che non può essere tradotto in una data, la macro genererà un errore.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (12403) si applica a Microsoft Excel 2007, 2010, 2013 e 2016.

È possibile trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Excel qui: Naming Tabs for Weeks.