VBAからのHYPERLINK関数のアドレス取得法

質問

• Excel 2003のVBAからHYPERLINK関数が指し示す配置先（アドレス）を取得する方法についてお伺いします。
• VBA化が困難な複雑な分岐を含む「配置先」を取得する方法や、別セルに書き出さずに取得する方法を教えてください。
• また、Excel 2003からだけでなく、Excel 2010でも動作する方法についてもお教えいただけますと幸いです。

回答No.2

mt2008 · ベストアンサー

かなり強引だけどこんなのを作ってみました。
・セルA999をWORK用に使っています。
・対象となるセル式中に「HYPERLINK(」が一回しか出て来ない事が条件です。

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

　　If rTarget = "" Then Exit Function
　　sStr1 = Split(Range("A2").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

お礼

度々のご回答ありがとうございます。
そのままでは動かなかったので、下記の通り改造すると期待通りの動作をしました。

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

If rTarget = "" Then Exit Function
sStr1 = Split(rTarget.Formula, "HYPERLINK(") '←A2をrTargetに変更
sStr2 = Split(sStr1(1), ",")

For i = 0 To (UBound(sStr2) - 1)
sStr3 = sStr3 & sStr2(i) & ","
Next i
sStr3 = Mid(sStr3, 1, Len(sStr3) - 1)
Sheet1.Range("A999").Formula = "=" & sStr3 '←念のためシートの明確化
GetURL = Sheet1.Range("A999").Value '←念のためシートの明確化
Sheet1.Range("A999").Clear '←念のためシートの明確化
End Function

Excel 2010では動作未確認ですが、おそらく期待通りの動作をするだろうと思います。
こちらの結果は補足にてご報告させて頂きます。

アルゴリズムまで考えて頂き、本当にありがとうございました。
個人的にはもっとお手軽な方法があれば良いなと思っていたのですが、
やはり力技で行くしかないんですね（－－；

補足

Excel 2010でも動作することを確認しました。
ありがとうございました。