1、 FollowHyperlink 事件

当单击工作表上的任意超链接时，发生此事件对于应用程序级或工作簿级的事件，请参阅 SheetFollowHyperlink 事件

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

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

2、 本示例对在当前活动工作簿中访问过的所有链接保留一个列表或历史记录

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

With UserForm1

.ListBox1.AddItem Target.Address

.Show

End With

End Sub

3、 PivotTableUpdate 事件

发生在工作簿中的数据透视表更新之后

Private Sub expression_PivotTableUpdate(ByVal Target As PivotTable)

expression 引用在类模块中带有事件声明的 Worksheet 类型对象的变量

Target 必需选定的数据透视表

4、 本示例显示一则消息，说明数据透视表已经更新本示例假定您已在类模块中声明了带有事件的 Worksheet 类型的对象

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

MsgBox "The PivotTable connection has been updated."

End Sub

5、 SelectionChange 事件

当工作表上的选定区域发生改变时，将产生本事件

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Target 新选定的区域

6、 本示例滚动工作簿窗口，直至选定区域位于窗口的左上角

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With ActiveWindow

.ScrollRow = Target.Row

.ScrollColumn = Target.Column

End With

End Sub

7、 本示例显示活动工作簿中工作表 sheet1 上单元格 A1 中的值

MsgBox Worksheets("Sheet1").Range("A1").Value

8、 本示例显示活动工作簿中每个工作表的名称

For Each ws In Worksheets

MsgBox ws.Name

Next ws

9、 本示例向活动工作簿添加新工作表，并设置该工作表的名称

Set newSheet = Worksheets.Add

newSheet.Name = "current Budget"

10、 本示例关闭工作簿 Book1.xls，但不提示用户保存所作更改Book1.xls 中的所有更改都不会保存

Application.DisplayAlerts = False

Workbooks("BOOK1.XLS").Close

Application.DisplayAlerts = True

11、 本示例设置保存文件时显示提示，要求用户输入汇总信息

Application.PromptForSummaryInfo = True

12、 本示例显示 Microsoft Excel 的完整路径

Private Sub aa()

MsgBox "The path is " & Application.Path

End Sub

13、 示例显示每一个可用加载宏的路径及文件名

For Each a In AddIns

MsgBox a.FullName

Next a

ChDir 语句