Перейменуйте аркуш у Excel VBA

Перейменування будь-якого робочого аркуша програми excel настільки ж просто, як і перейменування будь-якого файлу. Це можна зробити, двічі клацнувши на будь-якій назві робочого аркуша, або вибравши Перейменувати зі списку меню правого списку. Але що робити, якщо ми хочемо перейменувати робочий лист excel за допомогою макросу VBA. За допомогою макроса VBA ми можемо перейменувати один або кілька робочих аркушів Excel за один кадр. Ми навіть можемо виправити назву будь-якого робочого аркуша, щоб не змінювати когось. Тут ми побачимо кілька способів перейменування будь-якого робочого аркуша.

Як перейменувати аркуш у Excel за допомогою VBA?

Нижче наведено різні приклади перейменування аркуша в Excel за допомогою коду VBA.

Ви можете завантажити цей шаблон Excel Shema Excel Sheet Excel тут - Перейменувати шаблон Excel Sheet Excel

Перейменувати аркуш VBA - приклад №1

Хоча перейменувати будь-який робочий лист Excel за допомогою VBA дуже просто. Існує багато способів зробити це також. Тут ім'я нашого робочого аркуша за замовчуванням встановлено як "Sheet1", як показано нижче, що ми будемо перейменовувати.

Крок 1: Для цього прикладу нам знадобиться модуль, де ми будемо робити кодування. Перейдіть до меню Вставка та виберіть Модуль, як показано нижче.

Крок 2: Тепер у нещодавно відкритий Модуль напишіть підкатегорію на ім'я листа VBA Rename Sheet або в будь-якому іншому імені.

Код:

 Sub VBA_RenameSheet () Закінчення Sub

Крок 3: Тепер визначте змінну в будь-якому імені та призначте її за типами даних робочого листа, як показано нижче. Тут ми назвали це як « Лист ».

Код:

 Sub VBA_RenameSheet () Dim Sheet як лист робочого кінця Sub

Крок 4: За допомогою команди Set виберіть змінну Sheet, як показано нижче.

Код:

 Sub VBA_RenameSheet () Dim Sheet As Sheet Set Set Sheet = End Sub

Крок 5: Виберіть робочий аркуш, який нам потрібно перейменувати за допомогою команди « Лист» .

Код:

 Sub VBA_RenameSheet () Dim Sheet As Sheet Set Sheet = Worksheets ("Sheet1") Кінець Sub

Крок 6: Тепер скористайтеся функцією Sheet разом з Name і призначте ім'я, яке ми хочемо перейменувати. Тут ми обираємо " Перейменований лист ".

Код:

 Sub VBA_RenameSheet () Dim Sheet As Sheet Set Sheet = Worksheets ("Sheet1") Sheet.Name = "Перейменований лист" End Sub

Крок 7: Тепер, нарешті, складіть код і запустіть його, якщо виявлена ​​помилка. Для запуску коду натисніть кнопку Відтворити, розташовану під панеллю меню, як показано нижче. Ми побачимо, наш аркуш буде перейменований з Sheet1 у Перейменований лист, як показано нижче.

Перейменувати аркуш VBA - Приклад №2

У цьому прикладі ми побачимо набагато простіший спосіб перейменувати будь-який робочий аркуш за допомогою макросу VBA. Для цього нам знадобиться ще один свіжий модуль.

Крок 1. Відкрийте модуль і напишіть підкатегорію Перейменування VBA, як показано нижче.

Код:

 Sub VBA_RenameSheet1 () Кінець Sub

Крок 2: Виберіть таблицю, яку ми хочемо перейменувати за допомогою функції Select . Ось наш аркуш - Лист1 .

Код:

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Виберіть End Sub

Крок 3: У наступному рядку розгляньте функцію Name з обраним аркушем, як показано нижче.

Код:

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Виберіть Sheets ("Sheet1"). Name = Кінець Sub

Крок 4: Обираємо ім’я, яке ми хочемо дати після перейменування аркуша. Ми обираємо те саме ім’я, що і в прикладі-1, як " Перейменований лист "

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Виберіть Sheets ("Sheet1"). Name = "Перейменований лист" End Sub

