单击Excel单元格运行VBA功能

Question

单击特定单元格时，需要运行一个函数。功能是：

HighlightOnWebsite(url As String, phrase As String) 

基本上，此功能加载Web浏览器控件，调出所需的页面，并突出显示所需的短语。该功能的工作原理更加精简。

我弄不清楚是如何让某些单元格调用这个函数。

可以说，每一行都有它包含以下信息3个单元：

url of some document | some important phrase | will contain call to function 

现在，我需要扫描的电子表格，并在每行的第三列，拨打的电话就像一个功能可点击单元格HighlightOnWebsite（A1，A2）。

会是这样的事情吗？

Answer 1

您不必扫描工作表。

在第三列的每个单元格中创建链接到同一单元格的静态超链接。
然后在工作表中有一个处理程序：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 
    If Target.Range.Column = 3 Then 
    HighlightOnWebsite Target.Range.Offset(0, -2).Value, Target.Range.Offset(0, -1).Value 
    End If 
End Sub