Excel VBA教程:SheetFollowHyperlink事件

单击 Microsoft Excel 中的任意超链接时发生此事件。对于工作表级的事件,请参阅“帮助”主题中的FollowHyperlink事件。

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

Sh   Object 类型,必需。表示包含该超链接的 Worksheet对象。

Target   Hyperlink 类型,必需。一个 Hyperlink对象,该对象代表超链接的目标位置。

Excel VBA教程:SheetFollowHyperlink事件·示例

本示例对当前工作簿中所有已单击过的超链接保留一个列表或历史记录,其中也包括含有这些超链接的工作表名称。


Private Sub Workbook_SheetFollowHyperlink(ByVal Sh as Object, _
    ByVal Target As Hyperlink)
    UserForm1.ListBox1.AddItem Sh.Name & ":" & Target.Address
    UserForm1.Show
End Sub

上页:Excel VBA教程:SheetDeactivate事件 下页:Excel VBA教程:SheetPivotTableUpdate事件

Excel VBA教程:SheetFollowHyperlink事件

Excel VBA教程:SheetPivotTableUpdate事件 Excel VBA教程:SheetSelectionChange事件
Excel VBA教程:WindowActivate事件 Excel VBA教程:WindowDeactivate事件
Excel VBA教程:WindowResize事件 Excel VBA教程:WorkbookActivate事件
Excel VBA教程:WorkbookAddinInstall事件 Excel VBA教程:WorkbookAddinUninstall事件
Excel VBA教程:WorkbookBeforeClose事件 Excel VBA教程:WorkbookBeforePrint事件
Excel VBA教程:WorkbookBeforeSave事件 Excel VBA教程:WorkbookDeactivate事件
Excel VBA教程:WorkbookNewSheet事件 Excel VBA教程:WorkbookOpen事件
Excel VBA教程:WorkbookPivotTableCloseConnection事件 Excel VBA教程:WorkbookPivotTableOpenConnection事件
Excel VBA教程:SolverAdd函数 Excel VBA教程:SolverChange函数
Excel VBA教程:SolverDelete函数 Excel VBA教程:SolverFinish函数
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号