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

VBAコード

ここでは例として、
　・URL「https://excel-vba.work/」へのハイパーリンクを
　・シート「sample」のセル「B2」に設定
します。

Option Explicit

Sub sample()
    
    Dim ws As Worksheet
    Dim linkUrl As String
    Dim linkStr As String
    Dim tipStr As String
    
    'シートを指定
    Set ws = Worksheets("sample")
    'リンク先を指定
    linkUrl = "https://excel-vba.work/"
    'ハイパーリンクで表示されるテキストを指定
    linkStr = "Excel/VBA実践ガイド"
    'ポップヒントを指定
    tipStr = "クリックしてください。"
    
    'ハイパーリンクを設定
    ws.Hyperlinks.Add Anchor:=Range("B2"), _
                      Address:=linkUrl, _
                      TextToDisplay:=linkStr, _
                      ScreenTip:=tipStr
    
End Sub

実行結果

ハイパーリンクを設定できました。
※セル「B2」にハイパーリンクが設定されました。

参考①

ハイパーリンクを削除することもできます。

詳細は以下の記事をご確認ください。

参考②

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●「Worksheetオブジェクト」の「Hyperlinks」プロパティ

●「Hyperlinksオブジェクト」の「Add」メソッド