V tomto článku naleznete odpovědi na otázky týkající se jak přidat list se jménem v aplikaci Excel VBA . Pokud hledáte takové jedinečné triky, jste na správném místě. Zde se budeme zabývat 6 snadný & osvědčené způsoby přidání listu s názvem v aplikaci Excel VBA .

Stáhnout cvičebnici

Pro lepší pochopení a procvičení si můžete stáhnout následující sešit aplikace Excel.

Kód VBA pro přidání listu s názvem

Použijeme Objekt Sheets přidat list v aplikaci Excel. Základní VBA kód pro přidání listu s názvem vypadá jako níže uvedený.

Před: Je volitelná. Přidá nový list před konkrétní list.

Po: Je to také volitelné. Přidá nový list za konkrétní list.

Počet: Je to také nepovinný parametr. Udává počet listů, které se mají přidat.

Typ: Je rovněž nepovinný. Určuje typ listu. Zde je výchozí hodnota. xlWorksheet .

6 různých způsobů přidání listu s názvem v aplikaci Excel VBA

V aplikaci Excel můžeme přidat nový list pomocí příkazu add ⊕ Přemýšleli jste někdy o automatizaci stejného úkolu v Excelu? Už nepřemýšlejte, protože VBA vám je k dispozici.

Zde máme pracovní list s názvem Zpráva o prodeji Obsahuje Denní hlášení o prodeji jisté kavárny. Ve sloupcích B , C a D , existují jména Obchodní zástupci , Položky a Množství resp.

Zde přidáme další listy v tomto sešitě pomocí příkazu Makro VBA .

Zde jsme použili Microsoft Excel 365 verzi, můžete použít jakoukoli jinou verzi podle toho, jak vám to vyhovuje.

1. Přidání listu s názvem v aplikaci Excel VBA

V naší první metodě přidáme list s názvem z pole uživatelský vstup Pokud se chcete něco naučit, postupujte podle těchto jednoduchých kroků.

📌 Kroky:

• Na samém začátku přejděte na Vývojář tab.
• Zadruhé vyberte Visual Basic na Kód skupina.
• Případně stiskněte ALT + F11 ke stejnému úkolu.

Poznámka: Nezapomeňte stisknout tlačítko ALT vlevo od tlačítka SPACEBAR . Operace by se neprovedla, kdybyste použili jiné. ALT klíče.

• Okamžitě se Microsoft Visual Basic pro aplikace otevře se okno.
• Později se přesuňte do Vložte tab.
• Pak vyberte Modul z možností.

• V současné době otevírá kód Modul .
• Poté napište následující kód do Modul .

 Sub Add_Sheet_with_Name() Dim sheet_name As String Dim sheet As Object On Error Resume Next sheet_name = InputBox("Please enter sheet name ", _ "Exceldemy") If sheet_name = "" Then Exit Sub Sheets.Add.Name = sheet_name End Sub 

Rozdělení kódu

• Nejprve voláme proceduru Sub jako Add_Sheet_with_Name .
• Poté definujeme typy proměnných.
• Později jsme přidali Při chybě pokračovat Další Tento příkaz bude ignorovat všechny chyby.
• Poté jsme použili InputBox abychom od uživatele získali název listu. Také jsme uložili textový řetězec z pole InputBox do název_listu variabilní.
• Dále, pokud název_listu je prázdný, pak kód nepokračuje.
• Nakonec používáme Add.Name pro pojmenování nově vytvořeného listu. Zde bude název stejný jako u metody název_listu variabilní.

• V tomto okamžiku stiskněte tlačítko Spustit (⏵) ikonu . Spíše můžete stisknout F5 na klávesnici.

• Náhle se otevře vstupní pole.
• Zde zadejte název nového listu. V tomto případě jsme napsali. Zisk v krabici.
• Později klikněte na OK .

• Náš kód se tedy spustí a přidá list s názvem Zisk .

Poznámka: Neuvedli jsme žádné místo pro náš list. Ve výchozím nastavení je umístěn před aktivním listem.

Přečtěte si více: Přidání listu do jiného sešitu pomocí nástroje Excel VBA (3 praktické příklady)

2. Použití nástroje Excel VBA k přidání listu s názvem před konkrétní list

V naší druhé metodě přidáme list s názvem před konkrétní list. Prozkoumejme postup krok za krokem.

📌 Kroky:

• Nejprve vyvolejte kód Modul okno, jak je znázorněno na obrázku Metoda 1 .
• Za druhé do něj zapište následující kód.

 Sub Add_Sheet_Before_Specific_Sheet() Worksheets("Přehled o prodeji").Activate Sheets.Add(Before:=Sheets("Zisk")).Name = "Rozvaha" End Sub 

Rozdělení kódu

• Nejprve voláme proceduru Sub jako Add_Sheet_Before_Specific_Sheet .
• Poté aktivujeme Zpráva o prodeji Tím zajistíte, že se kód spustí, i když jsme na jiném listu.
• Dále používáme Add.Name pojmenovat nově vytvořený list. Tento list bude vytvořen před listem s názvem Zisk Kromě toho jsme list pojmenovali jako Rozvaha .

• Poté spusťte kód podle obrázku Metoda 1 .
• Přidá tedy nový list Rozvaha před listem s názvem Zisk .

Přečtěte si více: Excel VBA pro přidání listu s názvem proměnné (5 ideálních příkladů)

