Перейти к основному содержанию

Как добавить новый лист с определенным именем в Excel?

Иногда вам нужно создать новый лист и автоматически присвоить ему определенное имя в Excel. В этой статье мы покажем вам два метода добавления нового листа с определенным именем в текущую книгу, а также создание листа с определенным именем в новой книге в Excel.

Автоматическое добавление нового листа с определенным именем в текущую книгу с кодом VBA
Автоматическое добавление нового листа с определенным именем в новую книгу с помощью Kutools for 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 for Excel диалоговом окне введите имя для этого листа, а затем щелкните OK кнопка. Смотрите скриншот:

Затем создается новый рабочий лист с определенным именем, который располагается в конце текущей книги.


Автоматическое добавление нового листа с определенным именем в новую книгу с помощью Kutools for Excel

В этом разделе мы представим Создать рабочие листы последовательностей полезности Kutools for Excel. С помощью этой утилиты вы можете легко добавить новый лист с определенным именем в новую книгу.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Для добавления нового листа с определенным именем вам необходимо заранее ввести это имя в ячейку. А затем нажмите Кутулс Плюс > Рабочий лист > Создать рабочие листы последовательностей.

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

Затем в новой книге немедленно создается новый лист с этим конкретным именем из ячейки.

Заметки:

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

  Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.

Лучшие инструменты для офисной работы

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

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 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