Ten artykuł zawiera odpowiedzi na pytania dotyczące jak dodać arkusz z nazwą w programie Excel VBA Jeśli szukasz takich unikalnych rodzajów sztuczek, to trafiłeś w odpowiednie miejsce.Tutaj omówimy 6 easy & sprawdzone sposoby na dodanie arkusza z nazwą w Excelu VBA .

Pobierz Zeszyt ćwiczeń

Możesz pobrać następujący skoroszyt Excela, aby lepiej zrozumieć i samemu poćwiczyć.

Kod VBA do dodania arkusza z nazwą

Użyjemy Obiekt arkuszy aby dodać arkusz w programie Excel. VBA kod do dodania arkusza o nazwie wygląda jak poniżej.

Przed: Jest to opcjonalne, dodaje nowy arkusz przed określonym arkuszem.

Po: To też jest opcjonalne, dodaje nowy arkusz po określonym arkuszu.

Licz: Jest to również parametr opcjonalny. Wskazuje on liczbę arkuszy do dodania.

Typ: Jest to opcja, która określa typ arkusza. Tutaj wartością domyślną jest xlWorksheet .

6 różnych sposobów na dodanie arkusza z nazwą w Excelu VBA

W programie Excel możemy dodać nowy arkusz za pomocą polecenia dodaj ⊕ Czy kiedykolwiek myślałeś o zautomatyzowaniu tego samego zadania w Excelu? Nie zastanawiaj się dłużej, ponieważ VBA ma cię pod opieką.

Mamy tu arkusz o nazwie Raport sprzedaży . zawiera. Dzienny raport sprzedaży pewnej kawiarni. W kolumnach B , C oraz D , istnieją nazwy Przedstawiciele handlowi , Pozycje oraz Ilość odpowiednio.

Tutaj dodamy inne arkusze w tym skoroszycie za pomocą Makro VBA .

Tutaj użyliśmy Microsoft Excel 365 wersja, możesz użyć każdej innej wersji zgodnie z Twoją wygodą.

1) Dodawanie arkusza z nazwą w Excelu VBA

W naszej pierwszej metodzie dodamy arkusz o nazwie z wkład użytkownika Jeśli jesteś ciekawy jak się uczyć, wykonaj te proste kroki.

📌 Kroki:

• Na samym początku przejdź do. Deweloper tab.
• Po drugie, wybierz Visual Basic na Kod grupa.
• Można też nacisnąć ALT + F11 aby wykonać to samo zadanie.

Uwaga: Upewnij się, że nacisnąłeś ALT przycisk po lewej stronie SPACEBAR Operacja nie zostanie wykonana, jeśli użyjesz innych metod. ALT klucze.

• Natychmiast Microsoft Visual Basic for Applications otwiera się okno.
• Później przenieść się do Wkładka tab.
• Następnie należy wybrać Moduł z opcji.

• Obecnie otwiera kod Moduł .
• Następnie napisz następujący kod w Moduł .

 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 

Podział kodu

• Po pierwsze, wywołujemy procedurę Sub jako Add_Sheet_with_Name .
• Następnie definiujemy typy zmiennych.
• Później dodaliśmy On Error Resume Next To zignoruje wszelkie błędy.
• Następnie użyliśmy InputBox aby uzyskać nazwę arkusza od użytkownika. Ponadto, zapisaliśmy ciąg tekstowy z InputBox do nazwa arkusza zmienny.
• Następnie, jeśli nazwa arkusza jest pusta, to kod nie będzie kontynuowany.
• W końcu używamy Add.Name aby nadać nazwę nowo utworzonemu arkuszowi. W tym przypadku nazwa będzie taka sama jak nazwa nazwa arkusza zmienny.

• W tym momencie należy nacisnąć przycisk Run (⏵) Zamiast tego można nacisnąć F5 na swojej klawiaturze.

• Nagle otwiera się pole do wprowadzania danych.
• Tutaj wpisz nazwę nowego arkusza. W tym przypadku napisaliśmy Zysk w pudełku.
• Później kliknij OK .

• Tak więc nasz kod zostanie wykonany i doda arkusz o nazwie Zysk .

Uwaga: Nie wymieniliśmy żadnego miejsca dla naszego arkusza, domyślnie jest on umieszczany przed aktywnym arkuszem.

Read More: Excel VBA, aby dodać arkusz do innego skoroszytu (3 poręczne przykłady)

2) Zastosowanie VBA w Excelu do dodania arkusza z nazwą przed określonym arkuszem

W naszej drugiej metodzie dodamy arkusz o nazwie przed konkretnym arkuszem. Zbadajmy ten proces krok po kroku.

📌 Kroki:

• Po pierwsze, przywołaj kod Moduł okno jak pokazano w Metoda 1 .
• Po drugie, wpisz w to następujący kod.

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

Podział kodu

• Po pierwsze, wywołujemy procedurę Sub jako Add_Sheet_Before_Specific_Sheet .
• Następnie aktywujemy Raport sprzedaży Dzięki temu kod będzie działał, jeśli będziemy na innym arkuszu.
• Następnie używamy Add.Name Metoda ta zostanie utworzona przed arkuszem o nazwie Zysk z skoroszytu. Ponadto nazwaliśmy arkusz jako Bilans .

