Note: The other languages of the website are Google-translated. Back to English

Як зробити назву вкладки аркуша рівною значенню комірки в Excel?

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

Зробіть ім’я вкладки аркуша рівним значенню комірки за допомогою коду VBA
Зробіть назву вкладки аркуша рівною значенню комірки за допомогою Kutools для Excel


Зробіть ім’я вкладки аркуша рівним значенню комірки за допомогою коду VBA

За допомогою наступного коду VBA ви можете автоматично зробити ім’я вкладки аркуша рівним значенню комірки.

1. Клацніть правою кнопкою миші вкладку аркуша, для якої потрібно зробити назву аркуша рівною значенню комірки, а потім натисніть Переглянути код з меню правої клавіші миші. Дивіться знімок екрана:

2. Скопіюйте та вставте код нижче у вікно Код, а потім натисніть інший + Q одночасно, щоб закрити вікно Microsoft Visual Basic for Applications.

Код VBA: Зробіть вкладку аркуша рівною значенню комірки

Private Sub Worksheet_Change(ByVal Target As Range)
	If Not Intersect(Target, Range("A1")) Is Nothing Then
		ActiveSheet.Name = ActiveSheet.Range("A1")
	End If
End Sub

примітки: У коді А1 - це комірка, яка містить значення, яке потрібно використовувати як назву аркуша. Ви можете змінити його, як вам потрібно.

Відтепер, коли значення в комірці A1 змінилося, ім'я вкладки аркуша буде також змінюватися однаково.


Зробіть назву вкладки аркуша рівною значенню комірки за допомогою Kutools для Excel

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

Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.

1. клацання Kutools Plus > Робочий аркуш > Перейменуйте кілька робочих аркушів. Дивіться знімок екрана:

2 В Перейменуйте кілька робочих аркушів діалогове вікно, потрібно зробити наступне.

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

Ви можете побачити, що вибрані робочі аркуші перейменовані на вказане значення діапазону відразу, як показано на знімку екрана.

примітки:

1. Ви можете використовувати фільтр функція, щоб легко відфільтрувати необхідний аркуш, якщо існує багато аркушів.
2. Якщо ви хочете перейменувати кілька аркушів із певним значенням комірки на кожному аркуші. Наприклад, sheet1 буде дорівнювати значенню своєї комірки A1, а sheet2 також буде дорівнювати значенню своєї комірки A1. Виберіть робочі аркуші в Робочі таблиці , а потім виберіть Перейменуйте робочі аркуші з певною коміркою і в полі вкажіть комірку A1.

3. Ім'я аркуша не буде автоматично змінюватися зі зміною значення комірки.

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї утиліти, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.


Зробіть назву вкладки аркуша рівною значенню комірки за допомогою Kutools для Excel


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

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (19)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Я вставив це відповідно до інструкцій, але він не з’явився в моєму списку доступних макросів. Я спробував запустити його вручну, ввівши ім’я макросу. Коли він спробував запустити макрос, з’явилося повідомлення про помилку «Аргумент не обов’язковий».

Приватний допоміжний робочий лист_Change(ByVal Target As Range)
Якщо не перетинається (ціль, діапазон ("A1")) - це нічого
ActiveSheet.Name = ActiveSheet.Range("A1")
End If
End Sub

Хтось ще запускав цей код і мав таку ж проблему?

У якості тесту я запустив більш базовий код, і він працював нормально, тому значення в "A1" не викликає проблеми. Коли я запускаю наведений нижче код, я бачу ім’я макросу «myTabName» у списку макросів. Наведений вище код не відображається, і я припускаю, що це через помилку/відсутній аргумент.

Sub myTabName()
ActiveSheet.Name = ActiveSheet.Range("A1")
End Sub

Дякую за вашу допомогу, оскільки я дуже хотів би використовувати код, призначений для автоматизації зміни назви вкладок на основі значення комірки.
Jason
Цей коментар був мінімізований модератором на сайті
Шановний Джейсон,
У моєму випадку код працює добре. Надайте, будь ласка, свою версію Office? Дякуємо за коментар.
кристал
Цей коментар був мінімізований модератором на сайті
Я змушую цей код працювати, але він не оновлює автоматично назву вкладки, коли клітинка витягує назву, якщо посилається на іншу клітинку (і ця клітинка змінюється).


Тобто я змінюю клітинку в основному списку, що змінює текст клітинки в конкретній комірці на кожній вкладці, на яку код посилається як на назву вкладки, АЛЕ вкладка не оновлює свою назву відповідно.
jJJ
Цей коментар був мінімізований модератором на сайті
Добрий день,
Наступний код VBA може вирішити вашу проблему. Дякую за ваш коментар1

