Question

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

= HYPERLINK（“https://google.ro/”＆amp; D14，“搜索”） - ＆gt;这仅适用于第14行

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

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

感谢。

Answer 1

如果我理解正确，您需要ThisWorkbook.FollowHyperlink方法

Sub TestHyperlink()

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

End Sub

您可能需要使用工作表名称限定范围（＆＃34; D14＆＃34;），具体取决于您从哪里调用代码。

Answer 2

为工作表添加Event-Routine。这个将在点击它时立即打开浏览器（在示例中，它仅限于列'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

VBA - 是否可以将单元格转换为cutom超链接？

2 个答案: