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

VBAで
 ・ハイパーリンクを設定
できます!

PR

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

以下を指定します(11~17行目)。
※状況に応じて任意の値を指定してください。

・シート
・リンク先
・ハイパーリンクで表示されるテキスト
・ポップヒント

「Worksheetオブジェクト」の「Hyperlinks」プロパティにより、「Hyperlinksオブジェクト」を取得します(20行目)。

「Hyperlinksオブジェクト」の「Add」メソッドにより、ハイパーリンクを設定します(20行目)。
※上記では「Anchor」にセル「B2」を指定しているため、セル「B2」にハイパーリンクが設定されます。

PR

実行結果

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

実行結果
実行結果
PR

参考①

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

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

PR

参考②

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

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


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

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