vba - 获取 Excel UDF 以返回超链接

Question

目前为了让 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。此功能将仅添加该站点，您可以随时充实它以获取更多您喜欢的参数。

它将超链接添加到当前选定的单元格。尽管您也可以将其更改为您喜欢的任何内容。

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

如果添加公共(public)功能 HyperActive(byref sh as worksheet, ByRef rng As Range)你也可以控制它进入哪张纸。