1. Activate事件
　Activate －当一个对象成为活动窗口时发生。
  Activate 事件在 GotFocus 事件之前发生，

例：切换到当前工作表后弹出对话框。

Private Sub Worksheet_Activate()

 MsgBox "当前活动的表格是: " & ActiveWindow.Caption

End Sub

2.BeforeDoubleClick事件

当双击某工作表时产生此事件，此事件先于默认的双击操作。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 MsgBox "双击前弹出此对话框 "
End Sub

3.BeforeRightClick事件

当用鼠标右键单击某工作表时产生此事件，此事件先于默认的右键单击操作

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 MsgBox "右击前弹出此对话框 "
End Sub

4.Calculate事件

在对工作表进行重新计算之后产生此事件。

例：当工作表重新计算时，调整 A 列到 F 列的宽度。

Private Sub Worksheet_Calculate()
    Columns("A:F").AutoFit
End Sub

5.Change事件

当工作表单元格数值被修改后，就会触发Change事件

例：我们想只有修改某个单元格区域，比如Ｄ列的单元格的时候，才弹出这个对话框告诉我们

Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Column = 4 Then
   MsgBox "刚刚修改的单元格地址是：" & Target.Address
   End If

End Sub

6.Deactivate事件

　Deactivate －当一个对象不再是活动窗口时发生。
  LostFocus 事件在 Deactivate 事件之前发生。

例：切换到其他工作表后弹出对话框。

Private Sub Worksheet_Deactivate()
     MsgBox "不再活动的表格是: " & ActiveWindow.Caption
End Sub

7.FollowHyperlink事件

单击 Microsoft Excel 中的任意超链接时发生此事件

例：点击超链接后弹出对话框，并显示打开的文件名（插入一个超链接，并点击。）

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh as Object, _
    ByVal Target As Hyperlink)
    MsgBox "打开的文件是: " & Target.Address
End Sub
　
8.PivotTableUpdate事件

在工作表上更新数据透视表之后发生。

9.SelectionChange 事件

   当工作表上的选定区域发生改变时，将产生本事件。

   Target 为新选定的区域

例：滚动工作簿窗口，直至选定区域位于窗口的左上角。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    With ActiveWindow
        .ScrollRow = Target.Row
        .ScrollColumn = Target.Column
    End With

End Sub