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

●実行結果　実行後：全てのシートのA列に、シート一覧（目次）が表示されました。全てのシートにハイパーリンクがされています。　※（画像クリックで拡大）

最後まで、ご覧いただきまして誠に有難うございました。
また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。

AKIRA