Worksheet_FollowHyperlink и MsgBox не работают в Excel 2010

Question

Ячейка A1:

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

Лист-> Просмотреть код

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

MessageBox не открывается, когда я щелкаю левой кнопкой мыши по A1;вместо этого открывается # Sheet2! a2.Чтобы еще больше усложнить ситуацию,

Sheet-> View Code

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

Щелчок правой кнопкой мыши по ячейке с гиперссылкой вызывает окно сообщения, но Google все равно срабатывает.

Sheet-> View Code

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

Теперь двойной щелчок по A1 не создает окно сообщения.

Почему?

Answer 1

Что ж, для меня это новость, но и в 2003, и в 2010 году событие FollowHyperlink не запускается для ячеек, содержащих функцию HYPERLINK ().Обе версии запускаются для собственных гиперссылок.

Похоже, что срабатывает событие SelectionChange, так что вы можете проверить наличие гиперссылки в ячейке или любые другие необходимые вам тесты.