スポンサーリンク

ハイパーリンクを取得する。[HyperLink]、[VBA]について。(特定の範囲にHyperLinkがある場合)

HyperLink_00 HyperLink
スポンサーリンク
スポンサーリンク

ハイパーリンク(HyperLink)については、沢山利用方法があるかと思います。今回は一番わかり易く、HyperLinkの取得方法について記述します。

始めに。

HyperLinkの利用方法については、多岐にわたると思います。

[HyperLink]の文字列を取得する ←(今回はこれに関して記述します)
●挿入された[HyperLink]を削除する。
●[HyperLink]が実行された時の動作の制御
など、です。

注意事項

今回は、『[HyperLink]の文字列を取得する 』 について記述します。
※[HyperLink]の特定的な指定方法については記述しません。
※[HyperLink関数]に関してはここでは記述していません。

特定のセルに、ハイパーリンクの設定があれば抽出する。

以下は、コード実行前の画像です。

HyperLink_01.jpg

以下は、実行すると『1行~10行までの間で、ハイパーリンクのあるセル(A列)を、
B列に抽出する』構文になります。※抽出条件はA列(サンプル)からのみ。

Option Explicit
 Sub ハイパーリンク抽出()
  Dim i As Long
   For i = 1 To 10
    If Cells(i, 1).Hyperlinks.Count > 0 Then
    Cells(i, 2) = Cells(i, 1).Hyperlinks.Item(1).Address
    End If
   Next i
 End Sub

以下が、コード実行後の画面です。

HyperLink_00

このパターンの構文は沢山あるので、記述方法に好みも出てくると思います。
ご自身に合ったコードの書き方をすれば良いと思います。

記述的に美しい方法もあるのでしょうが 、
自分に分かり易い構文を追求するのが一番です。

タイトルとURLをコピーしました