Excel 超链接不触发宏

Excel 超链接不触发宏,excel,vba,Excel,Vba,我正在尝试获取所有具有特定目标范围的超链接以激活例程。虽然超链接本身工作正常(当我点击超链接时,选择了目标地址范围(“A1”),但当我点击它们时,我的例程不会被触发 下面的代码位于我的工作簿的“Sheet1”模块中,“Sheet1”工作表中的超链接目标范围“A1”。工作簿中总共有5张其他工作表 我真的很困惑,为什么代码无法触发。任何帮助都将不胜感激 检查超链接本身是否正常工作,并针对例程链接到的同一工作表上的某个范围 删除了代码中的“调用宏”部分,并将其替换为一个简单的消息框,以检查例程是否被

我正在尝试获取所有具有特定目标范围的超链接以激活例程。虽然超链接本身工作正常(当我点击超链接时,选择了目标地址范围(“A1”),但当我点击它们时,我的例程不会被触发

下面的代码位于我的工作簿的“Sheet1”模块中,“Sheet1”工作表中的超链接目标范围“A1”。工作簿中总共有5张其他工作表

我真的很困惑,为什么代码无法触发。任何帮助都将不胜感激

  • 检查超链接本身是否正常工作,并针对例程链接到的同一工作表上的某个范围
  • 删除了代码中的“调用宏”部分,并将其替换为一个简单的消息框,以检查例程是否被触发
  • 尝试将例程放在“ThisWorkbook”模块中-这也没有结果
单击目标范围为“A1”的超链接后,应触发上述例程,这意味着用户应看到消息框文本。

子地址vs Sheet1!
这个问题不清楚该处理程序是否应该出现在所有6张工作表中,或者它是否只出现在
Sheet1
上。在任何情况下,抓取任何工作表事件处理程序并将其移动到
此工作簿
都不可能工作-签名不匹配,它不是
工作簿
事件。我认为它是:Target.address超链接是如何创建的?
Debug.Print Sheet1.Hyperlinks.Count
返回什么?@Guest
Target
是一个
Hyperlink
,而不是
范围。指向例如
stackoverflow.com
的超链接的
地址
将是
stackoverflow.com
创建可点击超链接的方法多种多样,但并非所有方法都在工作表的
超链接
集合中创建一个
超链接
对象。如果不知道Hyperlnk是如何产生的,这个问题是无法回答的。
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Target.Range.Address = "$A$1" Then
        MsgBox ("Yay")
    End If
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Target.Range.Hyperlinks(1).SubAddress = "Sheet1!A1" Then
        MsgBox ("Yay")
    End If
End Sub