Quando si avvia una nuova cartella di lavoro, è molto comune denominare ogni foglio di lavoro dopo un diverso mese dell’anno. Se lo fai un po ‘, sai che può essere faticoso rinominare ogni foglio di lavoro, a turno, esattamente come ti serve.

La seguente macro è stata sviluppata per aiutare in queste situazioni. Controlla i nomi dei fogli di lavoro nella cartella di lavoro, rinominandoli ai mesi dell’anno se iniziano con le lettere “Foglio”. Se non ci sono abbastanza fogli nella cartella di lavoro, aggiunge fogli, se necessario, per ogni mese dell’anno.

Sub DoMonths()

Dim J As Integer     Dim K As Integer

For J = 1 To 12         If J <= Sheets.Count Then             If Left(Sheets(J).Name, 5) = "Sheet" Then                 Sheets(J).Name = MonthName(J)

Else                 Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = MonthName(J)

End If         Else             Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = MonthName(J)

End If     Next J

For J = 1 To 12         If Sheets(J).Name <> MonthName(J) Then             For K = J + 1 To Sheets.Count                 If Sheets(K).Name = MonthName(J) Then                     Sheets(K).Move Before:=Sheets(J)

End If             Next K         End If     Next J

Sheets(1).Activate End Sub

L’ultimo passaggio nella macro è che posiziona i fogli di lavoro nell’ordine corretto, per i mesi da 1 a 12. Il risultato è che se hai altri fogli di lavoro rimasti nella cartella di lavoro (in altre parole, ne avevi alcuni che non iniziavano con le lettere “Foglio”, quindi quei fogli di lavoro finiscono alla fine della cartella di lavoro, dopo i 12 mesi.

Notare che la macro utilizza la funzione MonthName, che è incorporata in VBA. Restituisce il nome completo del mese a cui fa riferimento il numero (da 1 a 12) passato ad esso. (Se provi a usarlo con un numero al di fuori di tale intervallo, restituisce un errore.)

_Nota: _

Se vuoi sapere come usare 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 è il tuo fonte di formazione economica su Microsoft Excel.

Questo suggerimento (11148) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 ed Excel in Office 365. Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Excel qui:

Fogli per mesi.