Как создать список всех имен рабочих листов из книги?
Предположим, у вас есть книга с несколькими листами, и теперь вы хотите перечислить все имена листов в текущей книге. Есть ли какой-нибудь быстрый способ создать список имен этих листов в Excel, не вводя их один за другим? В этом руководстве приведены инструкции о том, как составить список имен листов в Excel.
Получите список всех имен рабочих листов из книги динамически с формулами
Получите список всех имен рабочих листов из книги с полезной функцией
Получите список всех имен рабочих листов из книги с кодом VBA
Получите список всех имен рабочих листов из книги динамически с формулами
В Excel вы можете определить имя диапазона, а затем применить формулу для перечисления всех имен листов из текущей книги, выполните следующие действия:
1. Перейти к щелчку Формула > Менеджер имен, см. снимок экрана:
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 - это ячейка, в которой вы хотите разместить активную ячейку. Например, если вы щелкните текст гиперссылки, он найдет ячейку A1 листа.
7. Теперь, когда вы щелкните текст гиперссылки, вы перейдете на этот лист, см. Демонстрацию ниже:
- 1. С помощью приведенных выше формул имена созданных листов отображаются динамически, при изменении имени листа в книге имя индексного листа будет обновлено автоматически.
- 2. Вы должны сохранить файл как Excel Macro-Enabled Workbook формат, если вы хотите, чтобы формулы работали нормально после закрытия и повторного открытия файла.
Получите список всех имен рабочих листов из книги с полезной функцией
Для Создать список имен листов утилита сторонней надстройки Kutools for Excel, вы можете создать список имен рабочих листов одним щелчком мыши и связать каждый рабочий лист гиперссылкой.
После установки Kutools for Excel, пожалуйста, сделайте так:
1. Нажмите Кутулс Плюс > Рабочий лист > Создать список имен листов, см. снимок экрана:
2. В Создать список имен листов диалоговом окне укажите следующие параметры:
(1.) Выберите стили индексации листов Вы можете создавать имена рабочих листов с помощью гиперссылок или макросов. (2.) Введите имена рабочих листов для указателя листов. (3.) Укажите расположение индекса рабочего листа. (4.) Укажите, сколько столбцов вы хотите использовать в новом листе для отображения имен листов. |
3. После завершения настроек нажмите OK. Все имена рабочих листов перечислены со ссылками на новом листе текущей книги. Смотрите скриншот:
имена рабочих листов с гиперссылками | имена рабочих листов с кнопками макросов |
Получите список всех имен рабочих листов из книги с кодом VBA
1. Удерживайте ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули, и вставьте следующий макрос в Модули Окно.
VBA: перечислите все имена рабочих листов с гиперссылками на новом листе:
Sub 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 = "Index"
I = 1
Cells(1, 1).Value = "INDEX"
For Each xSht In ThisWorkbook.Sheets
If xSht.Name <> "Index" Then
I = I + 1
xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
End If
Next
Application.DisplayAlerts = xAlerts
End Sub
3, нажмите F5 ключ для запуска этого макроса. Теперь все имена листов в активной книге перечислены на новом листе под названием «Индекс», и имена листов также связаны с каждым листом, см. снимок экрана:
Статьи по теме
Перечислить все имена файлов в папке и создать для них гиперссылки
Для повседневной работы вам может потребоваться импортировать несколько имен файлов из папки на рабочий лист и создать гиперссылки для каждого файла, чтобы файл открывался легко и быстро. Возможно, вы можете скопировать и вставить имена файлов и создать для них гиперссылки по одному вручную, но это потратит много времени, если в папке есть сотни файлов.
Копирование или перемещение файлов из одной папки в другую на основе списка
Если у вас есть список имен файлов в столбце на листе, и файлы находятся в папке на вашем компьютере. Но теперь вам нужно переместить или скопировать эти файлы, имена которых указаны на листе, из их исходной папки в другую, как показано на следующем снимке экрана. Как вы могли выполнить эту задачу так быстро, как вы можете в Excel?
Получить список имен листов в Google Таблицах
В этой статье я расскажу о некоторых методах получения имени текущего имени листа или списка имен листов в таблицах Google.
Перемещение между листами с помощью раскрывающегося списка
Предположим, у вас есть книга, содержащая несколько листов, теперь вам нужно создать раскрывающийся список или поле со списком, в котором перечислены все имена листов, и когда вы выбираете одно имя листа из раскрывающегося списка, он немедленно переходит на этот лист. В этой статье я расскажу, как перемещаться между листами с помощью раскрывающегося списка в Excel.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!