В этой статье вы найдете ответы на вопросы о как добавить лист с именем в Excel VBA Если вы ищете такие уникальные фокусы, то вы пришли по адресу. Здесь мы обсудим следующие вопросы. 6 easy & проверенные способы добавления листа с именем в Excel VBA .

Скачать Практическое пособие

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

Код VBA для добавления листа с именем

Мы будем использовать Объект "Листы чтобы добавить лист в Excel. VBA код для добавления листа с именем выглядит так, как показано ниже.

До: Это необязательно. Он добавляет новый лист перед определенным листом.

После: Это тоже необязательно. Он добавляет новый лист после определенного листа.

Граф: Это также необязательный параметр. Он указывает количество листов для добавления.

Тип: Он также является необязательным. Он определяет тип листа. Здесь по умолчанию используется значение xlWorksheet .

6 различных способов добавления листа с именем в Excel VBA

В Excel мы можем добавить новый лист с помощью команды add ⊕ значок рядом с именем листа. Вы когда-нибудь думали о том, как автоматизировать ту же задачу в Excel? Не думайте больше, потому что VBA позаботится о вас.

Здесь у нас есть рабочий лист с именем Отчет о продажах В нем содержится Ежедневный отчет о продажах определенного кафе. В колонках B , C и D , есть имена Торговые представители , Предметы и Количество соответственно.

Здесь мы добавим другие листы в эту рабочую книгу с помощью функции макрос VBA .

Здесь мы использовали Microsoft Excel 365 версию, вы можете использовать любую другую версию в зависимости от вашего удобства.

1. Добавление листа с именем в Excel VBA

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

📌 Шаги:

• В самом начале перейдите к Разработчик вкладка.
• Во-вторых, выберите Visual Basic на Код группа.
• В качестве альтернативы нажмите ALT + F11 для выполнения той же задачи.

Примечание: Обязательно нажмите кнопку ALT клавиша слева от SPACEBAR . Операция не будет выполнена, если вы используете другие ALT ключи.

• Мгновенно Microsoft Visual Basic для приложений открывается окно.
• Позже перейдите к Вставка вкладка.
• Затем выберите Модуль из предложенных вариантов.

• В настоящее время он открывает код Модуль .
• После этого напишите следующий код в Модуль .

 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 

Разбивка кода

• Во-первых, мы вызываем процедуру Sub как Добавить_лист_с_именем .
• Затем мы определяем типы переменных.
• Позже мы добавили При ошибке продолжить Далее оператор. При этом все ошибки будут игнорироваться.
• После этого мы использовали InputBox чтобы получить имя листа от пользователя. Кроме того, мы сохранили текстовую строку из файла InputBox в имя_листа переменная.
• Далее, если имя_листа пуст, то код не будет продолжен.
• Наконец, мы используем Добавить.Имя метод для присвоения имени вновь созданному листу. Здесь имя будет таким же, как и в методе имя_листа переменная.

• В этот момент нажмите кнопку Беги (⏵) значок. Вместо этого можно нажать F5 на клавиатуре.

• Неожиданно открывается поле ввода.
• Здесь введите имя нового листа. В данном случае мы написали Прибыль в коробке.
• Позже нажмите OK .

• Итак, наш код будет выполнен, и он добавит лист с именем Прибыль .

Примечание: Мы не указали место для нашего листа. По умолчанию он располагается перед активным листом.

Читать далее: Excel VBA для добавления листа в другую рабочую книгу (3 удобных примера)

2. Применение Excel VBA для добавления листа с именем перед определенным листом

Во втором методе мы добавим лист с именем перед конкретным листом. Давайте рассмотрим этот процесс шаг за шагом.

📌 Шаги:

• Во-первых, вызовите код Модуль окно, как показано на рисунке Метод 1 .
• Во-вторых, запишите в него следующий код.

 Sub Add_Sheet_Before_Specific_Sheet() Worksheets("Sales Report").Activate Sheets.Add(Before:=Sheets("Profit")).Name = "Balance Sheet" End Sub 

Разбивка кода

• Во-первых, мы вызываем процедуру Sub как Добавить_лист_перед_конкретным_листом .
• Затем мы активируем Отчет о продажах Это обеспечит выполнение кода, если мы находимся на другом листе.
• Далее, мы используем Добавить.Имя метод для присвоения имени вновь созданному листу. Этот лист будет создан перед листом с именем Прибыль из рабочей книги. Более того, мы назвали лист как Бухгалтерский баланс .

