0

单击特定单元格时,我需要运行一个函数。功能是:

HighlightOnWebsite(url As String, phrase As String)

基本上,此函数加载 Web 浏览器控件,调出请求的页面,并突出显示所需的短语。该功能工作得更多或更少。

我想不通的是如何让某些单元格调用这个函数。

假设每行有 3 个单元格,其中包含以下信息:

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

现在,我需要扫描电子表格并在每一行的第三列中创建一个可单击的单元格,该单元格调用诸如 HighlightOnWebsite(A1,A2) 之类的函数。

这样的事情可能吗?

4

1 回答 1

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
于 2012-04-06T16:17:05.703 回答