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

Как да преименувам листове въз основа на стойности на клетки (от списък) в Excel?

Автор: Кели Последна промяна: 2023-11-17

Преименуването на един работен лист в 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 за Excel, можете бързо да преименувате всички или няколко листа въз основа на стойността на определена клетка във всеки съответен лист. Например, можете да преименувате всеки лист, за да съответства на стойността, намерена в клетка A1 на този конкретен лист.

Kutools за Excel - Снабден с над 300 основни инструмента за Excel. Насладете се на пълнофункционален 30-дневен БЕЗПЛАТЕН пробен период без кредитна карта! Изтегли сега!

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

И сега всички проверени листове се преименуват въз основа на посочената клетка на всеки лист. Вижте екранна снимка:

Забележка: Искате да получите достъп до Преименуване на множество работни листове особеност? Изтегли Kutools за Excel сега! Освен това, Kutools може да се похвали с безброй 300+ други функции и предлага 30-дневен безплатен пробен период. Не чакайте, опитайте още днес!


Преименуване на няколко листа от посочения списък

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

Kutools за Excel - Снабден с над 300 основни инструмента за Excel. Насладете се на пълнофункционален 30-дневен БЕЗПЛАТЕН пробен период без кредитна карта! Изтегли сега!

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

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

Забележка: Искате да получите достъп до Преименуване на множество работни листове особеност? Изтегли Kutools за Excel сега! Освен това, Kutools може да се похвали с безброй 300+ други функции и предлага 30-дневен безплатен пробен период. Не чакайте, опитайте още днес!


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


Kutools за Excel: Над 300 удобни инструмента на една ръка разстояние! Започнете своя 30-дневен безплатен пробен период без ограничения на функциите днес. Свали сега!

Още по темата:

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

🤖 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 (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