Přejít k hlavnímu obsahu

Jak přidat nový list se specifickým názvem v aplikaci Excel?

Někdy chcete vytvořit nový list a automaticky jej pojmenovat konkrétním názvem v aplikaci Excel. V tomto článku vám ukážeme dvě metody přidání nového listu se specifickým názvem do aktuálního sešitu a také vytvoření listu se specifickým názvem v novém sešitu v aplikaci Excel.

Automatické přidání nového listu se specifickým názvem do aktuálního sešitu s kódem VBA
Automatické přidávání nového listu se specifickým názvem do nového sešitu pomocí programu Kutools pro Excel


Automatické přidání nového listu se specifickým názvem do aktuálního sešitu s kódem VBA

Na konec aktuálního sešitu můžete přidat nový list s určitým názvem s následujícím kódem VBA.

1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul.

3. Zkopírujte a vložte pod kód VBA do Modul okno.

Kód VBA: přidejte nový list se specifickým názvem na konec aktuálního sešitu

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. lis F5 klíč ke spuštění kódu. Ve vyskakovacím okně Kutools pro Excel V dialogovém okně zadejte název tohoto listu a poté klikněte na ikonu OK knoflík. Viz screenshot:

Poté se vytvoří nový list se specifickým názvem a umístí se na konec aktuálního sešitu.


Automatické přidávání nového listu se specifickým názvem do nového sešitu pomocí programu Kutools pro Excel

V této části si představíme Vytvořte pracovní listy sekvence užitečnost Kutools pro Excel. Pomocí tohoto nástroje můžete do nového sešitu snadno přidat nový list se specifickým názvem.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. Chcete-li přidat nový list se specifickým názvem, musíte tento název předem zadat do buňky. A pak klikněte Kutools Plus > Pracovní list > Vytvořte pracovní listy sekvence.

2. V Vytvořte pracovní listy sekvence dialogové okno vyberte Prázdný list v Základní pracovní list rozbalovacího seznamu vyberte Datav rozsahu a zadejte buňku, která obsahuje určitý název listu, a nakonec klikněte na OK knoflík. Viz screenshot:

Poté se v novém sešitu okamžitě vytvoří nový list s tímto konkrétním názvem z buňky.

Poznámky:

1. Pokud chcete vytvořit více nových listů se specifickými názvy najednou, zadejte tyto názvy do buněk jeden po druhém a poté vyberte tyto buňky v Data v rozsahu box.
2. S tímto můžete také vytvořit pracovní listy sekvence z čísel sérií nebo vlastního seznamu Vytvořte pracovní listy sekvence nástroj. Viz snímek obrazovky:

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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