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

Pocket

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 | タグ: ]

« | »

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

送信してください。


タグ

カテゴリー

最近の投稿

最近のコメント

固定ページ

アーカイブ

stabucky

写真

メタ情報