抽出URL =ハイパーリンク（）から

Question

私は式で生成されたリンクから評価されている式を抽出しようとしています：

=HYPERLINK("https://www.google.com/search?q="&A1&B1,"Link")

I（A1がvbaとB1ありhelpを持っているが）多くのスレッド、さらにはSO threadsの提案を見たことがありますが、私はもっと多くのテキストがあると考えずに...q=に私を取得します。

私がこれまで持っていた最高の運がthis threadからである、と私はそれがこのようなB1まで検索するように微調整しました：

... 
S = Left(S, InStr(S, "B17") + 2) 
... 

しかし、それはhttps://www.google.com/search?q="&A1&B1を返します。

URLを返す前に、まずそれらのセルの内容を評価するにはどうすればよいですか？

Answer 1

私はこれを考え直していました。私の頭をまっすぐにしてくれた@MacroManに感謝します。私は次の、むしろぎこちないマクロをまとめました。

Function hyperlinkText(rg As Range) As String 
' Inspired by https://stackoverflow.com/questions/32230657/extract-url-from-excel-hyperlink-formula/32233083#32233083 
Dim sFormula As String 
Dim Test As String 

sFormula = rg.Formula 
Test = Mid(sFormula, WorksheetFunction.Search("""", sFormula), WorksheetFunction.Search(",", sFormula) - WorksheetFunction.Search("""", sFormula)) 
hyperlinkText = Evaluate("=" & Test) 
End Function 

これは、ように見えるURL取ることができます：
=HYPERLINK("https://www.google.com/search?q="&A17&B17,"Link")をし、評価URLを返す：