Excel VBA ハイパーリンクを追加する方法 Hyperlinks.Add

ハイパーリンクを追加する方法

Hyperlinks.Addメソッドを使用して指定された範囲または図形にハイパーリンクを追加する方法を解説します。

やりたい事

VBAを使用して外部サイトへのハイパーリンクを作成したり、別ブックのセルへのリンクを作成したり、同じブックの別シートのセルへのリンクを作成したいと思います。

外部サイトへのハイパーリンク作成のサンプルコード

Sub hyperlinkSample()
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Range("B2"), _
        Address:="https://dolphinpg.net/", _
        TextToDisplay:="Link"
End Sub

上記のコードを実行するとハイパーリンクが以下の図のように作成されます。

ハイパーリンクをクリックすると既定のブラウザで外部サイトへリンクします。

別ブックのセルへのハイパーリンク作成のサンプルコード

「Address」に別ブックのパスを記載します。
「SubAddress」に指定するシート名とセルを指定します。

Sub hyperlinkSample2()
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Range("B3"), _
        Address:="D:\Excel\hyperlink.xlsx", _
        SubAddress:="link先!C3", _
        TextToDisplay:="別ブックにリンク"
End Sub

上記のコードを実行するとハイパーリンクが以下の図のように作成されます。

ハイパーリンクをクリックすると指定した別ブックの指定セルへリンクします。

同じブックのセルへのハイパーリンク作成のサンプルコード

リンク先と同じブックの場合は、「Address」を「””」で指定します。

Sub hyperlinkSample3()
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Range("B4"), _
        Address:="", _
        SubAddress:="Sheet1!C3", _
        TextToDisplay:="同じブックにリンク"
End Sub

構文

expressionはHyperlinksオブジェクトを表す変数です。

expression.Add (Anchor, Address, SubAddress, ScreenTip, TextToDisplay)

以下はパラメータになります。

参考資料

Docs