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

コメント

タイトルとURLをコピーしました