ハイパーリンクを設定する|Excel VBA |
ハイパーリンクを設定するには、HyperLinksコレクションのAddメソッドを使います。
Addメソッドの引数Anchorには、セルやシェイプなどハイパーリンクの設定先のオブジェクトを指定します。
引数Addressには、URLやメールアドレスなどリンク先の文字列を指定します。
次のマクロは列Bに、列CのURLへのハイパーリンクを設定します。
引数Anchorに「Cells(i,2)」、引数Addressに「Cells(i,3).Value」を指定しているのは、前者にはセル(Rangeオブジェクト)、後者には文字列を指定しているためです。
Sub Sample()
Dim i As Long
With ActiveSheet.Hyperlinks
For i = 4 To 8
.Add Anchor:=Cells(i, 2), Address:=Cells(i, 3).Value
Next i
End With
End Sub
リンク先にメールアドレスを設定する場合は、引数Addressには「mailto:」に続けてメールアドレスを指定します。
ActiveSheet.Hyperlinks.Add _
Anchor:=Range("A1"), Address:="mailto:" & Range("B1").Value