Fogli per mesi

Quando si avvia una nuova cartella di lavoro, è molto comune per nominare ogni foglio di lavoro dopo un mese diverso dell'anno. Se si esegue questa operazione un bel po ', sai che può essere faticoso per rinominare ogni foglio di lavoro, a sua volta, esattamente quello che ti serve.

La seguente macro è stato sviluppato per aiutare in queste situazioni. Esso controlla i nomi dei fogli di lavoro nella cartella di lavoro, li rinomina i mesi dell'anno, se si comincia con le lettere "Foglio". Se non ci sono abbastanza fogli della cartella di lavoro, aggiunge fogli, se necessario, per ogni mese dell'anno.

DoMonths Sub ()
Dim J As Integer
Dim K As Integer
Dim SMO (12) As String

SMO (1) = "Gennaio"
SMO (2) = "Febbraio"
SMO (3) = "March"
SMO (4) = "aprile"
SMO (5) = "Maggio"
SMO (6) = "Giugno"
SMO (7) = "Luglio"
SMO (8) = "August"
SMO (9) = "Settembre"
SMO (10) = "Ottobre"
SMO (11) = "Novembre"
SMO (12) = "December"

Per J = 1 a 12
Se J <= Sheets.Count Poi
Se Sinistra (Sheets (J) .Nome, 5) = "Foglio" Allora
Sheets (J) .Name = SMO (J)
Altro
Sheets.Add.Move dopo: = Sheets (Sheets.Count)
ActiveSheet.Name = SMO (J)
End If
Altro
Sheets.Add.Move dopo: = Sheets (Sheets.Count)
ActiveSheet.Name = SMO (J)
End If
Successivo J

Per J = 1 a 12
Se i fogli (J) .Name SMO (J) Poi
Per K = J + 1 Per Sheets.Count
Se i fogli (K) .Name = SMO (J) Poi
Sheets (K) .Portare Prima: = Sheets (J)
End If
Successivo K
End If
Successivo J

Sheets (1) .Activate
End Sub

L'ultimo passo nella macro è che pone i fogli di lavoro in ordine, per i mesi da 1 a 12. Il risultato è che se avete altri fogli lasciati nella cartella di lavoro (in altre parole, è avuto qualche che non inizia con le lettere "foglio", allora quei fogli finiscono alla fine del lavoro, dopo 12 mesi.

ExcelTips è la vostra fonte per la formazione Microsoft Excel conveniente. Questo suggerimento (11148) 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: Fogli per mesi.