• После этого запустите код, как показано на рисунке Метод 1 .
• Таким образом, будет добавлен новый лист Бухгалтерский баланс перед листом с именем Прибыль .

Читать далее: Excel VBA для добавления листа с именем переменной (5 идеальных примеров)

3. Использование Excel VBA для добавления листа с именем после определенного листа

В этом методе мы добавим лист после листа с именем Прибыль Давайте рассмотрим процесс в деталях.

📌 Шаги:

• Сначала вызовите код Модуль окно, как показано на рисунке Метод 1 .
• После этого запишите в него следующий код.

 Sub Add_Sheet_After_Specific_Sheet() Worksheets("Profit").Activate Sheets.Add(After:=ActiveSheet).Name = "Warehouse" End Sub 

Этот код почти аналогичен коду Метод 2 . Просто, здесь мы использовали параметр После а не До Поскольку мы хотим добавить новый лист, следующий за определенным листом.

• После этого запустите код, как показано на рисунке Метод 1 .
• Таким образом, будет добавлен новый лист Склад после листа с именем Прибыль .

Читать далее: Excel VBA для добавления листа, если он не существует (с быстрыми шагами)

4. Вставка листа с именем в начало рабочей книги

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

📌 Шаги:

• Первоначально вызовите код Модуль окно, как показано на рисунке Метод 1 .
• После этого запишите в него следующий код.

 Sub Add_Sheet_Start_Workbook() Sheets.Add(Before:=Sheets(1)).Name = "Профиль компании" End Sub 

Здесь мы добавляем новый рабочий лист перед первым листом рабочей книги. Это означает, что в начале рабочей книги. В результате, теперь это первый лист. Также мы назвали лист Профиль компании .

• Затем выполните код, как показано на рисунке Метод 1 .
• Следовательно, он добавит новый лист Профиль компании в начале рабочей книги.

Читать далее: Макрос Excel: создание нового листа и переименование (3 идеальных примера)

5. Использование Excel VBA для добавления листа в конец рабочей книги

В этом разделе мы добавить лист после последнего листа рабочей книги Позвольте мне продемонстрировать процесс ниже.

📌 Шаги:

• В первую очередь, откройте код Модуль окно, как показано на рисунке Метод 1 .
• Во-вторых, вставьте туда следующий код.

 Sub Sheet_End_Workbook() Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Income Statement" End Sub 

Разбивка кода

• Во-первых, мы вызываем процедуру Sub как Sheet_End_Workbook.
• Далее, мы используем Добавить.Имя мы создадим этот лист после последнего листа рабочей книги. Номер последнего листа мы можем получить из метода Sheets.Count Более того, мы назвали лист Отчет о прибылях и убытках .

• После этого запустите код, как показано на рисунке Метод 1 .
• Следовательно, он добавит новый лист Отчет о прибылях и убытках в конце рабочей тетради.

Читать далее: Создание новой рабочей книги и сохранение с помощью VBA в Excel

6. Ввод нескольких листов с использованием значения ячеек с помощью Excel VBA

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

📌 Шаги:

• Сначала откройте код Модуль окно, как показано на рисунке Метод 1 .
• После этого скопируйте следующий код и вставьте его туда.

 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 

Разбивка кода

• Во-первых, мы вызываем процедуру Sub как Add_Multiple_Sheets_Using_Cell_Value.
• Затем мы определяем типы переменных.
• После этого мы используем InputBox для получения диапазона данных от пользователя.
• В-четвертых, мы активируем лист Отчет о продажах .
• Позже мы используем Для каждого следующего цикл для поочередного просмотра выбранного диапазона ячеек.
• Далее, мы используем Добавить.Имя метод для присвоения имени вновь созданному листу. Мы будем создавать эти листы после активного листа Отчет о продажах рабочей тетради.

• Теперь запустите код, как показано на рисунке Метод 1 .
• Мгновенно Exceldemy откроется окно ввода.
• Затем, дайте ячейкам в B5:B9 диапазон в коробке.
• Наконец, нажмите OK .

• Наконец, он вставит пять листы, названные в соответствии со значениями ячеек в B5:B9 диапазон. Они все после листа Отчет о продажах .

Заключение

В этой статье приведены простые и краткие решения по добавлению листов с именами в Excel VBA Не забудьте скачать Практика файл Спасибо, что прочитали эту статью, мы надеемся, что она была полезной. пожалуйста, сообщите нам в разделе комментариев, если у вас есть какие-либо вопросы или предложения. пожалуйста, посетите наш сайт Exceldemy чтобы узнать больше.