excel - 在excel中创建自定义超链接函数

Question

我进行了广泛搜索，但找不到这个简单问题的答案。我想在 excel 中创建一个自定义函数，它将创建一个超链接。

Excel 有一个内置的超链接功能，其工作原理如下:

=Hyperlink(link_location, display_text)

我想创建一个名为 CustomHyperlink 的函数，它接受一个参数，并使用该参数返回一个指向 google 查询的超链接。只是为了这个问题，让我们假设传递的参数是一个字母数字字符串，没有空格。

本质上，调用

=CustomHyperlink("excel") 

应该和调用一样

=Hyperlink("http://www.google.com/search?q=excel", "excel")

这似乎是一项简单的任务，但我绝对找不到实现此功能的方法。

谁能提供一些快速帮助？

Answer 1

我可以提供一个部分解决方案，一个将更新现有超链接的解决方案。这只有在你使用它时才有意义，比如

CustomHyperlink(A1)

是 A1包含所需的搜索词

要使用，

在单元格中输入您的 UDF 公式，例如 =CustomHyperlink(A1)

在单元格上创建一个超链接(右键单击，超链接...)。这可以是任何超链接，有效或无效

将所需的搜索词放在引用的单元格中，例如 A1把 excel

当 UDF 运行时，它会将输入的搜索词更新到 Google 的超链接

Function CustomHyperlink(Term As String) As String
    Dim rng As Range

    Set rng = Application.Caller
    CustomHyperlink = Term

    If rng.Hyperlinks.Count > 0 Then
        rng.Hyperlinks(1).Address = "http://www.google.com/search?q=" & Term
    End If
End Function