Перейти к основному содержанию

Как переименовать листы на основе значений ячеек (из списка) в Excel?

Переименование одного листа в Excel обычно выполняется путем щелчка правой кнопкой мыши по вкладке листа и выбора «Переименовать» в контекстном меню. Однако если вам нужно переименовать несколько листов, используя значения из указанных ячеек, или вы хотите динамически назвать лист на основе значения определенной ячейки, вы можете использовать несколько методов. Эта статья познакомит вас с этими методами, сделав процесс простым и эффективным.


Динамически переименовывать лист из значения ячейки с помощью VBA

Мы можем динамически переименовывать лист по значению определенной ячейки с помощью VBA в Excel, и вы можете сделать следующее:

Шаг 1: Щелкните правой кнопкой мыши имя листа, которому вы динамически назовете его по значению ячейки, и выберите Просмотреть код из контекстного меню.

Шаг 2: В открытии Microsoft Visual Basic для приложений окно, вставьте следующий код VBA в окно модуля.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

Наконечник: Этот VBA динамически переименовывает лист на основе значения в ячейке A1. Вы можете изменить «A1» на другие ячейки в соответствии с вашими потребностями.

Шаг 3: Сохраните код VBA и закройте Microsoft Visual Basic для приложений окно.

Затем вы увидите, что имя листа динамически изменяется в зависимости от указанного значения ячейки.

Ноты:

  • Если указанная ячейка пуста, лист не будет переименован.
  • Рабочий лист будет переименовываться каждый раз, когда вы меняете значение в указанной ячейке.
  • Если вы введете в указанную ячейку специальные символы, например *, появится всплывающее предупреждение об ошибке.

Переименуйте несколько листов на основе значений ячеек на соответствующих листах.

Описанный выше метод позволяет переименовывать по одному листу за раз. Однако, используя Переименовать несколько листов особенность Kutools for Excel, вы можете быстро переименовать все или несколько листов на основе значения указанной ячейки на каждом соответствующем листе. Например, вы можете переименовать каждый лист, чтобы он соответствовал значению, найденному в ячейке A1 этого конкретного листа.

Kutools for Excel - Содержит более 300 основных инструментов для Excel. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Скачать сейчас!

  1. Нажмите Кутулс Плюс > Рабочий лист > Переименовать листы. Смотрите скриншот:
  2. В открытии Переименовать несколько листов диалоговое окно, сделайте следующее:
    1. В Worksheets список, проверьте листы, которые вы переименуете.
    2. В Параметры переименования раздел, проверьте Заменить исходное имя листа опцию.
    3. В Имя нового рабочего листа раздел, пожалуйста, проверьте Переименовать листы с определенной ячейкой и укажите ячейку, содержимое которой вы переименуете соответствующий лист.
    4. Нажмите Ok .

И теперь все отмеченные листы переименовываются на основе указанной ячейки каждого листа. Смотрите скриншот:

Примечание: Хотите получить доступ к Переименовать несколько листов особенность? Скачать Kutools for Excel сейчас! Помимо этого, Kutools может похвастаться множеством других функций и предлагает 300-дневную бесплатную пробную версию. Не ждите, попробуйте сегодня!


Переименовать несколько листов из указанного списка

Kutools для Excel Переименовать несколько листов функция также поддерживает переименование нескольких листов на основе значений ячеек в указанном списке.

Kutools for Excel - Содержит более 300 основных инструментов для Excel. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Скачать сейчас!

  1. Нажмите Кутулс Плюс > Рабочий лист > Переименовать листы.
  2. В открытии Переименовать несколько листов диалоговом окне настройте следующим образом:
    1. В Worksheets выберите листы, которые вы переименуете.
    2. В Параметры переименования раздел, проверьте Заменить исходное имя листа опцию.
    3. В Имя нового рабочего листа раздел, проверьте Из определенного диапазона и нажмите  кнопка открытия второго Переименовать несколько листов диалоговое окно (см. скриншот справа). Затем выберите список ячеек, которые вы переименуете по их значениям, и нажмите кнопку OK .
    4. Нажмите Ok кнопку, чтобы применить переименование.

Затем вы увидите, что имена всех проверенных листов заменяются значениями ячеек в указанном списке. См. скриншот ниже:

Примечание: Хотите получить доступ к Переименовать несколько листов особенность? Скачать Kutools for Excel сейчас! Помимо этого, Kutools может похвастаться множеством других функций и предлагает 300-дневную бесплатную пробную версию. Не ждите, попробуйте сегодня!


Демонстрация: имена листов на основе значений ячеек (из списка) в Excel


Kutools for Excel: Более 300 удобных инструментов у вас под рукой! Начните 30-дневную бесплатную пробную версию без ограничений сегодня. Скачать

Статьи по теме:

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there, one question if i want to use the value of 2 cells (A1 & B1) what i have to change?
This comment was minimized by the moderator on the site
Hi there,

Please try the code below:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sheetName As String
    
    If Not Intersect(Target, Me.Range("A1:B1")) Is Nothing Then
        sheetName = VBA.Left(Me.Range("A1").Value & Me.Range("B1").Value, 31)
        
        If sheetName <> "" Then
            Application.ActiveSheet.Name = sheetName
        End If
    End If
End Sub

Once you done pasting the code to the View Code window, please select the cell A1 or B1 to make the code run.

Amanda
This comment was minimized by the moderator on the site
Здравствуйте! Подскажите, пожалуйста, а как в Excel создать левую панель, в которой разместить названия листов? То есть перенести ярлыки листов влево (сейчас то они снизу)
This comment was minimized by the moderator on the site
This comment was minimized by the moderator on the site
I used the dynamic sheet name coding and functionally it works well, but I get the Runtime Error 1004 whenever I click inside a cell. Anyone have any info on how to correct this?


Thanks
This comment was minimized by the moderator on the site
This is awesome, thank you so much....
This comment was minimized by the moderator on the site
so I am trying to do this, but nothing is happening - my sheet names aren't changing, everything is the exact same. Do you know what I am doing wrong??
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations