Excelのハイパーリンクのアドレスを取得する方法
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:="リンク"
[ 2018年12月29日 | カテゴリー: Excel | タグ: VBA , ハイパーリンク , ユーザー定義関数 ]
« 大きな事件が同じ日に起きた事例 | PHPで日本語を1文字ずつ分解する方法 »
コメントを残す