Creazione e denominazione di un foglio di lavoro utilizzando una macro (Microsoft Excel)
Jeff vorrebbe creare una copia del suo foglio di lavoro “principale”, richiedere un nome per il nuovo foglio di lavoro e spostarlo alla fine delle schede del foglio di lavoro, il tutto da una macro. Ha provato a registrare una macro per farlo, ma non ha funzionato.
Il fatto che la macro registrata non abbia funzionato non è particolarmente sorprendente.
Quando registri una macro, dici a Excel di registrare i passaggi che esegui.
Quei passaggi (in questo caso) includevano la denominazione del foglio di lavoro, in modo che il nome fosse registrato nella macro. Prova a eseguire la macro una seconda volta e riceverai un errore perché il foglio di lavoro che stai cercando di creare nel secondo passaggio è già stato creato nel primo.
In questo caso devi scrivere una macro manualmente. Puoi iniziare con la registrazione del processo e otterrai un codice come il seguente:
Sub Macro1() Sheets("Master").Select Sheets("Master").Copy After:=Sheets(3) Sheets("Master (2)").Select Sheets("Master (2)").Name = "NewMaster" End Sub
Si noti che il codice inserisce il foglio di lavoro (dopo il terzo foglio) e quindi lo denomina sempre la stessa cosa. C’è molto da cambiare qui. Quello che vuoi fare è cambiarlo in qualcosa di simile al seguente:
Sub CopyRename() Dim sName As String Dim wks As Worksheet Worksheets("Master").Copy after:=Sheets(Worksheets.Count) Set wks = ActiveSheet Do While sName <> wks.Name sName = Application.InputBox _ (Prompt:="Enter new worksheet name") On Error Resume Next wks.Name = sName On Error GoTo 0 Loop Set wks = Nothing End Sub
Questa macro copierà il foglio di lavoro denominato “Master” alla fine dell’elenco di fogli (indipendentemente dal numero di fogli presenti nella cartella di lavoro) e continuerà a richiedere un nuovo nome di foglio di lavoro finché non viene immesso un nome valido.
_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.
ExcelTips è la tua fonte di formazione economica su Microsoft Excel.
Questo suggerimento (11929) si applica a Microsoft Excel 2007, 2010, 2013 e 2016.
Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Excel qui: