11、Activate 事件

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

语法

Private Sub object_Activate()

object Chart、Workbook、或者 Worksheet。有关使用 Chart 对象的事件的详细内容，请参阅嵌入式图表事件的用法。

说明

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

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

Activate 事件示例

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

Private Sub Worksheet_Activate()

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

End Sub

Activate 方法示例

本示例激活工作表“Sheet1”。

Worksheets("Sheet1").Activate

本示例选定工作表“Sheet1”中的单元格区域“A1:C3”，并激活单元格“B2”。

Worksheets("Sheet1").Activate

Range("A1:C3").Select

Range("B2").Activate

本示例激活工作簿 Book4.xls。如果工作簿 Book4.xls 有若干窗口，本示例激活第一个，即 Book4.xls:1。

Workbooks("BOOK4.XLS").Activate

12、Activate、 Deactivate 事件

在对象变成活动窗口的时候就会发生 Activate 事件。而当对象不再是活动窗口时，则会发生 Deactivate 事件。

语法

Private Sub object_Activate()

Private Sub object_Deactivate()

object 代表一个对象表达式，其值为“应用于”列表中的对象。

说明

对象可使用代码中的 Show 方法变成活动的。

只有在对象是可见的时候才会发生 Activate 事件。除非使用 Show 方法，否则用 Load 加载的 UserForm是不可见的。

只有在应用程序中移动焦点时才会发生 Activate 及 Deactivate 事件。而将焦点移出或移动到另一个应用程序中的对象并不会触发此事件。

在卸载对象时，并不会发生 Deactivate 事件。

13、Activate 方法

激活对象，如下表所示。

语法

expression.Activate

expression必选。该表达式返回“应用于”列表中的对象。