excel - 超链接不触发宏

Question

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

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

我真的很困惑为什么代码无法触发。任何帮助将非常感激！

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

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

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

标签： excelvba

Answer 1

子地址与 Sheet1！

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

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

        MsgBox ("Yay")
    End If
End Sub