Excel VBA：ワークシートの目次を作成する｜HyPerlinksプロパティの使い方

HyPerlinksプロパティでハイパーリンクが付いた目次を作成するVBAを掲載しています。

Homeに戻る > Excel シートのTipsへ

HyPerlinksプロパティで、シート名の目次を作成します。

シート名は、Worksheets().Name で取得します。

ハイパーリンクですので、クリックするとそのシートに移動します。

移動先シートのセル位置は、SubAddress で指定します。

今回はC10に設定しました。

関連する「ハイパーリンクがクリックされた場合に処理を実行する」も掲載していますので、参考にしてください。

実行Excelシート画面

「シート目次作成」ボタンで、C7セルから目次を作成します。

下線が付いていることから、ハイパーリンクが設定されているのが分ります。

クリックすると対応するシートにジャンプできます。

Excel VBA実行コード

'ハイパーリンクでシートのもくじを作成
Sub ボタン1_Click()
    Dim i As Integer

    'リンク先をC10に設定
    For i = 1 To Worksheets.Count
        Worksheets("Sheet1").Hyperlinks.Add anchor:=Cells(i + 6, 2), _
            Address:="", _
            SubAddress:=Worksheets(i).Name & "!C10", _
            TextToDisplay:=Worksheets(i).Name
    Next
End Sub

Homeに戻る > Excel シートのTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します