Note: The other languages of the website are Google-translated. Back to English

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 zkušební verzi (

30
-den) této utility, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
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!
officetab dno
Komentáře (5)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Ahoj, jsem ve VBA docela nový, výše uvedený kód funguje skvěle pro přidání nové tabulky a její přejmenování, ale pak bych chtěl, aby automaticky zkopíroval a vložil obsah z mého listu „šablony“ do nového listu? Může někdo prosím pomoci?

Díky
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Zkuste prosím níže uvedený kód VBA. Doufám, že to může pomoci. Děkuji za Váš komentář.

Dílčí CreateSheet()
Dim xName As String
Dim xSht jako objekt
Dim xNWS jako pracovní list
On Error Resume Next
xName = Application.InputBox("Zadejte prosím název tohoto nového listu ", "Kutools pro Excel")
If xName = "" Pak Exit Sub
Nastavit xSht = Sheets(xName)
If Not xSht Is Nothing Then
MsgBox "List nelze vytvořit, protože v tomto sešitu již je list se stejným názvem"
Konec Sub
End If
ActiveSheet.Copy after:=Sheets(Sheets.count)
Nastavit xNWS = Sheets(Sheets.count)
xNWS.Name = xName
End Sub
Tento komentář byl moderátorem webu minimalizován
Děkuji za odpověď krystal! už mi to funguje :)
Tento komentář byl moderátorem webu minimalizován
Dobrý den, uživatel klikne na tlačítko Zrušit. Stále vytváří pracovní list.
Tento komentář byl moderátorem webu minimalizován
Hi
Kód byl aktualizován s řešením problému. Prosím vyzkoušejte a děkujeme za váš komentář.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL