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

Как сделать имя вкладки листа равным значению ячейки в Excel?

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

Сделайте имя вкладки листа равным значению ячейки с кодом VBA
Сделайте имя вкладки листа равным значению ячейки с помощью Kutools for Excel


Сделайте имя вкладки листа равным значению ячейки с кодом VBA

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

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

2. Скопируйте и вставьте приведенный ниже код в окно кода, а затем нажмите другой + Q одновременно нажмите клавиши, чтобы закрыть окно Microsoft Visual Basic для приложений.

Код VBA: сделать вкладку листа равной значению ячейки

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub

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

С этого момента, когда значение в ячейке A1 изменится, имя вкладки листа также изменится.


Сделайте имя вкладки листа равным значению ячейки с помощью Kutools for Excel

В этом разделе мы познакомим вас с Переименовать несколько листов полезности Kutools for Excel. С помощью этой утилиты вы можете легко переименовывать листы с определенным значением ячейки в Excel.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Нажмите Кутулс Плюс > Рабочий лист > Переименовать несколько листов. Смотрите скриншот:

2. в Переименовать несколько листов В диалоговом окне необходимо сделать следующее.

1). Отметьте имена листов, которые вы хотите переименовать, в Worksheets поле (можно выбрать один лист или несколько листов).
2). Выбрать Заменить исходное имя листа коробка в Параметры переименования .
3). Если вы хотите переименовать рабочий лист или несколько рабочих листов с указанным значением ячейки, выберите Из определенного диапазона вариант и выберите диапазон ячеек, на основе которого вы хотите переименовать листы.
4). Щелкните значок OK кнопка. Смотрите скриншот:

Вы можете видеть, что выбранные листы сразу переименовываются по указанному значению диапазона, как показано ниже.

Заметки:

1. Вы можете использовать ФИЛЬТР функция, чтобы легко отфильтровать необходимый рабочий лист, если существует много рабочих листов.
2. Если вы хотите переименовать несколько листов с определенным значением ячейки на каждом листе. Например, sheet1 будет равен значению своей ячейки A1, а sheet2 также будет равен значению своей ячейки A1. Пожалуйста, выберите рабочие листы в Worksheets поле, затем выберите Переименовать листы с определенной ячейкой вариант и укажите ячейку A1 в поле.

3. Имя листа не будет изменяться автоматически при изменении значения ячейки.

  Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.


Сделайте имя вкладки листа равным значению ячейки с помощью Kutools for Excel

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

🤖 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 (30)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Good
It was the same thing I was looking for. But now I have a question:
After these steps were done, I created several sheets, I locked the sheet, but when I lock the book and enter a value in the cell, the name of the sheet does not change. In other words, it only changes with the spreadsheet unlocked and I would like to keep the spreadsheet locked
This comment was minimized by the moderator on the site
Boas
Era mesmo isto que estava a procurar. Mas agora tenho uma questão:
Após esses passos feitos, criei várias sheet, bloqueei a folha, mas quando bloqueio o livro e digito um valor na célula, o nome da sheet não muda. Ou seja, só muda com a sheet desbloqueada e gostaria de manter a sheet bloqueada
This comment was minimized by the moderator on the site
bonjour,
que voulez-vous dire par appuyer autre autre+q dans le code vba après avoir collé.
J'ai simplement fermé la page après avoir collé et ça ne marche pas
merci
This comment was minimized by the moderator on the site
worked beautifully!
This comment was minimized by the moderator on the site
Hi Crystal,

When i paste in your code it comes back with error "user-defined type not defined"?

Thanks.
This comment was minimized by the moderator on the site
Hi Tom J,
Make sure these three options are checked in the References - VBAProject dialog box.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/error.png
This comment was minimized by the moderator on the site
This worked perfectly for my first worksheet, but not for the second or third etc (I have up to about 20 worksheets that all need this function). Am I missing something?
This comment was minimized by the moderator on the site
Hi A Owen,
This code only works for one worksheet per time. Sorry for the inconvenience.
This comment was minimized by the moderator on the site
What is the highest nr of worksheets, that can be changed names via Kutools Plus? because the excel letting me only 17 names to changes, and that's it
This comment was minimized by the moderator on the site
I'm using your exact code from the above for VBA code which works perfectly for what I need. However, I have a bunch of macros on a sheet called Job Template that gets copied and reused for every new job. I designed all my macros based on a new copied version called Job Template (2). Once the sheet name is changed to the new job name, the macros no longer work and have to manually do it. I would like to be able to use any of my Macro buttons at any point instead of only using them before I change the sheet name.

Is there a way for the VBA code to always refer to the sheet name before running the rest of the code functions?
This comment was minimized by the moderator on the site
How can I reference two cells. for example name and id number?
This comment was minimized by the moderator on the site
This is exactly what I need, but I need the tab to recreate a date and it isn't working... I assume this is something to do with the way excel works out date and time, can anyone suggest a workaround?
This comment was minimized by the moderator on the site
Hi Nick,
Excel does not support typing the sheet name containing special characters. If the date you type contains the character /, it won't allow you to create the sheet name with that date.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations