超链接不会触发宏

Question

我正在尝试获取具有特定目标范围的所有超链接以激活例程。尽管超链接本身可以正常工作（当我单击超链接时选择了目标地址范围（“ A1”）），但是单击超链接时不会触发我的例程。

下面的代码在我的工作簿的“ Sheet1”模块中，而“ Sheet1”工作表中的超链接目标范围为“ A1”。该工作簿中总共还有5个其他工作表。

我真的很困惑为什么代码未能触发。任何帮助将不胜感激！

• 检查超链接本身是否正常工作，并在例程链接到的同一工作表上定位范围。
• 删除了代码的“调用宏”部分，并用一个简单的消息框替换了它，以检查例程是否完全被触发。
• 尝试将例程放置在“ ThisWorkbook”模块中-这也没有结果。

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Target.Range.Address = "$A$1" Then
        MsgBox ("Yay")
    End If
End Sub

应在单击目标范围为“ A1”的超链接后触发以上例程，这意味着消息框文本应显示给用户。

Answer 1

SubAddress与Sheet1！

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

    If Target.Range.Hyperlinks(1).SubAddress = "Sheet1!A1" Then

        MsgBox ("Yay")
    End If
End Sub