Przejdź do głównej zawartości

Jak dodać nowy arkusz o określonej nazwie w programie Excel?

Czasami chcesz utworzyć nowy arkusz i automatycznie nadać mu określoną nazwę w programie Excel. W tym artykule pokażemy dwie metody dodawania nowego arkusza o określonej nazwie w bieżącym skoroszycie, a także tworzenie arkusza o określonej nazwie w nowym skoroszycie w programie Excel.

Automatyczne dodawanie nowego arkusza o określonej nazwie w bieżącym skoroszycie z kodem VBA
Automatyczne dodawanie nowego arkusza o określonej nazwie w nowym skoroszycie za pomocą Kutools for Excel


Automatyczne dodawanie nowego arkusza o określonej nazwie w bieżącym skoroszycie z kodem VBA

Możesz dodać nowy arkusz o określonej nazwie na końcu bieżącego skoroszytu z następującym kodem VBA.

1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł.

3. Skopiuj i wklej poniższy kod VBA do pliku Moduł okno.

Kod VBA: dodaj nowy arkusz o określonej nazwie na końcu bieżącego skoroszytu

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. naciśnij F5 klucz do uruchomienia kodu. W wyskakującym okienku Kutools dla programu Excel W oknie dialogowym wprowadź nazwę tego arkusza, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:

Następnie tworzony jest nowy arkusz roboczy o określonej nazwie i umieszczony na końcu bieżącego skoroszytu.


Automatyczne dodawanie nowego arkusza o określonej nazwie w nowym skoroszycie za pomocą Kutools for Excel

W tej sekcji wprowadzimy Utwórz Arkusze Sekwencji użyteczność Kutools dla programu Excel. Za pomocą tego narzędzia możesz łatwo dodać nowy arkusz o określonej nazwie w nowym skoroszycie.

Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.

1. Aby dodać nowy arkusz o określonej nazwie, musisz wcześniej wpisać tę nazwę do komórki. A następnie kliknij Kutools Plus > Ćwiczenie > Utwórz Arkusze Sekwencji.

2. w Utwórz Arkusze Sekwencji okno dialogowe, wybierz Pusty arkusz roboczy Arkusz podstawowy listę rozwijaną wybierz Danew zasięgu opcję i określ komórkę zawierającą określoną nazwę arkusza, a na koniec kliknij plik OK przycisk. Zobacz zrzut ekranu:

Następnie nowy arkusz roboczy z tą konkretną nazwą z komórki jest tworzony natychmiast w nowym skoroszycie.

Uwagi:

1. Jeśli chcesz utworzyć wiele nowych arkuszy z określonymi nazwami w tym samym czasie, wprowadź te nazwy w komórkach jeden po drugim, a następnie zaznacz te komórki w Dane w zakresie pudełko.
2. Za pomocą tego można również tworzyć arkusze sekwencji na podstawie numerów serii lub listy niestandardowej Utwórz Arkusze Sekwencji użyteczność. Zobacz zrzut ekranu:

  Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, this does not properly account for user clicking cancel. It still creates worksheet.
This comment was minimized by the moderator on the site
Hi
The code has been updated with the problem solving. Please have a try and thanks for your comment.
This comment was minimized by the moderator on the site
Hi, I'm quite new to VBA, the above code works great for adding a new spreadsheet and renaming it, however I would then like it to automatically copy and paste the contents on my 'template' sheet into the new sheet? Can anybody help please?

Thanks
This comment was minimized by the moderator on the site
Good day,
Please try the below VBA code. Hope it can help. Thanks for your comment.

Sub CreateSheet()
Dim xName As String
Dim xSht As Object
Dim xNWS As Worksheet
On Error Resume Next
xName = Application.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
ActiveSheet.Copy after:=Sheets(Sheets.count)
Set xNWS = Sheets(Sheets.count)
xNWS.Name = xName
End Sub
This comment was minimized by the moderator on the site
Thank you for your reply crystal! I have it working now :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations