Worksheet_FollowHyperlink和MsgBox在Excel 2010中不起作用

Question

Cell A1：

=HYPERLINK("#Sheet2!a2","link")

表格 - ＆gt;查看代码

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
MsgBox ("hello")
End Sub

当我左键单击A1时，MessageBox无法打开;相反，＃Sheet2！a2打开。使事情进一步复杂化，

表格 - ＆gt;查看代码

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
MsgBox ("hello")
End Sub

右键单击带有超链接的单元格会触发消息框，但谷歌仍然会触发。

表格 - ＆gt;查看代码

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox ("hello")
End Sub

现在双击A1不会生成消息框。

为什么？

Answer 1

这对我来说是新的，但在2003年和2010年，对于包含HYPERLINK（）函数的单元格，不会触发FollowHyperlink事件。这两个版本都会触发本机超链接。

看起来是SelectionChange事件触发，因此您可以测试单元格中是否存在超链接或您需要的任何其他测试。