Крок 5: Знову складіть код і запустіть його. Ми побачимо, що sheet1 буде перейменований на нову назву як " Перейменований лист ".

Перейменувати аркуш VBA - приклад №3

Знову є ще один подібний спосіб перейменувати робочий лист Excel за допомогою VBA. Це буде схоже на процес, який ми бачили в прикладі-2, але набагато простіше запам’ятати та обробити.

Крок 1: Відкрийте модуль і напишіть нову підкатегорію VBA Rename Sheet, як показано нижче.

Код:

 Sub VBA_RenameSheet2 () Кінець Sub

Крок 2: Виберіть аркуш, який ми хочемо перейменувати. Тут ми можемо вибрати аркуш, поставивши послідовність Листа в дужки, як показано нижче. Тож нам не потрібно писати ім’я Листа, щоб його перейменовували. Працює лише послідовність цього аркуша.

Код:

 Sub VBA_RenameSheet2 () Аркуші (1) .Виберіть Кінець Sub

Крок 3: У наступному рядку розгляньте функцію Name з обраною послідовністю аркушів, як показано нижче.

Код:

 Sub VBA_RenameSheet2 () Sheets (1) .Select Sheets (1) .Name = End Sub

Крок 4: Тепер введіть ім'я, яке ми хочемо дати вибраному Sheet1. Розглянемо назву, яку ми бачили у вищенаведених прикладах як " перейменований аркуш ".

Код:

 Sub VBA_RenameSheet2 () Sheets (1) .Select Sheets (1) .Name = "Перейменований лист" End Sub

Крок 5: Тепер знову скомпілюйте код і запустіть. Ми помітимо, що Sheet1 тепер знову перейменовано на "r Enamed Sheet ", як показано нижче.

Перейменувати аркуш VBA - приклад №4

У цьому прикладі ми побачимо, як перейменувати будь-який робочий аркуш лише одним рядком коду.

Крок 1. Відкрийте модуль і напишіть підкатегорію VBA Rename Sheet, як показано нижче.

Код:

 Sub VBA_RenameSheet3 () Кінець Sub

Крок 2: Виберіть послідовність аркушів, яку ми хочемо перейменувати разом із функцією Ім'я та вкажіть ім’я, за яким ми хочемо перейменувати цей аркуш, як показано нижче.

Код:

 Sub VBA_RenameSheet3 () Sheets (1) .Name = "Перейменувати аркуш" End Sub

Крок 3: Тепер просто запустіть код для його реалізації. Ми знову зауважимо, що Sheet1 тепер перейменовано на " Перейменувати Аркуш "

Плюси програми перейменування Excel VBA

  • Якщо у нас є кілька аркушів, які потрібно перейменовувати, то використання коду VBA набагато краще, ніж ручний процес.
  • Ми можемо змінити ім'я будь-якого робочого аркуша excel за допомогою рядка коду VBA, який ми бачили в прикладі-4.
  • Хоча вручну зміна назви будь-якого аркуша - це також простий спосіб зробити це. Але аркуш перейменування VBA дуже корисний, коли ми створюємо новий аркуш, і ми хочемо відокремити його з іншими аркушами просто для того, щоб класифікувати його.

Що потрібно пам’ятати

  • Для кращого огляду змін, що відбуваються, тримайте вікно VBA паралельно аркуша excel, щоб зміна назви аркуша було добре видно.
  • Збереження файлу після роботи у форматі включення макросу дозволить нам зберегти код і для подальшої роботи.
  • Автоматизація процесу зміни назви аркуша допоможе нам скоротити час категоризації аркушів та даних.

Рекомендовані статті

Це посібник із листа перейменування VBA. Тут ми обговорюємо, як перейменувати аркуш у Excel за допомогою коду VBA разом із кількома практичними прикладами та шаблоном Excel, який можна завантажити. Ви також можете ознайомитися з іншими запропонованими нами статтями -

  1. Повне керівництво по робочій книжці VBA
  2. Непряма функція в Excel
  3. Підручники з функції рахунку VBA
  4. Як використовувати функцію Excel XOR?

Категорія:

VBA