![](https://i0.wp.com/papanda925.com/wp-content/uploads/cocoon-resources/blog-card-cache/59bb2d137f9b4725629c47c9025391ed.jpg?resize=160%2C90&ssl=1)
VBAからのHYPERLINK関数のアドレス取得法
いつもお世話になっています。Excel 2003のVBAについてご質問させてください。あるセル上に、下記のように別名が指定されたHYPERLINK関数があります。=HYPERLINK(配置先, ファイル名)現在、VBAよりHYPERLINK...
上記サイトのコードをお借りしました。
ちょっとだけ改造
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
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 |
コメント