EXCEL VBA シート間でのハイパーリンクの作成・シート一覧・目次・自動生成（テクニック）

2020年10月26日

EXCEL VBA シート間でのハイパーリンクの作成・シート一覧・目次・自動生成（テクニック）

●はじめに

EXCELのシート間で、該当するシートに切り替える際に、シート間でのハイパーリンクの一覧（目次）を作成していますと、とても便利です。各シートにハイパーリンクの一覧（目次）を作成する事で、数多くのシートがあるブック（Book）の場合、一覧表示されているので、シートを切り替える場合、簡単かつ素早く切り替える事が出来ます。シート（Sheet）数が増えれば増えほど、有効な機能になりますので、このシート間でのパイパーリンクの一覧（目次）作成方法を順番に説明いたします。

●プログラム説明 (サンプルプログラム①)　　※（画像クリックで拡大）

下記のプログラムは、自動的に各シート間にシート名のハイパーリンクの一覧表示（目次）を作成します。各シートのハイパーリンク一覧は、各シートのA列に作成され、ハイパーリンクでジャンプする際は、各シートのA1にジャンプする様に設定します。

Sub SheetsLink()

    Dim I As Integer
    Dim Ws As Worksheet
    
    For Each Ws In Worksheets  'ブックにあるすべてのシートをループします。
    
        Worksheets(Ws.Name).Activate  'アクティブシートを指定します。
        
        For I = 1 To Worksheets.Count
            Cells(2, "A") = "シート一覧"
            Worksheets(Ws.Name).Hyperlinks.Add anchor:=Cells(I + 2, "A"), Address:="", SubAddress:=Worksheets(I).Name & "!A1", TextToDisplay:=Worksheets(I).Name
             'A列に全てのシートのハイパーリンクを指定します。　ハイパーリンク先は、各シートのA1に飛びます。
        Next I
        
    Next Ws
        
End Sub