VBAでハイパーリンクを作成して各シートの目次を作成する

VBAでハイパーリンクを作成するには、for文でループして

ActiveSheet.Hyperlinks.Add anchor:=Range("A" & i), Address:="", SubAddress:=Worksheets(i).Name & "!A1", TextToDisplay:=Worksheets(i).Name

とします。

anchorでRange(“A” & i)としていますが、ハイパーリンクを作成するセル位置を指定します。

SubAddressは、ハイパーリンクのリンク先を指定します。

TextToDisplayは、ハイパーリンクの名前を指定します。上記ではシート名を指定しています。

以下のように記述するとと目次が作成できます。

For i = 1 To ActiveWorkbook.Worksheets.Count
  ActiveSheet.Hyperlinks.Add _
    Anchor:=Range("A" & i), _
    Address:="", _
    SubAddress:=Worksheets(i).Name & "!A1", _
    TextToDisplay:=Worksheets(i).Name
Next

高橋

KHI入社して退社。今はCONFRAGEで正社員です。関西で140-170/80～120万から受け付けております^^
得意技はJS(ES6),Java,AWSの大体のリソースです
コメントはやさしくお願いいたします^^
座右の銘は、「狭き門より入れ」「願わくは、我に七難八苦を与えたまえ」です^^