Перейти до основного матеріалу

Як перейменувати аркуші на основі значень комірок (зі списку) в 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 для Excel, ви можете швидко перейменувати всі або кілька аркушів на основі значення вказаної клітинки на кожному відповідному аркуші. Наприклад, ви можете перейменувати кожен аркуш відповідно до значення в комірці A1 цього конкретного аркуша.

Kutools для Excel - Містить понад 300 основних інструментів для Excel. Насолоджуйтесь повнофункціональною 30-денною БЕЗКОШТОВНОЮ пробною версією без кредитної картки! Скачати зараз!

  1. Натисніть Kutools Plus > Робочий аркуш > Перейменувати робочі аркуші. Дивіться знімок екрана:
  2. На відкритті Перейменуйте кілька робочих аркушів діалогове вікно, будь-ласка, зробіть наступне:
    1. У Робочі таблиці список, позначте аркуші, які ви перейменуєте.
    2. У Параметри перейменування розділ перевірити Замініть оригінальну назву аркуша варіант.
    3. У Нова назва робочого аркуша розділ, будь ласка, перевірте Перейменуйте робочі аркуші з певною коміркою і вкажіть клітинку, вміст якої ви перейменуєте на відповідний аркуш.
    4. Натисніть Ok кнопки.

І тепер усі позначені аркуші перейменовані на основі вказаної клітинки кожного аркуша. Перегляньте скріншот:

Примітка: Хочете отримати доступ до Перейменуйте кілька робочих аркушів функція? Завантажити Kutools для Excel зараз! Окрім цього, Kutools може похвалитися безліччю понад 300 інших функцій і пропонує 30-денну безкоштовну пробну версію. Не чекайте, спробуйте вже сьогодні!


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

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

Kutools для Excel - Містить понад 300 основних інструментів для Excel. Насолоджуйтесь повнофункціональною 30-денною БЕЗКОШТОВНОЮ пробною версією без кредитної картки! Скачати зараз!

  1. Натисніть Kutools Plus > Робочий аркуш > Перейменувати робочі аркуші.
  2. На відкритті Перейменуйте кілька робочих аркушів діалогове вікно, налаштуйте наступним чином:
    1. У Робочі таблиці виберіть робочі аркуші, які потрібно перейменувати.
    2. У Параметри перейменування розділ перевірити Замініть оригінальну назву аркуша варіант.
    3. У Нова назва робочого аркуша розділ перевірити Від конкретного діапазону та натисніть кнопку  кнопку, щоб відкрити другий Перейменуйте кілька робочих аркушів діалогове вікно (див. знімок екрана праворуч). Потім виберіть список клітинок, які ви перейменуєте за їхніми значеннями, і натисніть кнопку OK кнопки.
    4. Натисніть Ok , щоб застосувати перейменування.

Тоді ви побачите, що назви всіх позначених аркушів замінено значеннями клітинок у вказаному списку. Дивіться знімок екрана нижче:

Примітка: Хочете отримати доступ до Перейменуйте кілька робочих аркушів функція? Завантажити Kutools для Excel зараз! Окрім цього, Kutools може похвалитися безліччю понад 300 інших функцій і пропонує 30-денну безкоштовну пробну версію. Не чекайте, спробуйте вже сьогодні!


Демонстрація: аркуші імен на основі значень комірок (зі списку) в Excel


Kutools для Excel: понад 300 зручних інструментів у вас під рукою! Почніть 30-денну безкоштовну пробну версію без обмежень функцій сьогодні. Завантажити зараз!

Статті по темі:

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички 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