工作薄、工作表事件一览表

工作簿对象事件一览表

当工作簿更改、工作簿中的任何工作表更改、加载宏更改或数据透视表更改时，将引发工作簿事件。工作簿上的事件在默认情况下是可用的。若要查看工作簿的事件过程，请用鼠标右键单击处于还原状态或最小化状态的工作簿窗口标题栏，再单击快捷菜单上的“查看代码”。在“过程”下拉列表框内选择事件名称。

本示例在打开工作簿时将 Microsoft Excel 窗口最大化。

Sub Workbook_Open()

Application.WindowState = xlMaximized

End Sub

Activate 事件

激活一个工作簿、工作表、图表或嵌入图表时产生此事件。

Private Sub object_Activate()

object Chart、Workbook、或者Worksheet。有关对Chart对象使用事件的详细信息，请参阅图表对象事件的用法。

说明

切换两个显示同一个工作簿的窗口时，将产生 WindowActivate 事件，但不产生工作簿的 Activate 事件。

新建窗口时不产生本事件。

示例

当激活工作表时，本示例对 A1:A10 区域进行排序。

Private Sub Worksheet_Activate()

Range("a1:a10").Sort Key1:=Range("a1"), Order:=xlAscending

End Sub

AddinInstall 事件

当工作簿作为加载宏安装时，产生此事件。

Private Sub Workbook_AddinInstall()

示例

当指定工作簿作为加载宏安装时，本示例将一个控件添加到常用工具栏中。

Private Sub Workbook_AddinInstall()

With mandbars("Standard").Controls.Add

.Caption = "The AddIn's menu item"

.OnAction = "'ThisAddin.xls'!Amacro"

End With End Sub

End Sub

AddinUninstall 事件

当工作簿作为加载宏卸载时，产生此事件。

Private Sub Workbook_AddinUninstall()

说明

卸载加载宏时，该加载宏并不自动关闭。

示例

当指定工作簿作为加载宏卸载时，本示例将 Microsoft Excel 最小化。

Private Sub Workbook_AddinUninstall()

Application.WindowState = xlMinimized

End Sub

BeforeClose 事件

在关闭工作簿之前，先产生此事件。如果该工作簿已经更改过，则本事件在询问用户是否保存更改之前产生。

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Cancel 当事件产生时为False。如果该事件过程将本参数设为True，则停止对工作簿的关闭操作，工作薄仍处于打开状态。

示例

本示例将 BeforeClose 事件的响应设置为保存工作簿的任何更改。

Private Sub Workbook_BeforeClose(Cancel as Boolean)

If Me.Saved = False Then Me.Save

End Sub

BeforePrint 事件

在打印指定工作簿（或者其中的任何内容）之前，产生此事件。

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Cancel 当事件产生时为False。如果该事件过程将本参数设为True，则当该过程运行结束之后不打印工作簿。

示例

本示例在打印之前对当前活动工作簿的所有工作表重新计算。

Private Sub Workbook_BeforePrint(Cancel As Boolean)

For Each wk in Worksheets

wk.Calculate

Next

End Sub

BeforeSave 事件

保存工作簿之前产生此事件。

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)

SaveAsUi 如果显示“另存为”对话框，则为True。

Cancel 当事件产生时为False。如果该事件过程将本参数设为True，则该过程执行结束之后不保存工作簿。

示例

本示例在保存工作簿之前询问用户是否保存。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _

Cancel as Boolean)

a = MsgBox("Do you really want to save the workbook?", vbYesNo)

If a = vbNo Then Cancel = True

End Sub

Deactivate 事件

图表、工作表或工作簿从活动状态转为非活动状态时产生此事件。

Private Sub object_Deactivate()

object Chart、Workbook或者Worksheet。有关对Chart对象使用事件的详细信息，请参阅 Chart 对象事件的用法。

示例

本示例当工作簿转为非活动状态时，对所有打开的窗口进行排列。

Private Sub Workbook_Deactivate()

Application.Windows.Arrange xlArrangeStyleTiled

End Sub

NewSheet 事件

当在工作簿中新建工作表时产生此事件。

Private Sub Workbook_NewSheet(ByVal Sh As Object)

Sh 新工作表。可以是一个Worksheet或Chart对象。

示例

本示例将新建的工作表移到工作簿的末尾。

Private Sub Workbook_NewSheet(ByVal Sh as Object)

Sh.Move After:= Sheets(Sheets.Count)

End Sub

Open 事件

打开工作簿时，将产生本事件。

Private Sub Workbook_Open()