VBA Rename Sheet - Как переименовать лист в Excel, используя VBA?

• Переименовать лист в Excel VBA

Переименовать лист в Excel VBA

Переименование любого листа Excel так же просто, как переименование любого файла. Это можно сделать, дважды щелкнув по имени любого листа или выбрав «Переименовать» в правом списке меню. Но что, если мы хотим переименовать лист Excel с помощью макроса VBA. С помощью VBA Macro мы можем переименовать один или несколько рабочих листов Excel за один раз. Мы даже можем исправить имя любого листа, чтобы никто не мог его изменить. Здесь мы увидим несколько способов переименования любого листа.

Как переименовать лист в Excel, используя VBA?

Ниже приведены различные примеры переименования листов в Excel с использованием кода VBA.

Вы можете скачать этот шаблон Excel для VBA Rename Sheet здесь - Шаблон для VBA Rename Sheet Excel

VBA Rename Sheet - Пример № 1

Хотя с помощью VBA очень легко переименовать любой лист Excel. Есть много способов сделать это также. Здесь имя нашего рабочего листа по умолчанию установлено как «Лист1», как показано ниже, которое мы будем переименовывать.

Шаг 1: Для этого примера нам понадобится модуль, в котором мы будем выполнять кодирование. Перейдите в меню « Вставка» и выберите « Модуль», как показано ниже.

Шаг 2: Теперь во вновь открытом модуле напишите подкатегорию на имя VBA Rename Sheet или на любое другое имя.

Код:

 Sub VBA_RenameSheet () End Sub 

Шаг 3: Теперь определите переменную для любого имени и назначьте ее с типами данных Worksheet, как показано ниже. Здесь мы назвали его « Лист ».

Код:

 Sub VBA_RenameSheet () Dim Sheet As Worksheet End Sub 

Шаг 4: С помощью команды Set выберите Sheet variable, как показано ниже.

Код:

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

Шаг 5: И выберите Рабочий лист, который нам нужно переименовать, с помощью команды Рабочий лист .

Код:

 Sub VBA_RenameSheet () Dim Sheet As Sheets Set Sheet = Worksheets ("Sheet1") End Sub 

Шаг 6: Теперь используйте функцию Sheet вместе с Name и назначьте имя, которое мы хотим переименовать. Здесь мы выбираем « Переименованный лист ».

Код:

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

Шаг 7: Теперь, наконец, скомпилируйте код и запустите его, если обнаружена ошибка. Для запуска кода нажмите на кнопку Play, расположенную под строкой меню, как показано ниже. Мы увидим, что наш лист будет переименован из Sheet1 в Renamed Sheet, как показано ниже.

VBA Rename Sheet - Пример № 2

В этом примере мы увидим гораздо более простой способ переименования любого рабочего листа с помощью макроса VBA. Для этого нам понадобится еще один свежий модуль.

Шаг 1: Откройте модуль и напишите подкатегорию VBA Rename, как показано ниже.

Код:

 Sub VBA_RenameSheet1 () End Sub 

Шаг 2: Выберите Лист, который мы хотим переименовать с помощью функции Выбрать . Здесь наш лист Sheet1 .

Код:

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

Шаг 3: В следующей строке рассмотрите функцию Name с выбранным листом, как показано ниже.

Код:

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Выберите Sheets ("Sheet1"). Name = End Sub 

Шаг 4: Выберите имя, которое мы хотим дать после переименования листа. Мы выбираем то же имя, что и в примере 1, как « Переименованный лист ».

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Выберите Sheets ("Sheet1"). Name = "Renamed Sheet" End Sub 

Шаг 5: Снова скомпилируйте код и запустите его. Мы увидим, что sheet1 будет переименован с новым именем как « Renamed Sheet ».

VBA Rename Sheet - Пример № 3

Существует еще один аналогичный способ переименования листа Excel с помощью VBA. Это выглядело бы немного похожим на процесс, который мы видели в примере 2, но намного легче запомнить и обработать.

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

Код:

 Sub VBA_RenameSheet2 () End Sub 

Шаг 2: Выберите лист, который мы хотим переименовать. Здесь мы можем выбрать лист, поместив последовательность листов в скобки, как показано ниже. Таким образом, нам не нужно писать имя листа для переименования. Только последовательность этого листа будет работать.

Код:

 Sub VBA_RenameSheet2 () Sheets (1). Выберите End Sub 

Шаг 3: В следующей строке рассмотрите функцию Name с выбранной последовательностью листов, как показано ниже.

Код:

 Sub VBA_RenameSheet2 () Sheets (1). Выбрать Sheets (1) .Name = End Sub 

Шаг 4: Теперь введите имя, которое мы хотим дать выбранному Листу1. Давайте рассмотрим имя, которое мы видели в приведенных выше примерах, как « переименованный лист ».

Код:

 Sub VBA_RenameSheet2 () Sheets (1). Выбрать Sheets (1) .Name = "renamed Sheet" End Sub 

Шаг 5: Теперь снова скомпилируйте код и запустите. Мы заметим, что Sheet1 теперь снова переименован в «r enamed Sheet », как показано ниже.

VBA Rename Sheet - Пример № 4

В этом примере мы увидим, как переименовать любой лист с помощью только одной строки кода.

Шаг 1: Откройте модуль и напишите подкатегорию VBA Rename Sheet, как показано ниже.

Код:

 Sub VBA_RenameSheet3 () End Sub 

Шаг 2: Выберите последовательность листов, которую мы хотим переименовать вместе с функцией Name, и дайте имя, по которому мы хотим переименовать этот лист, как показано ниже.

Код:

 Sub VBA_RenameSheet3 () Sheets (1) .Name = "переименовать лист" End Sub 

Шаг 3: Теперь просто запустите код для его реализации. Мы снова заметим, что Sheet1 теперь переименован в « rename Sheet »

Плюсы Excel VBA Переименовать Лист

• Если у нас есть несколько листов, которые нужно переименовать, тогда использование кода VBA намного лучше, чем ручной процесс.
• Мы можем изменить имя любого рабочего листа Excel одной строкой кода VBA, который мы видели в примере 4.
• Хотя изменение названия любого листа вручную также является простым способом сделать это. Но VBA Rename Sheet весьма полезна, когда мы создаем новый лист, и мы хотим отделить его от других листов, чтобы классифицировать его.

То, что нужно запомнить

• Чтобы получить лучшее представление о происходящих изменениях, держите окно VBA параллельно листу Excel, чтобы изменение имени листа было ясно видно.
• Сохранение файла после выполнения работы в формате Macro enable позволит нам сохранить код и для дальнейшей работы.
• Автоматизация процесса изменения имени листа поможет нам сократить время классификации листов и данных.

Рекомендуемые статьи

Это руководство к VBA Rename Sheet. Здесь мы обсудим, как переименовать лист в Excel, используя код VBA, а также несколько практических примеров и загружаемый шаблон Excel. Вы также можете просмотреть наши другие предлагаемые статьи -

1. Полное руководство по VBA Workbook
2. НЕПРАВИЛЬНАЯ функция в Excel
3. Учебники по функции подсчета VBA
4. Как использовать функцию Excel XOR?