激活一个工作簿、工作表、图表或嵌入式图表时产生此事件。
语法
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").Activate12、Activate、 Deactivate 事件
在对象变成活动窗口的时候就会发生 Activate 事件。而当对象不再是活动窗口时，则会发生 Deactivate 事件。
语法
Private Sub object_Activate()
Private Sub object_Deactivate()
object 代表一个对象表达式，其值为“应用于”列表中的对象。
说明
对象可使用代码中的 Show 方法变成活动的。
只有在对象是可见的时候才会发生 Activate 事件。除非使用 Show 方法，否则用 Load 加载的 UserForm是不可见的。
只有在应用程序中移动焦点时才会发生 Activate 及 Deactivate 事件。而将焦点移出或移动到另一个应用程序中的对象并不会触发此事件。
在卸载对象时，并不会发生 Deactivate 事件。
13、Activate 方法激活对象，如下表所示。
对象 | 说明 |
Chart，ChartObject | 使该图表成为活动图表。 |
Worksheet | 使该工作表成为活动工作表。等同于单击工作表的选项卡。 |
OLEObject | 激活对象。 |
Pane | 激活窗格。如果该窗格不在活动窗口，则该窗格所属的窗口也将激活。不能激活冻结的窗格。 |
Range | 激活单个单元格，该单元格必须处于当前选定区域内。可用 Select 方法选定单元格区域。 |
Window | 将窗口提到 Z-次序的最前面。这样不会引起可能附加在工作簿上的 Auto_Activate 或 Auto_Deactivate 宏的运行（可用 RunAutoMacros 方法运行这些宏）。 |
Workbook | 激活与该工作簿相关的第一个窗口。这样不会引起可能附加在工作簿上的 Auto_Activate 或 Auto_Deactivate 宏的运行（可用 RunAutoMacros 方法运行这些宏）。 |
语法
expression.Activate
expression必选。该表达式返回“应用于”列表中的对象。
