Worksheet 对象事件

Worksheet 对象事件


工作表上的事件在默认情况下是可用的。若要查看工作表的事件过程，请用鼠标右键单击工作表标签，再单击快捷菜单上的“查看代码”。在“过程”下拉列表框内选择事件名称。

1、Activate

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


2、BeforeDoubleClick

图表、工作表或工作簿从活动状态转为非活动状态时产生此事件。

3、BeforeRightClick

应用于 Worksheet 对象的 Activate 方法。

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


4、Calculate

当单击工作表上的任意超链接时，发生此事件。对于应用程序级或工作簿级的事件，请参阅 SheetFollowHyperlink 事件。


5、Change

应用于 Worksheet 对象的 Activate 方法。

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


6、Deactivate

发生在工作簿中的数据透视表更新之后。


7、FollowHyperlink

对于 Chart 对象，在图表对新的数据点或者更改的数据点绘制之后产生此事件。对于 Worksheet 对象，在对工作表进行重新计算之后产生此事件。


8、PivotTableUpdate

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


9、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