单击 Microsoft Excel 中的任意超链接时发生此事件。对于工作表级的事件,请参阅“帮助”主题中的 FollowHyperlink 事件。
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Sh Object 类型,必需。表示包含该超链接的 Worksheet 对象。
Target Hyperlink 类型,必需。一个 Hyperlink 对象,该对象代表超链接的目标位置。
本示例对当前工作簿中所有已单击过的超链接保留一个列表或历史记录,其中也包括含有这些超链接的工作表名称。
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh as Object, _
ByVal Target As Hyperlink)
UserForm1.ListBox1.AddItem Sh.Name & ":" & Target.Address
UserForm1.Show
End Sub