シート シート上のハイパーリンクを取得する

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][シート シート上のハイパーリンクを取得する]
Option Explicit


Sub HyperlinkGet()
'***********************************
'シート上のハイパーリンクを取得する
'***********************************
'A列にあるものと仮定しています
'E列に取得結果を表示してます
'リンクが無い場合はOn Errorで回避してます

Dim i As Long, Sht As Worksheet

Set Sht = ThisWorkbook.Worksheets("Sheet1")

On Error Resume Next

    With Sht
        For i = 1 To .Cells(65536, 1).End(xlUp).Row
            .Cells(i, 5).Value = .Cells(i, 1).Hyperlinks(1).Address
        Next i
    End With

End Sub






Production Japan Import Application. Since 1998