Прескочи на основното съдържание

Как да направя името на раздела на листа равно на стойността на клетката в Excel?

Автор: Силувия Последна промяна: 2023-01-30

В някои случаи може да се наложи да преименувате работен лист въз основа на определена стойност на клетка. В тази статия ще ви покажем методи за превръщане на името на раздела на листа равно на стойността на клетката в Excel.

Направете името на раздела на листа равно на стойността на клетката с VBA код
Направете името на раздела на листа равно на стойността на клетката с Kutools за 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 за Excel

В този раздел ви представяме Преименуване на множество работни листове полезност на Kutools за Excel. С тази помощна програма можете лесно да преименувате работни листове с определена стойност на клетка в Excel.

Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.

1. кликване Kutools плюс > Работен лист > Преименуване на множество работни листове. Вижте екранна снимка:

2. В Преименуване на множество работни листове диалогов прозорец, трябва да направите следното.

1). Проверете имената на работните листове, които искате да преименувате в Работни листове кутия (можете да изберете един лист или няколко листа).
2). Изберете Замяна на името на оригиналния лист в полето Опции за преименуване раздел.
3). Ако искате да преименувате работен лист или няколко работни листа с определена стойност на клетка, моля, изберете От определен диапазон опция и изберете диапазона от клетки, въз основа на който искате да преименувате листовете.
4). Щракнете върху OK бутон. Вижте екранна снимка:

Можете да видите, че избраните работни листове са преименувани от зададената стойност на диапазона веднага, както е показано на екранната снимка по-долу.

бележки:

1. Можете да използвате филтър функция за лесно филтриране на необходимия работен лист, ако има много работни листове.
2. Ако искате да преименувате няколко работни листа с определена стойност на клетка във всеки лист. Например sheet1 ще бъде равен на стойността на своята клетка A1, а sheet2 също ще бъде равен на стойността на своята клетка A1. Моля, изберете работни листове в Работни листове поле, след което изберете Преименувайте работни листове с конкретна клетка опция и посочете клетка A1 в полето.

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

  Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.


Направете името на раздела на листа равно на стойността на клетката с Kutools за Excel

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 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