VBA中的事件

事件程序：事件，操作也。事件程序，因操作而触发自动运行程序。

编写位置：工作表和工作表的代码区

1、Change 事件

当用户更改工作表中的单元格，或外部链接引起单元格的更改时产生此事件。

语法

Private Sub Worksheet_Change(ByVal Target As Range)

Target 更改的区域。可以是多个单元格。本质上Target是工作表中的活动变量，代表着更改的区域

说明

1、重新计算引起的单元格更改不触发本事件。可使用 Calculate 事件俘获工作表重新计算操作。

2、Change事件，只要单元格有编辑的动作，无论单元格是否发生变化，都会触发Change事件。

示例

本示例将更改的单元格的颜色设为蓝色。

Private Sub Worksheet_Change(ByVal Target as Range) Target.Font.ColorIndex = 5End Sub

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 区域进行排序。

Private Sub Worksheet_Activate() Range('a1:a10').Sort Key1:=Range('a1'), Order:=xlAscendingEnd Sub

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,代码如下：

Private Sub Workbook_Open()Set App = Excel.ApplicationEnd Sub

然后将含有该代码的工作簿另存为加载项，位置任意；

最后再进行加载宏步骤，此时所有打开的excel文件都会执行excel程序的时间程序。

来源 ：http://www.360doc.com/content/19/0307/07/51566356_819773247.shtml