Tento článok poskytuje odpovede na vaše otázky týkajúce sa ako pridať list s názvom v programe Excel VBA Ak hľadáte takéto jedinečné triky, ste na správnom mieste. 6 jednoduchý & osvedčené spôsoby pridania listu s názvom v programe Excel VBA .

Stiahnite si cvičebnicu

Pre lepšie pochopenie a precvičenie si môžete stiahnuť nasledujúci zošit programu Excel.

Kód VBA na pridanie listu s názvom

Použijeme Objekt hárkov na pridanie listu v programe Excel. Základné VBA Kód na pridanie listu s názvom vyzerá ako ten, ktorý je uvedený nižšie.

Pred: Je to voliteľné. Pridá nový hárok pred konkrétny hárok.

Po: Je to tiež voliteľné. Pridá nový hárok za konkrétny hárok.

Počítajte: Je to tiež nepovinný parameter. Udáva počet listov, ktoré sa majú pridať.

Typ: Je tiež nepovinný. Určuje typ listu. Tu je predvolená hodnota xlWorksheet .

6 rôznych spôsobov pridania listu s názvom v programe Excel VBA

V programe Excel môžeme pridať nový hárok pomocou príkazu add ⊕ Ikona hneď vedľa názvu hárku. Rozmýšľali ste niekedy nad automatizáciou rovnakej úlohy v programe Excel? Už nemusíte, pretože VBA vám pomôže.

Tu máme pracovný hárok s názvom Správa o predaji Obsahuje Denná správa o predaji istej kaviarne. V stĺpcoch B , C a D , existujú názvy Obchodní zástupcovia , Položky a Množstvo resp.

Tu pridáme ďalšie listy v tomto zošite pomocou Makro VBA .

Tu sme použili Microsoft Excel 365 verziu, môžete použiť akúkoľvek inú verziu podľa toho, ako vám to vyhovuje.

1. Pridanie listu s názvom v aplikácii Excel VBA

V našej prvej metóde pridáme hárok s názvom z vstup používateľa Ak ste zvedaví, čo sa chcete naučiť, postupujte podľa týchto jednoduchých krokov.

📌 Kroky:

• Na samom začiatku prejdite na Vývojár tab.
• Po druhé, vyberte Visual Basic na Kód skupina.
• Prípadne stlačte ALT + F11 na rovnakú úlohu.

Poznámka: Uistite sa, že ste stlačili ALT vľavo od tlačidla SPACEBAR . Operácia by sa nevykonala, ak použijete iné ALT kľúče.

• Okamžite sa Microsoft Visual Basic pre aplikácie otvorí sa okno.
• Neskôr sa presuniete do Vložte tab.
• Potom vyberte Modul z možností.

• V súčasnosti otvára kód Modul .
• Potom napíšte nasledujúci 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 

Rozdelenie kódu

• Najprv voláme procedúru Sub ako Add_Sheet_with_Name .
• Potom definujeme typy premenných.
• Neskôr sme pridali Pri chybe pokračovať ďalej Tento príkaz bude ignorovať všetky chyby.
• Potom sme použili InputBox na získanie názvu listu od používateľa. Tiež sme uložili textový reťazec z InputBox do názov_stránky premenná.
• Ďalej, ak názov_stránky je prázdny, potom kód nebude pokračovať.
• Nakoniec používame Add.Name na pomenovanie novovytvoreného hárku. V tomto prípade bude názov rovnaký ako názov názov_stránky premenná.

• V tomto okamihu stlačte tlačidlo Spustiť (⏵) ikonu . Namiesto toho môžete stlačiť F5 na klávesnici.

• Zrazu sa otvorí vstupné pole.
• Tu zadajte názov nového listu. V tomto prípade sme napísali Zisk v krabici.
• Neskôr kliknite na OK .

• Náš kód sa teda spustí a pridá list s názvom Zisk .

Poznámka: Neuviedli sme žiadne miesto pre náš list. V predvolenom nastavení je umiestnený pred aktívnym listom.

Prečítajte si viac: Pridanie hárku do iného zošita pomocou programu Excel VBA (3 praktické príklady)

2. Použitie programu Excel VBA na pridanie hárku s názvom pred konkrétny hárok

V našom druhom spôsobe pridáme hárok s názvom pred konkrétny hárok. Preskúmame tento postup krok za krokom.

📌 Kroky:

• Najprv vyvolajte kód Modul okno, ako je znázornené v Metóda 1 .
• Po druhé do nej napíšte nasledujúci kód.

 Sub Add_Sheet_Before_Specific_Sheet() Worksheets("Sales Report").Activate Sheets.Add(Before:=Sheets("Profit")).Name = "Balance Sheet" End Sub 

Rozdelenie kódu

• Najprv voláme procedúru Sub ako Add_Sheet_Before_Specific_Sheet .
• Potom aktivujeme Správa o predaji Tým sa zabezpečí, že sa kód spustí, ak sme na inom liste.
• Ďalej používame Add.Name na pomenovanie novovytvoreného hárku. Tento hárok sa vytvorí pred hárkom s názvom Zisk z pracovného zošita. Okrem toho sme hárok pomenovali ako Súvaha .

• Potom spustite kód, ako je znázornené na obrázku Metóda 1 .
• Pridá teda nový hárok Súvaha pred hárkom s názvom Zisk .