3. Použití nástroje Excel VBA k přidání listu s názvem za konkrétní list

V této metodě přidáme list za list s názvem Zisk . Podívejme se na tento proces podrobněji.

📌 Kroky:

• Nejprve vyvolejte kód Modul okno, jak je znázorněno na obrázku Metoda 1 .
• Poté do něj zapište následující kód.

 Sub Add_Sheet_After_Specific_Sheet() Worksheets("Profit").Activate Sheets.Add(After:=ActiveSheet).Name = "Warehouse" End Sub 

Tento kód je téměř podobný kódu Metoda 2 . Jen jsme zde použili parametr Po spíše než Před . Protože chceme přidat nový list, který bude následovat po určitém listu.

• Poté spusťte kód podle obrázku Metoda 1 .
• Přidá tedy nový list Sklad po listu s názvem Zisk .

Přečtěte si více: Přidání listu v Excelu VBA, pokud neexistuje (v rychlých krocích)

4. Vložení listu s názvem na začátek sešitu

V této části vložíme nový list na začátek sešitu v aplikaci Excel pomocí příkazu VBA . Takže se bez dalšího zdržování podívejme, jak to uděláme.

📌 Kroky:

• Zpočátku zobrazte kód Modul okno, jak je znázorněno na obrázku Metoda 1 .
• Poté do něj zapište následující kód.

 Sub Add_Sheet_Start_Workbook() Sheets.Add(Before:=Sheets(1)).Name = "Profil společnosti" End Sub 

Zde přidáváme nový list před první list sešitu. To znamená na začátek sešitu. V důsledku toho je nyní prvním listem. Také jsme list pojmenovali. Profil společnosti .

• Poté spusťte kód podle obrázku Metoda 1 .
• Proto přidá nový list Profil společnosti na začátku sešitu.

Přečtěte si více: Makro aplikace Excel: Vytvoření nového listu a přejmenování (3 ideální příklady)

5. Využití nástroje Excel VBA k přidání listu na konec sešitu

V této části se budeme přidat list za poslední list sešitu. . Dovolte mi, abych vám tento postup předvedl níže.

📌 Kroky:

• Především otevřete kód Modul okno, jak je znázorněno na obrázku Metoda 1 .
• Za druhé do něj vložte následující kód.

 Sub Sheet_End_Workbook() Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Výkaz zisku a ztráty" End Sub 

Rozdělení kódu

• Nejprve voláme proceduru Sub jako Sheet_End_Workbook.
• Dále používáme Add.Name metodu pro pojmenování nově vytvořeného listu. Tento list vytvoříme za posledním listem sešitu. Číslo posledního listu můžeme získat z příkazu Sheets.Count Kromě toho jsme list pojmenovali Výkaz zisku a ztráty .

• Poté spusťte kód podle obrázku Metoda 1 .
• Proto přidá nový list Výkaz zisku a ztráty na konci sešitu.

Přečtěte si více: Vytvoření nového sešitu a uložení pomocí VBA v aplikaci Excel

6. Představení více listů pomocí hodnoty buňky pomocí aplikace Excel VBA

U poslední metody přidáme do sešitu více listů s názvem z rozsahu buněk pomocí aplikace Excel. VBA . Navíc požádáme uživatele o zadání rozsahu, ze kterého se má název převzít. Podívejme se tedy na níže uvedené kroky.

📌 Kroky:

• Nejprve otevřete kód Modul okno, jak je znázorněno na obrázku Metoda 1 .
• Poté zkopírujte následující kód a vložte jej do něj.

 Sub Add_Multiple_Sheets_Using_Cell_Value() Dim rng As Range Dim cc As Range Set rng = Application.InputBox("Select Cell Range" _ & amp; " to Insert Sheets", "ExcelWIKI", Type:=8) Application.ScreenUpdating = False Worksheets("Sales Report").Activate For Each cc In rng Sheets.Add(After:=ActiveSheet).Name = cc.Value Next cc Application.ScreenUpdating = True End Sub 

Rozdělení kódu

• Nejprve voláme proceduru Sub jako Add_Multiple_Sheets_Using_Cell_Value.
• Poté definujeme typy proměnných.
• Poté použijeme InputBox získat od uživatele rozsah dat.
• Za čtvrté aktivujeme list Zpráva o prodeji .
• Později použijeme Pro každý další smyčka, která postupně prochází vybraný rozsah buněk.
• Dále používáme Add.Name metoda pro pojmenování nově vytvořeného listu. Tyto listy vytvoříme za aktivním listem. Zpráva o prodeji sešitu.

• Nyní spusťte kód podle obrázku Metoda 1 .
• Okamžitě se Exceldemy otevře se vstupní pole.
• Poté zadejte buňky v B5:B9 rozsah v krabici.
• Nakonec klikněte na OK .

• Nakonec vloží pět listy pojmenované podle hodnot buněk v B5:B9 rozsah. Všichni jsou po listu Zpráva o prodeji .

Závěr

Tento článek poskytuje snadné a stručné řešení přidávání listů s názvy pomocí aplikace Excel. VBA Nezapomeňte si stáhnout Cvičení Děkujeme vám za přečtení tohoto článku, doufáme, že byl užitečný. Pokud máte nějaké dotazy nebo návrhy, dejte nám prosím vědět v sekci komentářů. Navštivte prosím naše webové stránky. Exceldemy prozkoumat více.