Как создать оглавление со всеми именами листов и гиперссылками в Excel?
Файл рабочей книги Excel значительно увеличивается в размере по мере добавления новых листов. Чем их больше, тем труднее поддерживать общий обзор. Именно поэтому вам понадобится оглавление для быстрой и удобной навигации между листами в Excel. В этой статье описаны способы его создания.
Создание оглавления с помощью кода VBA
Легко создайте оглавление с помощью Kutools для Excel
Создание оглавления с помощью кода VBA
Приведённый ниже код VBA поможет вам создать оглавление со ссылками на все листы в Excel. Выполните следующие действия.
1. Нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications выберите Вставка > Модуль, затем скопируйте приведённый ниже код VBA в окно кода.
Код VBA: Создание оглавления для всех листов
Sub CreateTableofcontents()
'updateby Extendoffice 20180413
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("Table of contents").Delete
On Error GoTo 0
Set xShtIndex = Sheets.Add(Sheets(1))
xShtIndex.Name = "Table of contents"
I = 1
Cells(1, 1).Value = "Table of contents"
For Each xSht In ThisWorkbook.Sheets
If xSht.Name <> "Table of contents" Then
I = I + 1
xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
End If
Next
Application.DisplayAlerts = xAlerts
End Sub3. Нажмите клавишу F5 или кнопку «Выполнить», чтобы запустить код.
Затем перед всеми остальными листами создаётся лист «Оглавление», содержащий названия всех листов. Перейти к любому листу можно, просто щёлкнув его имя в оглавлении. См. снимок экрана:
Легко создайте оглавление с помощью Kutools для Excel
Утилита Создать связующую таблицу из пакета Kutools для Excel позволяет быстро создать оглавление в текущей книге. Выполните следующие действия.
1. В книге, где необходимо создать оглавление, нажмите KUTOOLS PLUS > Лист > Создать связующую таблицу. См. снимок экрана:
2. В диалоговом окне Создать связующую таблицу выполните следующие действия:
Затем создаётся лист оглавления, как показано на снимке экрана ниже. Просто щёлкните имя любого листа в оглавлении, чтобы мгновенно перейти к нему.
Если вы выберете опцию «Создать кнопки и макросы» в разделе «Стили указателя», оглавление будет выглядеть так, как показано на снимке экрана ниже.
Если вы хотите воспользоваться бесплатной пробной версией (30 дней) этой утилиты, нажмите, чтобы скачать её, а затем выполните операцию в соответствии с приведёнными выше шагами.
Связанные статьи:
- Как сослаться на имя вкладки в ячейке Excel?
- Как сопоставить значение ячейки с именем вкладки листа или наоборот в Excel?
- Как открыть нужный лист, выбрав значение в поле со списком (Combo Box) в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек