Прескочи на основното съдържание

Как да добавя нов лист с конкретно име в Excel?

Автор: Силувия Последна промяна: 2020-07-02

Понякога искате да създадете нов лист и автоматично да го наименувате с конкретно име в Excel. В тази статия ще ви покажем два метода за добавяне на нов лист със специфично име в текущата работна книга, както и създаване на работен лист с конкретно име в нова работна книга в Excel.

Автоматично добавяне на нов лист с конкретно име в текущата работна книга с VBA код
Автоматично добавяне на нов лист с конкретно име в нова работна книга с Kutools за Excel


Автоматично добавяне на нов лист с конкретно име в текущата работна книга с VBA код

Можете да добавите нов лист с определено име в края на текущата работна книга със следния VBA код.

1. Натиснете Друг + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.

2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули.

3. Копирайте и поставете по-долу VBA кода в Модули прозорец.

VBA код: добавете нов лист с конкретно име в края на текущата работна книга

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. Натиснете F5 ключ за изпълнение на кода. В изскачащите Kutools за Excel диалогов прозорец, моля, въведете име за този лист и след това щракнете върху OK бутон. Вижте екранна снимка:

След това се създава нов работен лист с конкретно име и се намира в края на текущата работна книга.


Автоматично добавяне на нов лист с конкретно име в нова работна книга с Kutools за Excel

В този раздел ще ви представим Създаване на работни листове за последователност полезност на Kutools за Excel. С тази помощна програма можете лесно да добавите нов лист с конкретно име в нова работна книга.

Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.

1. За да добавите нов лист с конкретно име, трябва предварително да въведете това име в клетка. И след това щракнете Kutools плюс > Работен лист > Създаване на работни листове за последователност.

2. В Създаване на работни листове за последователност изберете диалоговия прозорец Празен работен лист в Основен работен лист падащ списък, изберете Датав диапазон и посочете клетката, която съдържа определено име на работен лист, и накрая щракнете върху OK бутон. Вижте екранна снимка:

След това незабавно се създава нов работен лист с това конкретно име от клетка в нова работна книга.

бележки:

1. Ако искате да създадете няколко нови листа с конкретни имена едновременно, моля, въведете тези имена в клетки едно по едно и след това изберете тези клетки в Данни в диапазон кутия.
2. Можете също така да създавате работни листове с последователност от номера на серии или персонализиран списък с това Създаване на работни листове за последователност полезност. Вижте екранна снимка:

  Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
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