我在B列中有一长串超链接公式。下面是一个单元格内公式的示例。我想要实现的是,当我单击整个列B的任何行中的超链接时,它还将运行一个单独的单个VBA宏。
= HYPERLINK(“#SHEET1!D”&ROW(D2066),D2066)
谢谢。
有一个Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
事件,但我认为它不适用于超链接公式。在这种情况下,selection_change事件可能会起作用。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 2 Then
If Left(Target.Formula, 10) = "=HYPERLINK" Then
MsgBox "My Code here"
End If
End If
End Sub
这将在工作表模块中。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句