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

内部で作成されるワークシートが増えるにつれて、Excelワークブックは非常に大きくなります。 ワークシートが多いほど、ワークシートの概要を維持するのが難しくなります。 したがって、Excelのワークシート間をすばやく移動するには、目次が必要です。 この記事では、それを実現する方法を紹介します。

VBAコードで目次を作成する
Kutools forExcelで目次を簡単に作成

VBAコードで目次を作成する

次のVBAコードは、Excelでハイパーリンクを含むすべてのワークシートの目次を作成するのに役立ちます。 次のようにしてください。

1。 プレス 他の + 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 forExcelで目次を簡単に作成

この シート名のリストを作成する の有用性 Kutools for Excel 現在のワークブックに目次をすばやく作成するのに役立ちます。 次のようにしてください。

1.目次を作成する必要があるワークブックで、をクリックします。 クツールズプラス > ワークシート > シート名のリストを作成する。 スクリーンショットを参照してください：

2。 の中に シート名のリストを作成する ダイアログボックスでは、次のことを行う必要があります。

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

[インデックススタイルの選択]セクションで[ボタンとマクロを含む]オプションを選択すると、以下のスクリーンショットに示すような目次が表示されます。

関連記事：

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