获取Excel UDF以返回超链接

目前要获得UDF返回超链接我使用类似于：

Public Function HyperActive() As String HyperActive = "http://www.cnn.com" End Function 

在工作表单元格中，我使用：

 =HYPERLINK(hyperactive(),"news") 

做一个不错的“可点击”链接。

我想让UDF直接返回一个“可点击的”链接。 我努力了：

 Public Function HyperActive() As Hyperlink Dim h As Hyperlink h.Address = "http://www.cnn.com" Set HyperActive = h End Function 

刚刚返回#VALUE！ 在牢房里！ 如何才能使这个工作？

Answer 1

超链接喜欢被添加到工作表。 如果你喜欢，你可以将它们添加到范围2。 这个function只会添加该网站，你总是可以充实你的喜欢更多的参数。

它将超链接添加到当前选定的单元格。 虽然你可以把它改变成你所喜欢的。

 Public Function HyperActive(ByRef rng As Range) With ActiveSheet.Hyperlinks .Add Anchor:=rng, _ Address:="http://www.cnn.com", _ ScreenTip:="Click to go to the Cnn Website", _ TextToDisplay:="CNN Website" End With End Function Sub Calling_The_Hyper_link() Call HyperActive(Selection) End Sub 

如果您添加公共函数HyperActive(byref sh as worksheet, ByRef rng As Range)您可以控制它也进入哪个工作表。