Приватний допоміжний робочий лист_Change(ByVal Target As Range)
Dim xRg як діапазон, xCell як діапазон
On Error Resume Next
Якщо не перетинається (ціль, діапазон ("A1")) - це нічого
ActiveSheet.Name = ActiveSheet.Range("A1")
End If
Application.EnableEvents = False
Встановіть xRg = ActiveSheet.Range("A1").Прецеденти
Якщо ні, то xRg – це нічого
Для кожного xCell In xRg
ActiveSheet.Name = ActiveSheet.Range("A1")
Далі
End If
Application.EnableEvents = True
End Sub
кристал
Цей коментар був мінімізований модератором на сайті
Все ще не працює. У мене та ж проблема, що й у jJJ. crystal: Чи весь код показаний у вашій відповіді?
Останній рядок, показаний у вашому коментарі: "Set xRg = ActiveSheet.Range("A1").Precedents"
JAS
Цей коментар був мінімізований модератором на сайті
Шановний JAS!
Будь ласка, натисніть кнопку «Докладніше» праворуч від коментаря, щоб відобразити весь коментар.
кристал
Цей коментар був мінімізований модератором на сайті
Все ще та сама проблема.

У мене A1 нового аркуша вказує на іншу клітинку в іншій вкладці. Він оновлюється в перший раз (коли ви виконуєте), але потім без змін під час редагування головної комірки
Alex
Цей коментар був мінімізований модератором на сайті
Приватний додатковий аркуш_SelectionChange(ByVal Target As Excel.Range)
Встановити ціль = діапазон ("A1")
Якщо Target = "" Вийдіть із Sub
Помилка GoTo Badname
ActiveSheet.Name = Ліворуч (Ціль, 31)
Exit Sub
Погане ім'я:
MsgBox "Будь ласка, перегляньте запис у форматі A1." & Chr(13) _
& "Здається, він містить один або кілька " & Chr(13) _
& "незаконні символи". & Chr(13)
Діапазон ("A1"). Активувати
End Sub
Rj
Цей коментар був мінімізований модератором на сайті
Мені потрібно використати цей код, але я ніколи раніше не вводив код vba. Буду вдячний за будь-які вказівки.
Джон Хаммондс
Цей коментар був мінімізований модератором на сайті
Я змінюю клітинку в основному списку, що змінює текст комірки в певній клітинці на кожній вкладці, на яку код посилається як ім’я вкладки, АЛЕ вкладка не оновлює свою назву відповідно.

---- це не робота
NOOR
Цей коментар був мінімізований модератором на сайті
Я отримав весь код, і він працював. Щиро дякую за допомогу!
JAS
Цей коментар був мінімізований модератором на сайті
Шановний JAS!
Я радий, що зміг допомогти.
кристал
Цей коментар був мінімізований модератором на сайті
Ви можете використовувати простий макрос



Підмакрос3()
Індекс затемнення як ціле число
Для індексу = від 1 до 18

Аркуші(індекс).Назва = Аркуші(індекс).Діапазон("A2").Значення

Наступний індекс



End Sub
Ніланджан Пал
Цей коментар був мінімізований модератором на сайті
Хороший день,
Дякую, що поділились.
кристал
Цей коментар був мінімізований модератором на сайті
Це саме те, що мені потрібно, але мені потрібна вкладка, щоб відтворити дату, і вона не працює... Я припускаю, що це пов’язано з тим, як Excel визначає дату та час, чи може хтось запропонувати обхідний шлях?
NickP84
Цей коментар був мінімізований модератором на сайті
Привіт Нік,
Excel не підтримує введення імені аркуша, що містить спеціальні символи. Якщо введена вами дата містить символ /, це не дозволить вам створити назву аркуша з цією датою.
кристал
Цей коментар був мінімізований модератором на сайті
Як я можу посилатися на дві клітинки. наприклад ім'я та ідентифікаційний номер?
Дан
Цей коментар був мінімізований модератором на сайті
Я використовую ваш точний код із вищезазначеного для коду VBA, який ідеально підходить для того, що мені потрібно. Однак у мене є купа макросів на аркуші під назвою Job Template, який копіюється та повторно використовується для кожного нового завдання. Я розробив усі свої макроси на основі нової скопійованої версії під назвою Job Template (2). Після того, як ім’я аркуша змінено на нове ім’я завдання, макроси більше не працюють, і їх доведеться виконувати вручну. Я хотів би мати можливість використовувати будь-яку зі своїх кнопок макросу в будь-який момент замість того, щоб використовувати їх лише перед зміною імені аркуша.

Чи існує спосіб, щоб код VBA завжди посилався на назву аркуша перед запуском інших функцій коду?
Скотт Келлер
Цей коментар був мінімізований модератором на сайті
Яка найбільша кількість аркушів, назви яких можна змінити за допомогою Kutools Plus? тому що Excel дозволив мені змінити лише 17 імен, і все
Remi
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0  Персонажі
Рекомендовані місця