搜索
工作簿对象事件一览表当工作簿更改、工作簿中的任何工作表更改、加载宏更改或数据透视表更改时，将引发工作簿事件。工作簿上的事件在默认情况下是可用的。若要查看工作簿的事件过程，请用鼠标右键单击处于还原状态或最小化状态的工作簿窗口标题栏，再单击快捷菜单上的“查看代码”。在“过程”下拉列表框内选择事件名称。事件说明Activate激活工作薄时AddinInstall当工作簿作为加载宏安装时AddinUninstall工作簿作为加载宏卸载时BeforeClose关闭工作薄前BeforePrint打印工作薄(或其中任何内容)之前BeforeSave保存工作薄前Deactivate工作簿从活动状态转为非活动状态时NewSheet在工作簿中新建工作表时Open打开工作簿时PivotTableCloseConnection在数据透视表关闭与其数据源的连接之后PivotTableOpenConnection在数据透视表打开与其数据源的连接之后SheetActivate激活任何一张表时SheetBeforeDoubleClick双击任何工作表时SheetBeforeRightClick鼠标右键单击任一工作表时SheetCalculate工作表重新计算时SheetChange更改工作表中的单元格时SheetDeactivate任一工作表由活动状态转为非活动状态时SheetFollowHyperlink单击MicrosoftExcel中的任意超链接时SheetPivotTableUpdate数据透视表的工作表更新之后SheetSelectionChange工作簿中的数据透视表更新之后WindowActivate工作簿的窗口激活时WindowDeactivate工作簿的窗口变为非活动状态时WindowResize工作簿窗口调整大小时本示例在打开工作簿时将MicrosoftExcel窗口最大化。SubWorkbook_Open()Application.WindowState=xlMaximizedEndSubActivate事件激活一个工作簿、工作表、图表或嵌入图表时产生此事件。PrivateSubobject_Activate()objectChart、Workbook、或者Worksheet。有关对Chart对象使用事件的详细信息，请参阅图表对象事件的用法。说明切换两个显示同一个工作簿的窗口时，将产生WindowActivate事件，但不产生工作簿的Activate事件。新建窗口时不产生本事件。示例当激活工作表时，本示例对A1:A10区域进行排序。PrivateSubWorksheet_Activate()Range(a1:a10).SortKey1:=Range(a1),Order:=xlAscendingEndSubAddinInstall事件当工作簿作为加载宏安装时，产生此事件。PrivateSubWorkbook_AddinInstall()示例当指定工作簿作为加载宏安装时，本示例将一个控件添加到常用工具栏中。PrivateSubWorkbook_AddinInstall()WithApplication.Commandbars(Standard).Controls.Add.Caption=TheAddIn'smenuitem.OnAction='ThisAddin.xls'!AmacroEndWithEndSubEndSubAddinUninstall事件当工作簿作为加载宏卸载时，产生此事件。PrivateSubWorkbook_AddinUninstall()说明卸载加载宏时，该加载宏并不自动关闭。示例当指定工作簿作为加载宏卸载时，本示例将MicrosoftExcel最小化。PrivateSubWorkbook_AddinUninstall()Application.WindowState=xlMinimizedEndSubBeforeClose事件在关闭工作簿之前，先产生此事件。如果该工作簿已经更改过，则本事件在询问用户是否保存更改之前产生。PrivateSubWorkbook_BeforeClose(CancelAsBoolean)Cancel当事件产生时为False。如果该事件过程将本参数设为True，则停止对工作簿的关闭操作，工作薄仍处于打开状态。示例本示例将BeforeClose事件的响应设置为保存工作簿的任何更改。PrivateSubWorkbook_BeforeClose(CancelasBoolean)IfMe.Saved=FalseThenMe.SaveEndSubBeforePrint事件在打印指定工作簿（或者其中的任何内容）之前，产生此事件。PrivateSubWorkbook_BeforePrint(CancelAsBoolean)Cancel当事件产生时为False。如果该事件过程将本参数设为True，则当该过程运行结束之后不打印工作簿。示例本示例在打印之前对当前活动工作簿的所有工作表重新计算。PrivateSubWorkbook_BeforePrint(CancelAsBoolean)ForEachwkinWorksheetswk.CalculateNextEndSubBeforeSave事件保存工作簿之前产生此事件。PrivateSubWorkbook_BeforeSave(ByValSaveAsUiAsBoolean,CancelAsBoolean)SaveAsUi如果显示“另存为”对话框，则为True。Cancel当事件产生时为False。如果该事件过程将本参数设为True，则该过程执行结束之后不保存工作簿。示例本示例在保存工作簿之前询问用户是否保存。PrivateSubWorkbook_BeforeSave(ByValSaveAsUIAsBoolean,_CancelasBoolean)a=MsgBox(Doyoureallywanttosavetheworkbook?,vbYesNo)Ifa=vbNoThenCancel=TrueEndSubDeactivate事件图表、工作表或工作簿从活动状态转为非活动状态时产生此事件。PrivateSubobject_Deactivate()objectChart、Workbook或者Worksheet。有关对Chart对象使用事件的详细信息，请参阅Chart对象事件的用法。示例本示例当工作簿转为非活动状态时，对所有打开的窗口进行排列。PrivateSubWorkbook_Deactivate()Application.Windows.ArrangexlArrangeStyleTiledEndSubNewSheet事件当在工作簿中新建工作表时产生此事件。PrivateSubWorkbook_NewSheet(ByValShAsObject)Sh新工作表。可以是一个Worksheet或Chart对象。示例本示例将新建的工作表移到工作簿的末尾。PrivateSubWorkbook_NewSheet(ByValShasObject)Sh.MoveAfter:=Sheets(Sheets.Count)EndSubOpen事件打开工作簿时，将产生本事件。PrivateSubWorkbook_Open()示例每次打开工作簿时，本示例都最大化MicrosoftExcel窗口。PrivateSubWorkbook_Open()Application.WindowState=xlMaximizedEndSubPivotTableCloseConnection事件发生在数据透视表关闭与其数据源的连接之后。PrivateSubexpression_PivotTableCloseConnection(ByValTargetAsPivotTable)expression引用在类模块中带有事件声明的Workbook类型对象的变量。Target必需。选定的数据透视表。示例本示例显示一则消息，说明数据透视表与其数据源的连接已经关闭。本示例假定您已在类模块中声明了带有事件的Workbook类型的对象。PrivateSubConnectionApp_PivotTableCloseConnection(ByValTargetAsPivotTable)MsgBoxThePivotTableconnectionhasbeenclosed.EndSubPivotTableOpenConnection事件发生在数据透视表打开与其数据源的连接之后。PrivateSubexpression_PivotTableOpenConnection(ByValTargetAsPivotTable)expression引用在类模块中带有事件声明的Workbook类型对象的变量。Target必需。选定的数据透视表。示例本示例显示一则消息，说明数据透视表与其数据源的连接已经打开。本示例假定您已在类模块中声明了带有事件的Workbook类型的对象。PrivateSubConnectionApp_PivotTableOpenConnection(ByValTargetAsPivotTable)MsgBoxThePivotTableconnectionhasbeenopened.EndSubSheetActivate事件当激活任何一张表时产生此事件。PrivateSubobject_SheetActivate(ByValShAsObject)objectApplication对象或Workbook对象。Sh激活的表。可以是一个Chart对象或Worksheet对象。示例本示例显示每一张激活的表的名称。PrivateSubWorkbook_SheetActivate(ByValShAsObject)MsgBoxSh.NameEndSubSheetBeforeDoubleClick事件当双击任何工作表时产生此事件，此事件先于默认的双击操作发生。PrivateSubobject_SheetBeforeDoubleClick(ByValShAsObject,ByValTargetAsRange,ByValCancelAsBoolean)objectApplication对象或Workbook对象。有关对Application对象使用事件的详细信息，请参阅Application对象事件的用法。Sh代表该工作表的Worksheet对象。Target当双击事件发生时最靠近鼠标指针的单元格。Cancel当事件发生时为False。如果事件过程将该参数设为True，则该过程执行完之后将不进行默认的双击操作。说明图表不产生该事件。示例本示例关闭默认的双击操作。PrivateSubWorkbook_SheetBeforeDoubleClick(ByValShAsObject,_ByValTargetAsRange,ByValCancelAsBoolean)Cancel=TrueEndSubSheetBeforeRightClick事件当用鼠标右键单击任一工作表时产生此事件，此事件先于默认的右键单击操作。PrivateSubobject_SheetBeforeRightClick(ByValShAsObject,ByValTargetAsRange,ByValCancelAsBoolean)objectApplication对象或Workbook对象。有关对Application对象使用事件的详细信息，请参阅Application对象事件的用法。Sh代表该工作表的Worksheet对象。Target当右键单击事件发生时最靠近鼠标指针的单元格。Cancel当事件产生时为False。如果该事件过程将本参数设为True，则该过程执行结束之后将不执行默认的右键单击操作。说明图表不产生该事件。示例本示例关闭默认的右键单击操作。有关其他示例的详细信息。请参阅BeforeRightClick事件示例。PrivateSubWorkbook_SheetBefor