文字列として入力されているフルパスをハイパーリンクに変換

Sub ConvertPathsToHyperlinksWithRange(lngStartRow As Long, lngEndRow As Long)
    Dim ws As Worksheet
    Dim cell As Range

    ' ワークシートの設定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 指定された範囲のセルに対してループ
    For Each cell In ws.Range("A" & lngStartRow & ":A" & lngEndRow)
        If cell.Value <> "" Then
            ' ハイパーリンクを設定
            ws.Hyperlinks.Add Anchor:=cell, Address:=cell.Value, TextToDisplay:=cell.Value
        End If
    Next cell
End Sub

コメント