Excel ti consente di creare nuovi fogli di lavoro in molti modi diversi. E se volessi creare un nuovo foglio di lavoro e nominarlo tutto in un unico passaggio? Il modo più semplice per farlo è con una macro. Quello che segue è un esempio di una macro che chiederà un nome, quindi creerà un foglio di lavoro e assegnerà a quel foglio il nome fornito.

Sub AddNameNewSheet1()

Dim Newname As String     Newname = InputBox("Name for new worksheet?")

If Newname <> "" Then         Sheets.Add Type:=xlWorksheet         ActiveSheet.Name = Newname     End If End Sub

Questa macro funziona correttamente, purché l’utente immetta un nome di foglio di lavoro “legale” per gli standard di Excel. Se il nuovo nome non è accettabile per Excel, il foglio di lavoro viene comunque aggiunto, ma non viene rinominato come previsto.

Una macro più robusta anticiperebbe possibili errori nella denominazione di un foglio di lavoro. Il seguente codice di esempio aggiungerà il foglio di lavoro, ma continuerà a chiedere un nome di foglio di lavoro se ne viene fornito uno non corretto.

Sub AddNameNewSheet2()

Dim CurrentSheetName As String

'Remember where we started 'Not needed if you don't want to return 'to where you started but want to stay 'on the New Sheet

CurrentSheetName = ActiveSheet.Name

'Add New Sheet     Sheets.Add

'Make sure the name is valid     On Error Resume Next

'Get the new name      ActiveSheet.Name = InputBox("Name for new worksheet?")



'Keep asking for name if name is invalid     Do Until Err.Number = 0         Err.Clear         ActiveSheet.Name = InputBox("Try Again!" _           & vbCrLf & "Invalid Name or Name Already Exists" _           & vbCrLf & "Please name the New Sheet")

Loop     On Error GoTo 0

'Go back to where you started 'Not needed if you don't want to return 'to where you started but want to stay 'on the New Sheet     Sheets(CurrentSheetName).Select

End Sub

_Nota: _

Se desideri sapere come utilizzare 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 è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2022) 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:

Creazione di fogli di lavoro con una macro.