Quando si avvia una nuova cartella di lavoro, è molto comune denominare ogni foglio di lavoro dopo un mese diverso 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     Dim sMo(12) As String

sMo(1) = "January"

sMo(2) = "February"

sMo(3) = "March"

sMo(4) = "April"

sMo(5) = "May"

sMo(6) = "June"

sMo(7) = "July"

sMo(8) = "August"

sMo(9) = "September"

sMo(10) = "October"

sMo(11) = "November"

sMo(12) = "December"



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

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

ActiveSheet.Name = sMo(J)

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

ActiveSheet.Name = sMo(J)

End If     Next J

For J = 1 To 12         If Sheets(J).Name <> sMo(J) Then             For K = J + 1 To Sheets.Count                 If Sheets(K).Name = sMo(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.

_Nota: _

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

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

ExcelTips è la tua fonte di formazione Microsoft Excel conveniente.

Questo suggerimento (2017) si applica a Microsoft Excel 97, 2000, 2002, e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Fogli per mesi .