Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як створити список усіх назв робочих аркушів із книги?

Припустимо, у вас є книга з декількома аркушами, тепер ви хочете перерахувати всі імена аркушів у поточній книзі, чи існує якийсь швидкий метод для створення списку тез імен аркушів у Excel, не вводячи їх по одному? Цей підручник містить вказівки щодо переліку імен робочих аркушів у програмі Excel.


Отримайте список усіх назв робочих аркушів із книги динамічно за допомогою формул

В Excel ви можете визначити назву діапазону, а потім застосувати формулу для переліку всіх назв аркушів із поточної книги, виконайте такі дії:

1. Перейдіть до клацання Formula > Менеджер імен, див. скріншот:

2, в Менеджер імен діалогове вікно натисніть кнопку новий , див. знімок екрана:

3. В вискочив Нове ім'я діалогове вікно, вкажіть ім'я в Назва текстове поле, а потім скопіюйте наведену нижче формулу в Відноситься до текстове поле, див. знімок екрана:

=GET.WORKBOOK(1)&T(NOW())

4. Потім натисніть OK > близько щоб закрити діалогові вікна, зараз перейдіть на аркуш, де потрібно перерахувати всі назви аркушів, а потім введіть таку формулу в порожню комірку:

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

примітки: У наведеній вище формулі, Назви аркушів - це назва діапазону, який вас цікавить на кроці 3.

5. А потім перетягніть маркер заповнення вниз до комірок, коли відображаються порожні комірки, і тепер усі імена аркушів поточної книги перераховані, як показано на знімку екрана нижче:

6. Якщо ви хочете створити гіперпосилання для кожного аркуша, використовуйте формулу нижче:

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

примітки: У наведеній вище формулі, A2 - комірка, що містить ім'я аркуша, і A1 - це комірка, в якій ви бажаєте знаходити активну комірку. Наприклад, якщо клацнути текст гіперпосилання, він знайде комірку А1 аркуша.

7. Тепер, коли ви натискаєте текст гіперпосилання, ви перейдете до цього аркуша, див.

примітки:
  • 1. За допомогою наведених формул назви створених аркушів перелічуються динамічно, при зміні імені аркуша в книзі ім’я аркуша індексу буде оновлено автоматично.
  • 2. Ви повинні зберегти файл як Книга Excel з підтримкою макросів форматі, якщо ви хочете, щоб формули працювали добре після закриття та повторного відкриття файлу.

Отримайте список усіх назв робочих аркушів із книги з кодом VBA

Наступні два коди VBA можуть допомогти вам перерахувати всі імена робочого аркуша на новому аркуші. Будь ласка, зробіть так:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Натисніть Insert > Модуліта вставте наступний код у Модулі Вікно

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

Додайте CreateIndex () 'updateby Extendoffice
    Dim xAlerts As Boolean Dim I As Long Dim xShtIndex As Worksheet Dim xSht As Variant xAlerts = Application.DisplayAlerts Application.DisplayAlerts = False On Error Resume Next Sheets ("Index"). Delete On Error GoTo 0 Set xShtIndex = Sheets.Add (Sheets) (1)) xShtIndex.Name = "Індекс" I = 1 комірки (1, 1) .Value = "INDEX" Для кожного xSht у цій робочій книзі. Аркуші Якщо xSht.Name <> "Індекс" Тоді I = I + 1 xShtIndex. Гіперпосилання. Додайте комірки (I, 1), "", "'" & xSht.Name & "'! A1",, xSht.Name End If Next Application.DisplayAlerts = xAlerts End Sub

2. Потім натисніть F5 клавішу для запуску коду, і всі імена робочих аркушів в активній книзі були перераховані на новий аркуш із назвою індекс, а назви аркушів також пов’язані з кожним аркушем, див. знімок екрана:


Отримайте список усіх назв робочих аркушів із книги з корисною функцією

З Створіть список назв аркушів утиліта сторонньої надбудови Kutools для Excel, ви можете створити список назв робочих аркушів одним клацанням миші та зв’язати кожен аркуш гіперпосиланням.

Примітка:Щоб застосувати це Створіть список назв аркушів, по-перше, вам слід завантажити Kutools для Excel, а потім швидко та легко застосувати функцію.

після установки Kutools для Excel, будь ласка, зробіть так:

1. Натисніть Kutools Plus > Робочий аркуш > Створіть список назв аркушів, див. скріншот:

2, в Створіть список назв аркушів у діалоговому вікні, будь ласка, вкажіть такі налаштування:

(1.) Виберіть стилі індексу аркуша Ви можете створити назви робочого аркуша за допомогою гіперпосилань або за допомогою кнопок макросів.

(2.) Введіть назви робочого аркуша для індексу аркуша.

(3.) Вкажіть розташування індексу робочого аркуша.

(4.) Вкажіть, скільки стовпців ви хочете використовувати на новому аркуші для відображення імен аркуша.

Клацніть, щоб завантажити та отримати безкоштовну пробну версію Kutools для Excel зараз!

3. Закінчивши налаштування, натисніть OK. Усі імена робочого аркуша перелічені із посиланнями на новому аркуші поточної книги. Дивіться знімок екрана:

назви робочого аркуша з гіперпосиланнями назви робочого аркуша з кнопками макросів

Клацніть, щоб завантажити та отримати безкоштовну пробну версію Kutools для Excel зараз!


Більше відносних статей:

  • Перелічіть усі імена файлів у папці та створіть гіперпосилання для них
  • Для повсякденної роботи вам може знадобитися імпортувати кілька імен файлів з папки на робочий аркуш і створити гіперпосилання для кожного файлу, щоб швидко і легко відкривати файл. Можливо, ви можете скопіювати та вставити імена файлів і створити для них гіперпосилання по одному вручну, але це витратить багато часу, якщо в папці є сотні файлів.
  • Копіюйте або переміщуйте файли з однієї папки в іншу на основі списку
  • Якщо у вас є список імен файлів у стовпці на аркуші, а файли знаходяться в папці на вашому комп'ютері. Але тепер вам потрібно перемістити або скопіювати ці файли, імена яких вказані на аркуші, з їх вихідної папки в іншу, як показано на наступному знімку екрана. Як ви могли виконати це завдання якомога швидше в Excel?
  • Перейдіть між робочими аркушами, використовуючи випадаючий список
  • Припустимо, у вас є робоча книга, яка містить кілька робочих аркушів, тепер вам потрібно створити випадаючий список або комбіноване поле, де перелічуються всі імена аркушів, і коли ви виберете одне ім'я аркуша зі спадного списку, воно негайно перейде на цей аркуш. У цій статті я розповім, як переміщатися між аркушами за допомогою випадаючого списку в 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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Joseph Kozsuch · 3 years ago
    Thanks so much, this worked great.
  • To post as a guest, your comment is unpublished.
    Jenson · 4 years ago
    Works great!! Thank you!!!!
  • To post as a guest, your comment is unpublished.
    Edgar · 4 years ago
    sooooo helpful, works as expected!!!!! Thanks
  • To post as a guest, your comment is unpublished.
    Huntreth · 4 years ago
    THANK YOU SO MUCH! I freaking love your website. In a matter of minutes I've had a ton of time saved with two sections of this site including this one. Love it!
  • To post as a guest, your comment is unpublished.
    Jana Mentz · 4 years ago
    Hi
    I would like to know how to list the tab color next to the tab name in this macro?
    E.g. in the KutoolsforExcel sheet list:
    Column A Column B
    TabName1 Yellow
  • To post as a guest, your comment is unpublished.
    Engr Awlad · 4 years ago
    VBA code works nice to save times ever , Thanks tooooooooooooooooooooooooooooooo much
  • To post as a guest, your comment is unpublished.
    perry landau · 7 years ago
    it's great worked like charm
  • To post as a guest, your comment is unpublished.
    perry landau · 7 years ago
    the best it worked like charm
  • To post as a guest, your comment is unpublished.
    Tinman · 7 years ago
    The 'Range' step in your ListWorkSheetNames macro generates runtime error 1004: method range of object global failed. I have it saved in a PERSONAL.XLSB module, running from a macro-enabled spreadsheet in Office10. What am I missing?

    Sub ListWorkSheetNames()
    For i = 1 To Sheets.Count
    Range(”A” & i) = Sheets(i).Name
    Next i
    End Sub
  • To post as a guest, your comment is unpublished.
    Ian Alp · 7 years ago
    How to list the Sheetname of a sub WB and list them in the Main WB?
  • To post as a guest, your comment is unpublished.
    SamJ · 8 years ago
    Great - but how do I do this in Visio ie for an index of worksheets in visio?