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

单击Excel单元格运行VBA功能

1 个答案: