Creazione di fogli di lavoro con una macro

Excel consente di creare nuovi fogli di lavoro in un certo numero di modi diversi. Che cosa succede se si desidera creare un nuovo foglio di lavoro e il nome tutto in un solo passo? Il modo più semplice per farlo è con una macro. Quanto segue è un esempio di una macro che chiedere un nome, e quindi creare un foglio di lavoro e dare quel foglio il nome fornito.

AddNameNewSheet1 Sub ()
Dim Newname As String
Newname = InputBox ("Nome per il nuovo foglio di lavoro?")
Se Newname <> "" Allora
Sheets.Add Type: = xlWorksheet
ActiveSheet.Name = Newname
End If
End Sub

Questa macro funziona bene, fino a quando l'utente immette un nome del foglio di lavoro che è "legale" per gli standard di Excel. Se il nuovo nome non è accettabile per Excel, viene ancora aggiunto il foglio di lavoro, ma non viene rinominato come previsto.

Una macro più robusto potrebbe anticipare possibili errori nella denominazione di un foglio di lavoro. Il seguente codice di esempio si aggiunge il foglio di lavoro, ma continuare a chiedere per un nome del foglio di lavoro, se uno sbagliato è fornito.

AddNameNewSheet2 Sub ()
Dim CurrentSheetName As String

'Ricordati da dove siamo partiti
'Non necessaria se non si vuole tornare
'Al punto di partenza, ma vuole rimanere
'Sul Nuovo Foglio

CurrentSheetName = ActiveSheet.Name

'Aggiungi Nuovo Foglio
Sheets.Add

'Assicurarsi che il nome è valido
On Error Resume Next

'Prendi il nuovo nome
ActiveSheet.Name = InputBox ("Nome per il nuovo foglio di lavoro?")

'Keep chiede il nome se il nome non è valido
Fare Fino Err.Number = 0
Err.Clear
ActiveSheet.Name = InputBox ("Try Again!" _
& VbCrLf & "non valido Nome o nome esiste già" _
& VbCrLf & "Prego il nome del nuovo foglio")
Cappio
On Error GoTo 0

'Torna al punto di partenza
'Non necessaria se non si vuole tornare
'Al punto di partenza, ma vuole rimanere
'Sul Nuovo Foglio
Sheets (CurrentSheetName) .Select

End Sub

ExcelTips è la vostra fonte per la formazione Microsoft Excel conveniente. Questo suggerimento (2022) si applica a Microsoft Excel 97, 2000, 2002, e 2003. È possibile trovare una versione di questo suggerimento per l'interfaccia ribbon di Excel (Excel 2007 e versioni successive) qui: Creazione di fogli di lavoro con una macro.