• Następnie uruchom kod, jak pokazano w Metoda 1 .
• W ten sposób doda nowy arkusz Bilans przed arkuszem o nazwie Zysk .

Read More: Excel VBA, aby dodać arkusz z nazwą zmiennej (5 idealnych przykładów)

3. użycie VBA w Excelu do dodania arkusza z nazwą po określonym arkuszu

W tej metodzie dodamy arkusz po arkuszu o nazwie Zysk . Zobaczmy ten proces w szczegółach.

📌 Kroki:

• Na początku należy przywołać kod Moduł okno jak pokazano w Metoda 1 .
• Następnie wpisz w to następujący kod.

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

Ten kod jest prawie podobny do kodu Metoda 2 . Tylko, że tutaj użyliśmy parametru Po aniżeli Przed Ponieważ chcemy dodać nowy arkusz po określonym arkuszu.

• Następnie uruchom kod, jak pokazano w Metoda 1 .
• W ten sposób doda nowy arkusz Magazyn po arkuszu o nazwie Zysk .

Read More: Excel VBA, aby dodać arkusz, jeśli nie istnieje (z szybkimi krokami)

4. wstawianie arkusza z nazwą na początku skoroszytu

W tym rozdziale wstawimy nowy arkusz na początku skoroszytu w Excelu za pomocą VBA Zatem, bez dalszej zwłoki, zobaczmy jak to robimy.

📌 Kroki:

• Na początku należy przywołać kod Moduł okno jak pokazano w Metoda 1 .
• Następnie wpisz w to następujący kod.

 Sub Add_Sheet_Start_Workbook() Sheets.Add(Before:=Sheets(1)).Name = "Profil firmy" End Sub 

Tutaj dodajemy nowy arkusz przed pierwszym arkuszem skoroszytu, czyli na początku skoroszytu. W efekcie jest to teraz pierwszy arkusz. Ponadto nazwaliśmy arkusz Profil firmy .

• Następnie uruchom kod jak na rysunku Metoda 1 .
• Stąd doda nowy arkusz Profil firmy na początku zeszytu.

Read More: Makro Excel: Tworzenie nowego arkusza i zmiana nazwy (3 idealne przykłady)

5) Wykorzystanie VBA w programie Excel do dodania arkusza na końcu skoroszytu

W tym rozdziale będziemy dodać arkusz za ostatnim arkuszem skoroszytu Pozwólcie, że zademonstruję ten proces poniżej.

📌 Kroki:

• Przede wszystkim otwórz kod Moduł okno jak pokazano w Metoda 1 .
• Po drugie, wklej w to następujący kod.

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

Podział kodu

• Po pierwsze, wywołujemy procedurę Sub jako Sheet_End_Workbook.
• Następnie używamy Add.Name Utworzymy ten arkusz po ostatnim arkuszu skoroszytu. Numer ostatniego arkusza możemy uzyskać z metody Sheets.Count Co więcej, nazwaliśmy arkusz Rachunek zysków i strat .

• Następnie należy uruchomić kod jak pokazano w Metoda 1 .
• Stąd doda nowy arkusz Rachunek zysków i strat na końcu zeszytu.

Read More: Tworzenie nowego skoroszytu i zapisywanie przy użyciu VBA w Excelu

6) Wprowadzanie wielu arkuszy przy użyciu wartości komórki przez Excel VBA

W przypadku ostatniej metody dodamy wiele arkuszy w skoroszycie z nazwą z zakresu komórek za pomocą programu Excel VBA Ponadto poprosimy użytkownika o wprowadzenie zakresu, aby wziąć nazwę. Spójrzmy więc na poniższe kroki.

📌 Kroki:

• Na początku należy otworzyć kod Moduł okno jak pokazano w Metoda 1 .
• Następnie skopiuj poniższy kod i wklej go do tego.

 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. 

Podział kodu

• Po pierwsze, wywołujemy procedurę Sub jako Add_Multiple_Sheets_Using_Cell_Value.
• Następnie definiujemy typy zmiennych.
• Następnie używamy InputBox aby uzyskać zakres danych od użytkownika.
• Po czwarte, aktywujemy arkusz Raport sprzedaży .
• Później używamy Dla każdego następnego pętla, aby przejść przez wybrany zakres komórek jeden po drugim.
• Następnie używamy Add.Name Będziemy tworzyć te arkusze po aktywnym arkuszu Raport sprzedaży zeszytu.

• Teraz uruchom kod, jak pokazano w Metoda 1 .
• Natychmiast Exceldemy otwiera się pole wejściowe.
• Następnie podaj komórki w B5:B9 zakres w pudełku.
• Na koniec kliknij OK .

• Na koniec wstawi pięć arkuszy o nazwach odpowiadających wartościom komórek w B5:B9 Zakres. Wszystkie są po arkuszu Raport sprzedaży .

Wniosek

Ten artykuł zawiera łatwe i krótkie rozwiązania dotyczące dodawania arkuszy z nazwami przez Excel VBA Nie zapomnij pobrać Praktyka Plik. Dziękujemy za przeczytanie tego artykułu, mamy nadzieję, że to było pomocne. Proszę dać nam znać w sekcji komentarzy, jeśli masz jakieś pytania lub sugestie. Zapraszamy na naszą stronę internetową Exceldemy aby dowiedzieć się więcej.