### Excel VBA 事件详解
#### 一、Activate 事件
**定义：**
当激活一个工作簿、工作表、图表或嵌入式图表时产生此事件。
**语法：**
```vba
Private Sub object_Activate()
```
其中 `object` 可以是 `Chart`、`Workbook` 或者 `Worksheet`。
**注意事项：**
- 当切换两个显示同一工作簿的窗口时，会产生 `WindowActivate` 事件，但不会产生工作簿的 `Activate` 事件。
- 新建窗口时不会产生此事件。
**示例：**
以下示例演示了如何在激活工作表时对 A1:A10 区域进行排序。
```vba
Private Sub Worksheet_Activate()
Range("a1:a10").Sort Key1:=Range("a1"), Order:=xlAscending
End Sub
```
#### （1）嵌入式图表事件的用法
**背景：**
默认情况下，图表工作表的事件是可用的，但在使用嵌入式图表的事件之前，需要创建一个新的类模块，并声明 `Chart` 类型的对象来处理这些事件。
**实现步骤：**
1. **创建类模块**：首先创建一个新类模块，例如命名为 `EventClassModule`。
2. **声明对象**：在类模块中声明一个具有事件的对象，如下所示：
```vba
Public WithEvents myChartClass As Chart
```
3. **编写事件处理过程**：一旦声明了对象，它就会出现在类模块的“对象”下拉列表框中，可以选择该对象并为其编写事件处理过程。
4. **关联对象**：为了使事件处理过程生效，必须将类模块中声明的对象与相应的嵌入式图表关联起来。可以在任意模块中通过以下代码完成关联：
```vba
Dim myClassModule As New EventClassModule
Sub InitializeChart()
Set myClassModule.myChartClass = Worksheets(1).ChartObjects(1).Chart
End Sub
```
5. **触发事件**：运行了 `InitializeChart` 过程后，类模块中的 `myChartClass` 对象将指向第一张工作表上的第一个嵌入式图表，并且当事件产生时，会触发类模块中的事件处理过程。
#### 二、AddinInstall 事件
**定义：**
当工作簿作为加载宏载入时产生此事件。
**语法：**
```vba
Private Sub Workbook_AddinInstall()
```
**示例：**
以下示例展示了如何在工作簿作为加载宏载入时将一个控件添加到标准工具栏中。
```vba
Private Sub Workbook_AddinInstall()
With Application.CommandBars("Standard").Controls.Add
.Caption = "The Add-In's menu item"
.OnAction = "'ThisAddin.xls'!Amacro"
End With
End Sub
```
#### 三、AddinUninstall 事件
**定义：**
当工作簿作为加载宏卸载时产生此事件。
**语法：**
```vba
Private Sub Workbook_AddinUninstall()
```
**注意事项：**
卸载加载宏并不会同时关闭该加载宏。
**示例：**
以下示例展示了如何在工作簿作为加载宏卸载时将 Microsoft Excel 最小化。
```vba
Private Sub Workbook_AddinUninstall()
Application.WindowState = xlMinimized
End Sub
```
#### 四、AfterRefresh 事件
**定义：**
当一个查询完成或者取消时产生此事件。
**语法：**
```vba
Private Sub QueryTable_AfterRefresh(Success As Boolean)
```
其中 `Success` 参数表示查询是否成功完成。
**示例：**
以下示例展示了如何使用 `Success` 参数判断查询是否成功完成。
```vba
Private Sub QueryTable_AfterRefresh(Success As Boolean)
If Success Then
' 查询成功完成
Else
' 查询失败或被取消
End If
End Sub
```
#### 五、BeforeClose 事件
**定义：**
关闭工作簿时先产生此事件。如果该工作簿已经更改过，本事件会在询问用户是否保存更改之前产生。
**语法：**
```vba
Private Sub Workbook_BeforeClose(Cancel As Boolean)
```
其中 `Cancel` 参数用于控制是否取消关闭操作。
**示例：**
以下示例展示了如何设置 `BeforeClose` 事件的响应，以自动保存工作簿的任何更改。
```vba
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = False
If ThisWorkbook.IsModified Then
ThisWorkbook.Save
End If
End Sub
```
通过以上介绍，我们可以了解到 Excel VBA 中不同的事件及其应用场景，这些事件可以帮助我们更好地控制和自动化 Excel 的各种操作。
