Excelでハイパーリンク付きのすべてのスプレッドシートタブ名の目次を作成するにはどうすればよいですか？

Excelワークブックは、ますます多くのワークシートが追加されるにつれて非常に大きくなります。ワークシートが多いほど、それらの全体像を把握するのが難しくなります。そのため、Excelのワークシート間を迅速に移動するために目次が必要です。この記事では、それを実現するための方法を紹介します。

VBAコードで目次を作成する
Kutools for 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 Sub

3. F5キーを押すか、実行ボタンをクリックしてコードを実行します。

すると、すべてのワークシートの前に目次ワークシートが作成され、内部にすべてのワークシート名がリストされます。目次内のシート名をクリックすることで、任意のワークシートに移動できます。スクリーンショットをご覧ください：

Kutools for Excelで簡単に目次を作成する

Kutools for Excelの「リンクテーブルの作成」機能を使用すると、現在のブックで目次を素早く作成できます。以下の手順に従ってください。

1. 目次を作成する必要があるワークブックで、Kutools Plus > ワークシート > リンクテーブルの作成をクリックします。スクリーンショットをご覧ください：

2. 「リンクテーブルの作成」ダイアログボックスで、次の操作を行います：

すると、下のスクリーンショットに示すように目次ワークシートが作成されます。目次内のシート名をクリックすることで、任意のワークシートに移動できます。

「インデックススタイルの選択」セクションで「ボタンとマクロの作成」オプションを選択すると、下のスクリーンショットに示すような目次が得られます。

関連記事：

• Excelでセル内にタブ名を参照するにはどうすればよいですか？
• Excelでセル値をシートタブ名と一致させる、またはその逆を行うにはどうすればよいですか？
• Excelでコンボボックスの選択値に基づいて特定のワークシートを開くにはどうすればよいですか？