Excel/VBAマクロ

Excel VBA ハイパーリンク付きシート一覧

エクセルにたくさんのシートが増えてきたとき目次を簡単に作成できるので便利です。

Sub ハイパーリンク付きシート一覧()

Const ssn As Long = 1       '一覧表示を開始するシートNo
Const xsp As String = "B"   '出力するセル位置 X軸
Const ysp As Integer = 1    '出力するセル位置 Y軸
Dim i As Integer
Dim hlk As String

i = 0
While ssn + i <= Sheets.Count
Cells(ysp + i, 1) = i + 1
hlk = "'" & Worksheets(ssn + i).Name & "'" & "!A1"
ActiveSheet.Hyperlinks.Add _
Anchor:=Range(xsp & ysp + i), _
Address:="", SubAddress:=hlk, _
TextToDisplay:=Worksheets(ssn + i).Name
i = i + 1
Wend

End Sub
VBAの動作方法がわからない方はこちら参考にしてください
スポンサーリンク
コピペで使う