VBA中的事件
事件程序：事件，操作也。事件程序，因操作而触发自动运行程序。
编写位置：工作表和工作表的代码区
1、Change 事件
当用户更改工作表中的单元格，或外部链接引起单元格的更改时产生此事件。
语法
Private Sub Worksheet_Change(ByVal Target As Range)
Target 更改的区域。可以是多个单元格。本质上Target是工作表中的活动变量，代表着更改的区域
说明
1、重新计算引起的单元格更改不触发本事件。可使用 Calculate 事件俘获工作表重新计算操作。
2、Change事件，只要单元格有编辑的动作，无论单元格是否发生变化，都会触发Change事件。
示例
本示例将更改的单元格的颜色设为蓝色。
2、屏蔽和恢复事件触发开关
EnableEvents 属性
如果对指定对象启用事件，则该值为 True。Boolean 类型，可读写。
示例
本示例在保存文件之前禁用事件，以使 BeforeSave 事件不能触发。
Application.EnableEvents = FalseActiveWorkbook.SaveApplication.EnableEvents = True
3、Activate 事件
激活一个工作簿、工作表、图表或嵌入图表时产生此事件。
Private Sub object_Activate()
object Chart、Workbook、或者 Worksheet。有关对 Chart 对象使用事件的详细信息，请参阅 Chart 对象事件的用法。
说明
切换两个显示同一个工作簿的窗口时，将产生 WindowActivate 事件，但不产生工作簿的 Activate 事件。
新建窗口时不产生本事件。
示例
当激活工作表时，本示例对 A1:A10 区域进行排序。
4、工作簿对象事件一览表
当工作簿更改、工作簿中的任何工作表更改、加载宏更改或数据透视表更改时，将引发工作簿事件。工作簿上的事件在默认情况下是可用的。
Activate
激活工作薄时
AddinInstall
当工作簿作为加载宏安装时
AddinUninstall
工作簿作为加载宏卸载时
BeforeClose
关闭工作薄前
BeforePrint
打印工作薄(或其中任何内容)之前
BeforeSave
保存工作薄前
Deactivate
工作簿从活动状态转为非活动状态时
NewSheet
在工作簿中新建工作表时
Open
打开工作簿时
PivotTableCloseConnection
在数据透视表关闭与其数据源的连接之后
PivotTableOpenConnection
在数据透视表打开与其数据源的连接之后
SheetActivate
激活任何一张表时
SheetBeforeDoubleClick
双击任何工作表时
SheetBeforeRightClick
鼠标右键单击任一工作表时
SheetCalculate
工作表重新计算时
SheetChange
更改工作表中的单元格时
SheetDeactivate
任一工作表由活动状态转为非活动状态时
SheetFollowHyperlink
单击 Microsoft Excel 中的任意超链接时
SheetPivotTableUpdate
数据透视表的工作表更新之后
SheetSelectionChange
工作簿中的数据透视表更新之后
WindowActivate
工作簿的窗口激活时
WindowDeactivate
工作簿的窗口变为非活动状态时
WindowResize
工作簿窗口调整大小时
5、工作表(Worksheet) 对象事件一览表
工作表上的事件在默认情况下是可用的。
Activate
激活工作表时
Deactivate
工作表从活动状态转为非活动状态时
BeforeDoubleClick
双击工作表前
BeforeRightClick
右键单击工作表时
Calculate
对工作表进行重新计算之后
Change
更改工作表中的单元格，或外部链接引起单元格时
FollowHyperlink
单击工作表上的任意超链接时
PivotTableUpdate
在工作簿中的数据透视表更新之后
SelectionChange
工作表上的选定区域发生改变时
6、Excel程序事件程序
代码位置：ThisWorkbook或类模块中
适用范围：所有打开的excel文件
在对 Application 对象使用事件之前，必须新建一个类模块并声明一个带有事件的 Application 类型对象。例如，假定新建了一个 EventClassModule 类模块，在该模块中包含下列代码。
Public WithEvents App As Application
在对新对象带事件声明完之后，该对象将显示在类模块的“对象”下拉列表框中，并可以为此新对象编写事件过程（在“对象”框中选取新对象时，“过程”下拉列表框中会自动显示该对象的有效事件）。
在运行过程之前，必须将类模块中声明的对象与 Application 对象连接起来。可在任意的模块中用下列代码完成这一操作。
Dim X As New EventClassModuleSub InitializeApp() Set X.App = ApplicationEnd Sub
在运行 InitializeApp 过程之后，类模块中的 App 对象将指向 Microsoft Excel Application 对象，并且当事件发生时将执行类模块中的事件过程。
如果想要将excel程序的事件程序运行在全部打开的excel文件中，需要新建一个工作簿open事件程序，然后将excel程序对象变量赋值给事件变量，如上文中的App,代码如下：
然后将含有该代码的工作簿另存为加载项，位置任意；
最后再进行加载宏步骤，此时所有打开的excel文件都会执行excel程序的时间程序。
来源 ：http://www.360doc.com/content/19/0307/07/51566356_819773247.shtml
