Excelのハイパーリンクのアドレスを取得する方法

Excelではセルにハイパーリンクを設定することができます。
このアドレスを取得するための関数を作ってみました。

Function getlink(myrange)
If myrange.Hyperlinks.Count > 0 Then
getlink = myrange.Hyperlinks(1).Address
Else
getlink = ""
End If
End Function

A1セルにハイパーリンクがある場合、「=getlink(A1)」とすると、そのハイパーリンクに設定されているアドレス(URL)を表示します。

以下、補足情報。

次のようにすることでアドレスを文字列をして取得できます。上でも使っています。

link = Cells(1, 1).Hyperlinks(1).Address

次のようにすることでセルにハイパーリンクをセットすることができます。

Cells(1, 1).Hyperlinks.Add Anchor:=Cells(1, 1), Address:=link, TextToDisplay:="リンク"

[ 2018年12月29日 | カテゴリー: Excel | タグ: VBA , ハイパーリンク , ユーザー定義関数 ]

アーカイブ

You Look Too Cool