Excelではセルにハイパーリンクを設定することができます。
このアドレスを取得するための関数を作ってみました。
Function getlink(myrange)
If myrange.Hyperlinks.Count > 0 Then
getlink = myrange.Hyperlinks(1).Address
Else
getlink = ""
End If
End Function
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:="リンク"
コメント