VBA - 是否可以将单元格转换为自定义超链接？答案

【问题标题】：VBA - Is it possible to transform a cell into a cutom hyperlink?VBA - 是否可以将单元格转换为自定义超链接？
【发布时间】：2018-03-07 10:33:21
【问题描述】：

我想知道是否可以使用 VBA 将已经包含部分 url 的单元格转换为活动超链接。更具体地说，这里是我迄今为止设法使用的一个示例：在 B 列，在单元格 B14 中，我有以下公式

=HYPERLINK("https://google.ro/"&D14,"search") -> 这仅适用于第 14 行

现在在单元格 D14 上，我有 URL 的最后一部分，例如“dogs”。现在，当我按下单元格 D14 时，它会打开一个新的浏览器页面并将我带到该特定地址。

所以我的问题是，我可以在 D14 中的这个示例中使用 VBA 在单个单元格上执行此操作，而不再使用 B 列吗？基本上有没有办法将B列中使用的公式集成到VBA中？

谢谢。

【问题讨论】：

标签： vba url hyperlink

【解决方案1】：

为您的工作表添加一个事件例程。点击它会立即打开浏览器（在示例中，它仅限于“D”列）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Check if only 1 cell is selected 
    If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub
    If Target.Column = 4 And Target.Value <> "" Then
        ThisWorkbook.FollowHyperlink "https://www.google.de/search?source=hp&q=" & Target.Value
    End If
End Sub

【讨论】：

【解决方案2】：

如果我理解正确的话，你需要 ThisWorkbook.FollowHyperlink 方法

Sub TestHyperlink()

    ThisWorkbook.FollowHyperlink "https://google.ro/" & Range("D14")

End Sub

您可能需要使用工作表名称来限定 Range("D14")，具体取决于您从何处调用代码。

【讨论】：