Как создать оглавление для всех листов с гиперссылками на имена вкладок в Excel?

Рабочая книга Excel становится довольно большой по мере создания в ней всё большего количества листов. Чем больше листов, тем сложнее поддерживать обзор рабочих листов. Поэтому вам нужно оглавление для быстрого перемещения между листами в Excel. В этой статье мы покажем вам методы, как это сделать.

Создание оглавления с помощью кода VBA
Легко создать оглавление с помощью Kutools для Excel

Создание оглавления с помощью кода VBA

Следующий код VBA может помочь вам создать оглавление для всех листов с гиперссылками в Excel. Пожалуйста, выполните следующие действия.

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. В окне Microsoft Visual Basic для приложений нажмите Вставить > Модуль, затем скопируйте приведенный ниже код 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 Sub

3. Нажмите клавишу F5 или кнопку Выполнить, чтобы запустить код.

Затем создается рабочий лист «Оглавление» перед всеми листами со списком всех имен листов внутри. Вы можете перейти к любому листу, щелкнув имя листа в оглавлении. См. скриншот:

Легко создать оглавление с помощью Kutools для Excel

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

1. В рабочей книге, где вам нужно создать оглавление, нажмите Kutools Plus > Лист > Создать список имен листов. См. скриншот:

2. В диалоговом окне Создать список имен листов вам нужно:

Затем создается рабочий лист оглавления, как показано на скриншоте ниже. Вы можете перейти к любому листу, щелкнув имя листа в оглавлении.

Если вы выберете опцию Содержит кнопки и макросы в разделе Выбрать стили индекса, вы получите оглавление, как показано на скриншоте ниже.

Связанные статьи:

• Как сослаться на имя вкладки в ячейке в Excel?
• Как сопоставить значение ячейки с именем вкладки листа или наоборот в Excel?
• Как открыть конкретный лист с помощью выбранного значения из выпадающего списка в Excel?