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

我想知道是否可以使用VBA，以便能够将已包含部分url的单元格转换为活动超链接。更具体这里是什么，我已经成功与迄今为止的工作的例子：在B列，在单元格B14我有以下公式VBA - 是否可以将单元格转换为cutom超链接？

= HYPERLINK（” https://google.ro/‘& D14’搜索“） - >这是仅用于第14行

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

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

谢谢。

2017-09-26 Adi Petrescu

为您的工作表添加事件例程。这个会在点击它时立即打开浏览器（在本例中，它仅限于'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

来源

2017-09-26 10:23:50 FunThomas

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

Sub TestHyperlink() 

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

End Sub

您可能需要使用工作表名称取决于你在哪里从调用你的代码来限定范围（“D14”）。

来源

2017-09-26 10:10:42

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

回答

相关问题