Vai al contenuto principale

Come aggiungere un nuovo foglio con un nome specifico in Excel?

A volte, vuoi creare un nuovo foglio e assegnargli automaticamente un nome specifico in Excel. In questo articolo, ti mostreremo due metodi per aggiungere un nuovo foglio con un nome specifico nella cartella di lavoro corrente, oltre a creare un foglio di lavoro con un nome specifico in una nuova cartella di lavoro in Excel.

Aggiunta automatica di un nuovo foglio con un nome specifico nella cartella di lavoro corrente con codice VBA
Aggiunta automatica di un nuovo foglio con un nome specifico in una nuova cartella di lavoro con Kutools per Excel


Aggiunta automatica di un nuovo foglio con un nome specifico nella cartella di lavoro corrente con codice VBA

È possibile aggiungere un nuovo foglio con un determinato nome alla fine della cartella di lavoro corrente con il seguente codice VBA.

1. Stampa altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli.

3. Copia e incolla sotto il codice VBA nel file Moduli finestra.

Codice VBA: aggiungi un nuovo foglio con un nome specifico alla fine della cartella di lavoro corrente

Sub CreateSheet()
'Updated by ExtendOffice 20181009
    Dim xName As String
    Dim xSht As Object
    On Error Resume Next
    xName = InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
    If xName = "" Then Exit Sub
        Set xSht = Sheets(xName)
        If Not xSht Is Nothing Then
            MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
            Exit Sub
            End If
            Sheets.Add(, Sheets(Sheets.count)).Name = xName
        End Sub

4. Stampa F5 chiave per eseguire il codice. Nel spuntare Kutools for Excel finestra di dialogo, immettere un nome per questo foglio, quindi fare clic su OK pulsante. Vedi screenshot:

Quindi viene creato un nuovo foglio di lavoro con un nome specifico e situato alla fine della cartella di lavoro corrente.


Aggiunta automatica di un nuovo foglio con un nome specifico in una nuova cartella di lavoro con Kutools per Excel

In questa sezione, introdurremo il Crea fogli di lavoro per sequenze utilità di Kutools for Excel. Con questa utility, puoi facilmente aggiungere un nuovo foglio con un nome specifico in una nuova cartella di lavoro.

Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.

1. Per aggiungere un nuovo foglio con un nome specifico, è necessario digitare questo nome in una cella in anticipo. E poi clicca Kutools Plus > Foglio di lavoro > Crea fogli di lavoro per sequenze.

2. Nel Crea fogli di lavoro per sequenze finestra di dialogo, selezionare Foglio di lavoro vuoto nel Foglio di lavoro di base elenco a discesa, selezionare Datiin un intervallo e specificare la cella che contiene il nome del foglio di lavoro specifico, quindi fare clic su OK pulsante. Vedi screenshot:

Quindi un nuovo foglio di lavoro con questo nome specifico da una cella viene creato immediatamente in una nuova cartella di lavoro.

Note:

1. Se desideri creare più fogli nuovi con nomi specifici contemporaneamente, inserisci questi nomi nelle celle uno per uno, quindi seleziona queste celle nel Dati in un intervallo scatola.
2. Puoi anche creare fogli di lavoro in sequenza da numeri di serie o un elenco personalizzato con questo Crea fogli di lavoro per sequenze utilità. Vedi screenshot:

  Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, this does not properly account for user clicking cancel. It still creates worksheet.
This comment was minimized by the moderator on the site
Hi
The code has been updated with the problem solving. Please have a try and thanks for your comment.
This comment was minimized by the moderator on the site
Hi, I'm quite new to VBA, the above code works great for adding a new spreadsheet and renaming it, however I would then like it to automatically copy and paste the contents on my 'template' sheet into the new sheet? Can anybody help please?

Thanks
This comment was minimized by the moderator on the site
Good day,
Please try the below VBA code. Hope it can help. Thanks for your comment.

Sub CreateSheet()
Dim xName As String
Dim xSht As Object
Dim xNWS As Worksheet
On Error Resume Next
xName = Application.InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
If xName = "" Then Exit Sub
Set xSht = Sheets(xName)
If Not xSht Is Nothing Then
MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
Exit Sub
End If
ActiveSheet.Copy after:=Sheets(Sheets.count)
Set xNWS = Sheets(Sheets.count)
xNWS.Name = xName
End Sub
This comment was minimized by the moderator on the site
Thank you for your reply crystal! I have it working now :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations