默认情况下，工作表上的事件为启用状态。 若要查看工作表的事件过程，请右键单击工作表标签，再单击快捷菜单上的“查看代码”。 从“ 过程 ”列表框中选择以下事件之一。
Activate
BeforeDoubleClick
BeforeRightClick
Calculate
Change
Deactivate
FollowHyperlink
PivotTableUpdate
SelectionChange
工作表级事件发生在工作表被激活、用户更改工作表上的单元格，或更改数据透视表时。 下例在重新计算工作表时调整 A 列到 F 列的大小。
Private Sub Worksheet_Calculate()
Columns("A:F").AutoFit
End Sub
有些事件可用于将某操作取代默认的应用程序操作，或对默认操作进行一些小改动。 下例捕获了右键单击事件，并在单元格区域 B1:B10 的快捷菜单中添加了新的菜单项。
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
For Each icbc In Application.CommandBars("cell").Controls
If icbc.Tag = "brccm" Then icbc.Delete
Next icbc
If Not Application.Intersect(Target, Range("b1:b10")) _
Is Nothing Then
With Application.CommandBars("cell").Controls _
.Add(Type:=msoControlButton, before:=6, _
temporary:=True)
.Caption = "New Context Menu Item"
.OnAction = "MyMacro"
.Tag = "brccm"
End With
End If
End Sub
另请参阅
Excel 函数（按类别）
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。