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の動作方法がわからない方はこちら参考にしてください

Excel VBAの実行方法

後輩がVBAの動かし方がわからないと言ってきたのでとりあえず書いてみました。 手順１　適当なセルにカーソルを当て右クリック→　コードの表示 手順２　以下画面がでてくるのでソースを書く とりあえずはここにあるソースをコピペする。（ブック内のシ...

oha-yo.com

2021.11.23