Перейменування аркушів у excel виконується з панелі завдань під аркушами, присутніми подвійне клацання на них, але у VBA ми використовуємо метод властивостей Таблиці або Робочий аркуш для перейменування аркуша, синтаксис для перейменування аркуша у VBA виглядає так Аркуші (“ Назва старого аркуша "). Name =" Нова назва аркуша ".
Перейменувати аркуш у Excel VBA
Ми всі зробили це завдання, перейменувавши аркуш відповідно до нашої особистості чи відповідно до нашої зручності, чи не так? Перейменування - це не ракетна наука, якою потрібно оволодіти, але якщо ви кодер VBA, ви, мабуть, знаєте це завдання перейменування робочого аркуша. Оскільки ми працюємо з аркушами, використовуючи їх імена, важливо знати важливість імен аркушів у кодуванні VBA. У цій статті ми покажемо, як перейменувати аркуш за допомогою кодування Excel VBA.
Як перейменувати аркуш у VBA?
Зміна назви робочого аркуша не потребує особливих навичок. Нам просто потрібно вказати, яку назву аркуша ми змінюємо, ввівши існуючу назву аркуша.
Наприклад, якщо ми хочемо перейменувати аркуш, названий як “Аркуш 1”, нам потрібно викликати аркуш за його назвою за допомогою об’єкта “Робочий аркуш”.
Робочі аркуші (“Аркуш1”)
Після згадування назви аркуша нам потрібно вибрати властивість “Name”, щоб перейменувати ім’я робочого аркуша.
Робочі аркуші (“Аркуш1”). Назва
Тепер нам потрібно встановити для властивості Name ім’я відповідно до нашого бажання.
Робочі аркуші (“Аркуш1”). Name = “New Name”
Подібно до цього, ми можемо перейменувати ім’я робочого аркуша у VBA, використовуючи властивість Name.
У наступних розділах статті ми покажемо вам дедалі більше прикладів зміни чи перейменування робочого аркуша.
Приклади перейменування робочих аркушів у Excel VBA
Нижче наведено приклади аркуша перейменування VBA.
Ви можете завантажити цей шаблон перейменування аркуша VBA тут - Шаблон аркуша перейменування VBAПриклад №1 - Змінення або перейменування аркуша за допомогою змінних VBA.
Для прикладу перегляньте наведений нижче зразок коду.
Код:
Sub Rename_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "New Sheet" End Sub 
У наведеному вище коді спочатку я оголосив змінну як Worksheet.
Приглушити Ws як робочий аркуш
Далі я встановив посилання на змінну як “Sheet1” за допомогою об’єкта Worksheets.
Встановити Ws = робочі аркуші ("Аркуш1")Тепер змінна “Ws” містить посилання на аркуш “Аркуш1”.
Тепер, використовуючи змінну “Ws”, я перейменував робочий аркуш у “Новий аркуш”.
Цей код змінить назву “Sheet1” на “New Sheet”.
Якщо я запустив код вручну або за допомогою комбінації клавіш F5, тоді ми знову отримаємо помилку Subscript Out of Range.
Причина, по якій ми отримуємо цю помилку, оскільки на самому попередньому кроці ми вже змінили аркуш із назвою “Sheet1” на “New Sheet”. Оскільки назва робочого аркуша “Аркуш1” більше не доступна, VBA видає цю помилку.
Приклад №2 - Отримати всі імена робочих аркушів в одному аркуші.
Ми можемо отримати всі назви робочих аркушів книги в одному аркуші. Наведений нижче код витягне всі назви робочого аркуша.
Код:
Sub Renmae_Example2 () Dim Ws as Worksheet Dim LR as long for each Ws in ActiveWorkbook.Worksheets LR = Worksheets ("Main Sheet"). Cell (Rows.Count, 1) .End (xlUp) .Row + 1 Cells (LR, 1) .Виберіть ActiveCell.Value = Ws.Name Далі Ws End Sub 
Цей код витягне всі наявні імена робочих аркушів на аркуш із назвою «Основний аркуш».
Приклад №3 - Встановіть постійне ім’я на аркуші Excel за допомогою VBA
Оскільки під час кодування ми працюємо з іменами аркушів, важливо встановити для них постійні імена. Як ми встановлюємо для них постійні імена?
Для прикладу перегляньте наведений нижче код.
Код:
Sub Rename_Example3 () Worksheets ("Sheet1"). Виберіть End Sub 
Наведений вище код вибере Аркуш1.
Якщо вашою книгою користується багато людей, якщо хтось змінив назву робочого аркуша, ми отримаємо помилку Індексу поза діапазоном.
Щоб уникнути цього, ми можемо встановити для нього постійне ім’я. Щоб встановити постійне ім'я, виконайте наведені нижче дії.
Крок 1: Виберіть аркуш, який нам потрібен для встановлення постійного імені, у редакторі Visual Basic.
Крок 2: Натисніть клавішу F4, щоб побачити вікно Властивості.
Крок 3: У розділі Ім'я, Властивість змініть назву на “Нова назва”.
As you can see one name is showing as “Sheet1” and in a bracket, we can see the new name as “New Sheet”.
Now in coding, we will use the new name instead of an actual visible name.
Code:
Sub Rename_Example3() NewSheet.Select End Sub
Now come back to the worksheet window, we can still see the sheet name as “Sheet1” only.
Now I will change the sheet name to “Sales”.
If I run the code using the F5 key or manually then it will still select the sheet named “Sales” only. Since we had given a permanent name to it, still it will select the same sheet only.
