Excel宏不起作用

我已經成功創建了一個宏，但不得不重新創建一個我想用它的Excel文檔。現在它不適用於任何工作簿。Excel宏不起作用

Function GetURL(rng As Range) As String 
    On Error Resume Next 
    GetURL = rng.Hyperlinks(1).Address 
End Function

我想要做的就是激活這個宏在所有的工作簿，隨時我打開Excel和使用=GetURL(A1)我希望它得到HTTP鏈接。

2016-10-05 Jason

提示：避免使用'上的錯誤恢復Next'因爲它不會讓你在粒度基礎上優雅地處理錯誤。 – Dai

你是什麼意思的「不行」？怎麼了？ –

另外，如果工作簿沒有任何超鏈接，您希望宏如何工作？你寫下「我希望它獲得HTTP鏈接」，而不清楚鏈接是什麼，或者它是如何創建的，或者如果沒有鏈接發生什麼，或者有多個鏈接。 – Dai

有跡象表明，我能想到的來執行此方法2：
1.一個加入，將包含你的UDF，並安裝正確
Official Documentantion 我覺得這是最好的辦法，由於你的發言

Quote：隨時打開Excel和使用= GetURL（A1）我希望它獲得HTTP鏈接。>

2.您可以使用UDF從原始工作簿就像這樣：

=Book1.xlsm!GetURL(A1)

只要打開工作簿

2016-10-05 22:26:31 Sgdva

回答