URLをハイパーリンクにする〜Excel VBA 3行マクロ

ハイパーリンクはHyperlinkオブジェクトとして表されます。
セルにハイパーリンクを設定するにはHyperlinksコレクションに対して Addメソッドを実行します。

では、次の表のA2セルにハイパーリンクを設定することにします。
コードは、

Sub ハイパーリンク()
Range("A2").Hyperlinks.Add Anchor:=Range("A2"), Address:=Range("A2").Value
End Sub    

あるいは、Range("A2")をActiveSheetに変更しても、結果は同じ。

Sub ハイパーリンク2()
ActiveSheet.Hyperlinks.Add Anchor:=Range("A2"), Address:=Range("A2").Value
End Sub    

A2セルにハイパーリンクが設定されました。

Anchorに指定するセルを変更すれば、どこにでもハイパーリンクを設定できるわけです。
またアドレスはもともとURLとして入力されていますから、 Address:=Range("A2").Valueとしています。

B2セルに入力されたアドレスにハイパーリンクをつけるならコードは、

Sub ハイパーリンク3()
ActiveSheet.Hyperlinks.Add Anchor:=Range("B2"), Address:=Range("B2").Value
End Sub    

何も入力されていないセルに、ハイパーリンクを設定するのなら、 コードは、

Sub ハイパーリンク4()
    ActiveSheet.Hyperlinks.Add Anchor:=Range("B2"), _
    Address:="http://kokodane.com/3gyou_macro.htm", _
    ScreenTip:="エクセル塾3行マクロ講座", _
    TextToDisplay:="3行マクロ"
End Sub
	

実行すると、このうようにセルには、”3行マクロ”と表示され、カーソルをかざすとヒントが表示されます。