Переименование листов в Excel выполняется с панели задач под листами, которые представлены двойным щелчком по ним, но в VBA мы используем метод свойств Sheets или Worksheet для переименования листа, синтаксис для переименования листа в VBA следующий: Sheets (« Старое имя листа »). Имя =« Имя нового листа ».
Переименовать лист в Excel VBA
Мы все выполнили эту задачу по переименованию рабочего листа в соответствии с нашей идентичностью или в соответствии с нашим удобством, не так ли? Переименование - это не ракетная наука, которую нужно освоить, но если вы кодировщик VBA, вы должны знать эту задачу переименования рабочего листа. Поскольку мы работаем с рабочими листами, используя их имена, важно знать важность имен рабочих листов в кодировании VBA. В этой статье мы покажем вам, как переименовать лист, используя кодировку Excel VBA.
Как переименовать лист в VBA?
Для изменения названия рабочего листа не требуется никаких специальных навыков. Нам просто нужно указать, какое имя листа мы меняем, введя имя существующего листа.
Например, если мы хотим переименовать лист с именем «Лист 1», нам нужно вызвать лист по его имени, используя объект Worksheet.
Рабочие листы («Лист1»)
После упоминания имени листа нам нужно выбрать свойство «Имя», чтобы переименовать имя листа.
Рабочие листы («Лист1»). Имя
Теперь нам нужно установить свойство Name на имя по нашему желанию.
Рабочие листы («Лист1»). Name = «Новое имя»
Таким образом, мы можем переименовать имя рабочего листа в VBA, используя свойство Name.
В следующих разделах статьи мы покажем вам все больше и больше примеров изменения или переименования рабочего листа.
Примеры переименования листов в Excel VBA
Ниже приведены примеры листа переименования VBA.
Вы можете скачать этот шаблон VBA Rename Sheet здесь - VBA Rename Sheet TemplateПример №1 - Изменить или переименовать лист с помощью переменных VBA.
В качестве примера посмотрите приведенный ниже пример кода.
Код:
Sub Rename_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "New Sheet" End Sub 
Сначала в приведенном выше коде я объявил переменную как Рабочий лист.
Dim Ws как рабочий лист
Затем я установил ссылку на переменную как «Sheet1», используя объект рабочих листов.
Установить Ws = Рабочие листы ("Лист1")Теперь переменная «Ws» содержит ссылку на рабочий лист «Sheet1».
Теперь, используя переменную «Ws», я переименовал рабочий лист в «Новый лист».
Этот код изменит имя «Sheet1» на «New Sheet».
Если я запустил код вручную или с помощью сочетания клавиш F5, мы снова получим ошибку Subscript Out of Range.
Причина, по которой мы получаем эту ошибку, заключается в том, что на самом предыдущем шаге мы уже изменили рабочий лист с именем «Sheet1» на «New Sheet». Поскольку имя листа «Sheet1» больше не существует, VBA выдает эту ошибку.
Пример №2 - Получить все имена рабочих листов на одном листе.
Мы можем получить все имена рабочих листов книги на одном листе. Приведенный ниже код извлечет все имена рабочих листов.
Код:
Sub Renmae_Example2 () Dim Ws As Worksheet Dim LR As Long For each Ws в ActiveWorkbook.Worksheets LR = Worksheets («Основной лист»). Cells (Rows.Count, 1) .End (xlUp) .Row + 1 Cells (LR, 1) .Select ActiveCell.Value = Ws.Name Next Ws End Sub
Этот код извлечет все доступные имена рабочих листов на лист с именем «Основной лист».
Пример # 3 - Установка постоянного имени для листа Excel с помощью VBA
Поскольку при кодировании мы работаем с именами листов, важно присвоить им постоянные имена. Как нам дать им постоянные имена?
Для примера посмотрите приведенный ниже код.
Код:
Sub Rename_Example3 () Worksheets ("Sheet1"). Выберите End Sub 
Приведенный выше код выберет Sheet1.
Если ваша книга используется многими людьми, если кто-то изменил имя рабочего листа, мы получим ошибку «Нижний индекс вне диапазона».
Чтобы избежать этого, мы можем присвоить ему постоянное имя. Чтобы установить постоянное имя, выполните следующие действия.
Шаг 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.
