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

要将超链接添加到工作表中。如果您愿意，可以将它们添加到范围二。这个功能只会添加该网站，你可以随时充实它以吸引更多你喜欢的网站。

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

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)，你可以控制它进入哪张表。

获取Excel UDF以返回超链接

1 个答案: