HOME > 即効テクニック > Excel VBA > セル操作関連のテクニック > ハイパーリンクを設定する

ハイパーリンクを設定する|Excel VBA

セル操作関連のテクニック

ハイパーリンクを設定する

(Excel 97/2000/2002/2003/2007/2010/2013)

ハイパーリンクを設定するには、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