Excel シート目次を作る

Excelでめちゃくちゃたくさんシート作っちゃって、スクロールバーがめっちゃちっちゃくなっちゃって困っちゃって(´O｀；)・・・て時は目次でも作ろう。

という事でExcelで目次リンクを作るスクリプト

まず、「目次」っていうシート名のシートを作りVBScriptEditorを開く。

目次シートのEditorスペースに以下を定義する。

Public Sub make_index()
    Dim i As Integer
    Dim cell As Range
   
    Set cell = Range("A1")
    Dim mysheet As Worksheet
    Set mysheet = ActiveSheet
   
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "目次" Then
            cell.Offset(i - 1).Value = Sheets(i).Name
            mysheet.Hyperlinks.Add _
            Anchor:=mysheet.Cells(i, 1), _
            Address:="", _
            SubAddress:=Sheets(i).Name & "!A1", _
            TextToDisplay:=Sheets(i).Name
        End If
    Next

End Sub

参考URL

• Excelで目次を作成したいのですが、効率の良い方法あれば教えてください - livedoor ナレッジ 知識、知恵のカタマリ
• ワークシート名一覧を作成したい：Excel エクセルの使い方-マクロ/VBA
• 目次シートを作成するVBAサンプル
• すぐに役立つエクセルVBAマクロ集 - Macro その他 - Excel VBA Macro Collection
• ＠IT：Windows TIPS -- Tips：Excelのユーザー定義関数で既存のワークシート関数を利用する