HYPERLINK関数からURL抜き出し

いつもお世話になっています。Excel 2003のVBAについてご質問させてください。あるセル上に、下記のように別名が指定されたHYPERLINK関数があります。=HYPERLINK(配置先, ファイル名)現在、VBAよりHYPERLINK関数... - その他（Microsoft Office）解決済 | 教えて！...

上記サイトのコードをお借りしました。

ちょっとだけ改造

Sub test2()
    
    Dim r As Range
    Set r = Sheets("Sheet1").Range("A3")
    
    Debug.Print GetURL(r)

End Sub


Function GetURL(ByRef rTarget As Range) As String
    Dim sStr1, sStr2, i
    Dim sStr3 As String

    If rTarget = "" Then Exit Function
    sStr1 = Split(rTarget.Formula, "HYPERLINK(")
    sStr2 = Split(sStr1(1), ",")
    

    For i = 0 To (UBound(sStr2) - 1)
        sStr3 = sStr3 &amp; sStr2(i) &amp; ","
    Next i
    sStr3 = Mid(sStr3, 1, Len(sStr3) - 1)
    Range("A999").Formula = "=" &amp; sStr3
    GetURL = Range("A999").Value
    Range("A999").Clear
End Function

Sub test2()

Dim r As Range

Set r = Sheets("Sheet1").Range("A3")

Debug.Print GetURL(r)

End Sub

Function GetURL(ByRef rTarget As Range) As String

Dim sStr1, sStr2, i

Dim sStr3 As String

If rTarget = "" Then Exit Function

sStr1 = Split(rTarget.Formula, "HYPERLINK(")

sStr2 = Split(sStr1(1), ",")

For i = 0 To (UBound(sStr2) - 1)

sStr3 = sStr3 & sStr2(i) & ","

Next i

sStr3 = Mid(sStr3, 1, Len(sStr3) - 1)

Range("A999").Formula = "=" & sStr3

GetURL = Range("A999").Value

Range("A999").Clear

End Function

HYPERLINK関数からURL抜き出し

いいね:

コメント

共有:

いいね:

コメント