Jak dodać arkusz z nazwą w Excelu VBA (6 prostych sposobów)

Hugh West

02-06-2023 Makra & Excel VBA
  • Udostępnij To
Hugh West

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ć.

Dodawanie arkusza z nazwą.xlsm

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.

Sheets.Add ([Before], [After], [Count], [Type])

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.

Poprzedni post VBA do ukrywania wierszy w Excelu (14 metod)
Następny post Jak zmieścić arkusz Excela na jednej stronie w Wordzie (3 proste sposoby)

Hugh West jest bardzo doświadczonym trenerem i analitykiem Excela z ponad 10-letnim doświadczeniem w branży. Posiada tytuł licencjata w dziedzinie rachunkowości i finansów oraz tytuł magistra administracji biznesowej. Hugh ma pasję do nauczania i opracował unikalne podejście do nauczania, które jest łatwe do naśladowania i zrozumienia. Jego specjalistyczna wiedza na temat programu Excel pomogła tysiącom studentów i profesjonalistów na całym świecie doskonalić swoje umiejętności i osiągać doskonałe wyniki w karierze. Za pośrednictwem swojego bloga Hugh dzieli się swoją wiedzą ze światem, oferując bezpłatne samouczki programu Excel i szkolenia online, aby pomóc osobom indywidualnym i firmom w pełni wykorzystać swój potencjał.