EXCEL VBA 事件示例说明

《EXCEL VBA 事件示例说明》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、二、Excel事件（A-E）1、Activate事件激活一个工作簿、工作表、图表或嵌入式图表时产生此事件。语法PrivateSubobject_Activate()objectChart、Workbook、或者Worksheet。有关使用Chart对象的事件的详细内容，请参阅（1）嵌入式图表事件的用法。说明切换两个显示同一工作簿的窗口时，将产生WindowActivate事件，但不产生工作簿的Activate事件。新建窗口时不产生本事件。示例：Activate事件示例本示例当激活工作表时对A1:A10区域进行排序。PrivateSubWorksheet

2、_Activate()Range("a1:a10").SortKey1:=Range("a1"),Order:=xlAscendingEndSub（1）嵌入式图表事件的用法默认情况下，图表工作表的事件都是可用的。但在使用嵌入式图表的事件之前，必须创建新的类模块，并与事件一起声明Chart类型的对象。例如，假定创建了新的类模块“EventClassModule”，该模块内应包含下述代码：PublicWithEventsmyChartClassAsChart与事件一起声明了新的对象之后，该对象将出现在类模块的“Object”下拉列表框内；此时就可为该对象编

3、写事件处理过程了。（在“对象”下拉列表框内选定该对象后，“过程”下拉列表框内将列出该对象的有效事件）。在事件处理过程运行之前，必须将类模块中声明的对象与相应的嵌入式图表连接起来。可在任意的模块中用下述代码完成这一操作。DimmyClassModuleAsNewEventClassModuleSubInitializeChart()SetmyClassModule.myChartClass=_Worksheets(1).ChartObjects(1).ChartEndSub运行了“InitializeChart”过程之后，类模块中的myChartClas

4、s对象将指向第一张工作表上的第一个嵌入式图表，并且当事件产生时，将触发类模块中的事件处理过程。2、AddinInstall事件当工作簿作为加载宏载入时产生此事件。语法PrivateSubWorkbook_AddinInstall()示例：AddinInstall事件示例本示例当指定工作簿作为加载宏载入时将一个控件添加到标准工具栏中。PrivateSubWorkbook_AddinInstall()WithApplication.Commandbars("Standard").Controls.Add.Caption="TheAddIn'smenuite

5、m".OnAction="'ThisAddin.xls'!Amacro"EndWithEndSubEndSub3、AddinUninstall事件当工作簿作为加载宏卸载时产生此事件。语法PrivateSubWorkbook_AddinUninstall()说明卸载加载宏并不同时关闭该加载宏。示例：AddinUninstall事件示例本示例当指定工作簿作为加载宏卸载时将MicrosoftExcel最小化。PrivateSubWorkbook_AddinUninstall()Application.WindowState=xlMinimizedEndSub

6、4、AfterRefresh事件当一个查询完成或者取消时产生此事件。语法PrivateSubQueryTable_AfterRefresh(SuccessAsBoolean)Success如果查询成功完成则为True。示例：AfterRefresh事件示例本示例使用Success参数判断查询是否成功完成。PrivateSubQueryTable_AfterRefresh(SuccessAsBoolean)IfSuccess'QuerycompletedsuccessfullyElse'QueryfailedorwascancelledEndIfEndS

7、ub5、BeforeClose事件关闭工作簿时先产生此事件。如果该工作簿已经更改过，本事件在询问用户是否保存更改之前产生。语法PrivateSubWorkbook_BeforeClose(CancelAsBoolean)Cancel当事件产生时为False。如果该事件过程将本参数设为True，则停止对工作簿的关闭操作，工作薄仍处于打开状态。示例：BeforeClose事件示例本示例将BeforeClose事件的响应设置为保存工作簿的任何更改。PrivateSubWorkbook_BeforeClose(CancelasBoolean)IfMe.Save

8、d=FalseThenMe.SaveEndSub6、BeforeDoubleClick事件（缺