Naming Tabs per settimane

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

Se avete la necessità di creare tale cartella di lavoro, si sa che la creazione e la denominazione di tutti i fogli di lavoro può essere una vera seccatura individualmente. Questo è dove un macro sarebbe venuto in aiuto. La seguente macro aggiungerà il numero appropriato di fogli di lavoro, e quindi rinominare tutti i fogli in base al numero della settimana (da 01 a 52).

YearWorkbook1 Sub ()
Dim iWeek As Integer
Dim Sht As Variant
Application.ScreenUpdating = False
Worksheets.Add Dopo: = Worksheets (Worksheets.Count), _
Count: = (52 - Worksheets.Count)
iWeek = 1
Per ogni sht nei fogli di lavoro
sht.Name = "Week" e formato (iWeek, "00")
iWeek = iWeek + 1
Successivo sht
Application.ScreenUpdating = True
End Sub

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

YearWorkbook2 Sub ()
Dim iWeek As Integer
Dim Sht As Variant
Dim sTemp As String
Dim dSDate As Date

sTemp = InputBox ("Data per il primo foglio di lavoro:", "? Fine settimana")
dSDate = CDate (sTemp)

Application.ScreenUpdating = False
Worksheets.Add Dopo: = Worksheets (Worksheets.Count), _
Count: = (52 - Worksheets.Count)
Per ogni sht nei fogli di lavoro
sht.Name = Format (dSDate, "dd-mmm-yyyy")
dSDate = dSDate + 7
Successivo sht
Application.ScreenUpdating = True
End Sub

Questa versione della macro che si chiede una data di inizio. Esso utilizza quindi questa data per iniziare nominare i diversi fogli di lavoro nella cartella di lavoro. Se si inserisce un valore che non può essere tradotto in una data, poi la macro genererà un errore.

ExcelTips è la vostra fonte per la formazione Microsoft Excel conveniente. Questo suggerimento (12403) si applica a Microsoft Excel 2007 e il 2010. Si può trovare una versione di questo suggerimento per l'interfaccia del menu precedente di Excel qui: Naming Tabs per settimane.