У цій статті ви знайдете відповіді на ваші запитання щодо як додати аркуш з назвою в Excel VBA Якщо ви шукаєте такі унікальні види фокусів, то ви потрапили за адресою. Тут ми обговоримо 6 прості та перевірені способи додавання аркуша з назвою в Excel VBA .

Завантажити Практичний посібник

Ви можете завантажити наступну робочу таблицю в Excel для кращого розуміння та самостійного опрацювання.

Код VBA для додавання аркуша з назвою

Ми будемо використовувати Об'єкт "Листи додати аркуш в Excel. Фундаментальна VBA Код для додавання аркуша з назвою виглядає так, як показано нижче.

Раніше: Це необов'язкова опція, яка додає новий аркуш перед певним аркушем.

Після: Це також необов'язково. Він додає новий аркуш після певного аркуша.

Граф: Це також необов'язковий параметр, який вказує на кількість аркушів для додавання.

Тип: Це також необов'язковий параметр, який визначає тип аркуша. Тут за замовчуванням використовується значення xlРобочий аркуш .

6 різних способів додавання аркуша з назвою в Excel VBA

В Excel ми можемо додати новий аркуш за допомогою додавання ⊕ Ви коли-небудь замислювалися про те, щоб автоматизувати ту ж саму задачу в 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("Введіть назву аркуша ", _ "Exceldemy") If sheet_name = "" Then Exit Sub Sheets.Add.Name = sheet_name End Sub 

Розподіл кодів

• По-перше, ми називаємо Підпроцедуру як Додати_аркуш_з_назвою .
• Далі визначаємо типи змінних.
• Пізніше ми додали Після помилки відновити роботу Далі Це дозволить ігнорувати будь-які помилки.
• В подальшому ми використовували InputBox щоб отримати назву аркуша від користувача. Також ми зберегли текстовий рядок з InputBox в назва_листа змінна.
• Далі, у разі, якщо назва_листа порожній, то код не продовжить роботу.
• Нарешті, ми використовуємо Дод.ім'я щоб назвати новостворений аркуш. Тут ім'я буде таким же, як і в методі назва_листа змінна.

• У цей момент натисніть кнопку Біжи (⏵) Замість цього ви можете натиснути F5 на клавіатурі.

• Раптом відкривається вікно для введення даних.
• Тут вводимо назву нового аркуша. В даному випадку ми написали Прибуток в коробці.
• Пізніше натисніть ГАРАЗД. .

• Отже, наш код виконається, і він додасть аркуш з іменем Прибуток .

Зауважте: Ми не вказали місце для нашого аркуша, за замовчуванням він розміщується перед активним аркушем.

Читати далі: Додавання аркуша в іншу книгу в Excel VBA (3 зручних приклади)

2 Застосування Excel VBA для додавання аркуша з назвою перед певним аркушем

У другому способі ми додамо аркуш з назвою перед конкретним аркушем. Розглянемо процес крок за кроком.

📌 Сходинки:

• По-перше, згадайте код Модуль вікно, як показано в Спосіб 1 .
• По-друге, вписати туди наступний код.

 Sub Додати_аркуш_перед_конкретним_аркушем() Аркуші("Звіт про продаж").Активувати Аркуші.Додати(Перед:=Аркуші("Прибуток")).Назва = "Баланс" End Sub 

Розподіл кодів

• По-перше, ми називаємо Підпроцедуру як Додати_аркуш_перед_конкретним_аркушем .
• Потім активуємо Звіт про продажі Це забезпечить запуск коду, якщо ми знаходимося на іншому аркуші.
• Далі ми використовуємо Дод.ім'я метод, що задає ім'я новостворюваному аркушу. Цей аркуш буде створений перед аркушем з іменем Прибуток з трудової книжки. Більше того, ми назвали цей аркуш Баланс .

• Після цього запустіть код, як показано в Спосіб 1 .
• Таким чином, буде додано новий аркуш Баланс перед аркушем з назвою Прибуток .

Читати далі: Excel VBA для додавання аркуша з іменем змінної (5 ідеальних прикладів)

3 Використання Excel VBA для додавання аркуша з назвою після певного аркуша

У цьому методі ми додамо аркуш після аркуша з ім'ям Прибуток Розглянемо процес більш детально.

📌 Сходинки:

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

 Sub Додати_аркуш_після_конкретного_аркуша() Аркуші("Прибуток").АктивуватиАркуші.Додати(Після:=АктивнийАркуш).Назва = "Склад" 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 = "Звіт про фінансові результати" End Sub 

Розподіл кодів

• По-перше, ми викликаємо підпроцедуру як Лист_Кінець_Робочої_книги.
• Далі ми використовуємо Дод.ім'я Ми створимо цей аркуш після останнього аркуша книги. Номер останнього аркуша можна отримати з методу 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("Виділити діапазон комірок" _ & " для вставки аркушів", "ExcelWIKI", Type:=8) Application.ScreenUpdating = False Worksheets("Звіт про продаж").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 .
• Миттєво з'явилася інформація про те, що Ексельдемія відкривається вікно введення.
• Потім заповніть клітинки в рядку B5:B9 діапазон у вікні.
• Нарешті, натисніть ГАРАЗД. .

• Нарешті, він вставить п'ять аркуші, названі відповідно до значень комірок у B5:B9 Вони всі шукають аркуш. Звіт про продажі .

Висновок

У цій статті наведені прості і короткі рішення для додавання аркушів з назвами в Excel VBA Не забудьте завантажити Практика Дякуємо, що прочитали цю статтю, сподіваємося, вона була корисною. Якщо у вас виникли запитання чи пропозиції, будь ласка, повідомте нам у коментарях. Завітайте на наш сайт Ексельдемія щоб дослідити більше.