Перейти до основного матеріалу

Як додати новий аркуш із конкретною назвою в Excel?

Іноді потрібно створити новий аркуш і автоматично назвати його певним іменем у Excel. У цій статті ми покажемо вам два способи додавання нового аркуша з конкретним іменем до поточної книги, а також створення робочого аркуша з конкретним іменем у новій книзі в Excel.

Автоматичне додавання нового аркуша з конкретною назвою до поточної книги з кодом VBA
Автоматичне додавання нового аркуша з певною назвою в нову книгу за допомогою Kutools для Excel


Автоматичне додавання нового аркуша з конкретною назвою до поточної книги з кодом VBA

Ви можете додати новий аркуш із певним іменем у кінці поточної книги з наступним кодом VBA.

1. прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі.

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 Plus > Робочий аркуш > Створіть робочі аркуші послідовностей.

2 В Створіть робочі аркуші послідовностей діалогове вікно, виберіть Пустий аркуш в Базовий аркуш у спадному списку виберіть данів діапазоні і вкажіть комірку, що містить певне ім'я робочого аркуша, і нарешті клацніть на OK кнопку. Дивіться знімок екрана:

Потім у новій книзі негайно створюється новий аркуш із цією конкретною назвою з комірки.

примітки:

1. Якщо ви хочете створити кілька нових аркушів з певними іменами одночасно, введіть ці імена в клітинки по одному, а потім виділіть ці клітинки в Дані в діапазоні коробка
2. Ви також можете створити аркуші послідовностей із номерів серій або спеціального списку за допомогою цього Створіть робочі аркуші послідовностей корисність. Дивіться знімок екрана:

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички 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