Prečítajte si viac: Excel VBA na pridanie listu s názvom premennej (5 ideálnych príkladov)

3. Použitie programu Excel VBA na pridanie hárku s názvom za konkrétny hárok

V tejto metóde pridáme hárok za hárok s názvom Zisk . Pozrime sa na tento proces podrobne.

📌 Kroky:

• Najprv vyvolajte kód Modul okno, ako je znázornené v Metóda 1 .
• Potom do nej napíšte nasledujúci kód.

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

Tento kód je takmer podobný kódu Metóda 2 . Len sme tu použili parameter Po stránke a nie Pred . Pretože chceme pridať nový hárok, ktorý bude nasledovať po konkrétnom hárku.

• Potom spustite kód, ako je znázornené na obrázku Metóda 1 .
• Pridá teda nový hárok Sklad po hárku s názvom Zisk .

Prečítajte si viac: Excel VBA na pridanie listu, ak neexistuje (s rýchlymi krokmi)

4. Vloženie listu s názvom na začiatok zošita

V tejto časti vložíme nový list na začiatok zošita v programe Excel pomocou VBA . Takže sa bez ďalšieho zdržiavania pozrime, ako to urobíme.

📌 Kroky:

• Spočiatku vyvolajte kód Modul okno, ako je znázornené v Metóda 1 .
• Potom do nej napíšte nasledujúci kód.

 Sub Add_Sheet_Start_Workbook() Sheets.Add(Before:=Sheets(1)).Name = "Company Profile" End Sub 

Tu pridávame nový pracovný hárok pred prvý hárok zošita. To znamená na začiatok zošita. Výsledkom je, že teraz je to prvý hárok. Taktiež sme hárok pomenovali Profil spoločnosti .

• Potom spustite kód, ako je znázornené na obrázku Metóda 1 .
• Preto sa pridá nový hárok Profil spoločnosti na začiatku zošita.

Prečítajte si viac: Makro programu Excel: Vytvorenie nového hárku a premenovanie (3 ideálne príklady)

5. Využitie programu Excel VBA na pridanie listu na koniec zošita

V tejto časti sa budeme pridať list za posledný list zošita Dovoľte mi, aby som vám tento postup predviedol nižšie.

📌 Kroky:

• Predovšetkým otvorte kód Modul okno, ako je znázornené v Metóda 1 .
• Po druhé do nej vložte nasledujúci kód.

 Sub Sheet_End_Workbook() Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Income Statement" End Sub 

Rozdelenie kódu

• Najprv voláme procedúru Sub ako Sheet_End_Workbook.
• Ďalej používame Add.Name metódu na pomenovanie novovytvoreného hárku. Tento hárok vytvoríme za posledným hárkom zošita. Číslo posledného hárku môžeme získať z Sheets.Count Okrem toho sme list pomenovali Výkaz ziskov a strát .

• Potom spustite kód, ako je znázornené na obrázku Metóda 1 .
• Preto sa pridá nový hárok Výkaz ziskov a strát na konci zošita.

Prečítajte si viac: Vytvorenie nového zošita a uloženie pomocou VBA v programe Excel

6. Predstavenie viacerých hárkov pomocou hodnoty bunky pomocou Excel VBA

Pri poslednej metóde pridáme do zošita viacero listov s názvom z rozsahu buniek pomocou aplikácie Excel VBA . Okrem toho požiadame používateľa o zadanie rozsahu na prevzatie názvu. Pozrime sa teda na nasledujúce kroky.

📌 Kroky:

• Najprv otvorte kód Modul okno, ako je znázornené v Metóda 1 .
• Potom skopírujte nasledujúci kód a vložte ho do neho.

 Sub Add_Multiple_Sheets_Using_Cell_Value() Dim rng As Range Dim cc As Range Set rng = Application.InputBox("Select Cell Range" _ & " 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 

Rozdelenie kódu

• Najprv voláme procedúru Sub ako Add_Multiple_Sheets_Using_Cell_Value.
• Potom definujeme typy premenných.
• Potom použijeme InputBox na získanie rozsahu údajov od používateľa.
• Po štvrté, aktivujeme hárok Správa o predaji .
• Neskôr použijeme Pre každý ďalší prechádzanie vybraného rozsahu buniek jednu po druhej.
• Ďalej používame Add.Name metóda na pomenovanie novovytvoreného hárku. Tieto hárky vytvoríme po aktívnom hárku Správa o predaji pracovného zošita.

• Teraz spustite kód, ako je znázornené na obrázku Metóda 1 .
• Okamžite sa Exceldemy otvorí sa vstupné pole.
• Potom dajte bunkám v B5:B9 rozsah v krabici.
• Nakoniec kliknite na OK .

• Nakoniec vloží päť hárky pomenované podľa hodnôt buniek v B5:B9 rozsah. Všetky sú po hárku Správa o predaji .

Záver

Tento článok poskytuje jednoduché a stručné riešenia na pridávanie listov s názvami pomocou aplikácie Excel VBA Nezabudnite si stiahnuť Prax súbor. Ďakujeme vám za prečítanie tohto článku, dúfame, že bol užitočný. Ak máte nejaké otázky alebo návrhy, dajte nám vedieť v časti s komentármi. Navštívte našu webovú stránku Exceldemy preskúmať viac.