VBA入门到进阶常用知识代码总结17

第17集 工作表事件程序
68、 工作表事件程序代码放在工作表中，如sheet1，不在模块中。
69、 SelectionChange
鼠标选取单元格时发生改变。Target是一个参数，鼠标选取单元格区域时，参数传递到程序中。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
’ MsgBox Target.Address
If Target.Address <> “$A$1” Then '保护单元格区域
[A1].Select
End If
End Sub
70、 Change
鼠标编辑单元格时发生改变，如输入值、删除值、设置单元格样式等。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False '禁用事件，输入值传递到target后只计算1次
Target = Target * 2
Application.EnableEvents = True '启用事件
End Sub
71、 Activate
激活工作表时触发事件，如鼠标点击激活Sheet2时，将不让选中。
Private Sub Worksheet_Activate()
If ActiveSheet.Name = “Sheet2” Then
Sheets(1).Select
End If
End Sub
72、 Deactivate
离开工作表时触发事件，与activate事件相反。
Private Sub Worksheet_Deactivate()
MsgBox “谢谢使用sheet3”
End Sub
73、 BeforeDoubleClick
双击鼠标触发事件。
74、 BeforeRightClick
右键单击触发事件。不建议使用。
75、 Calculate
单元格发生了重算，触发事件。可用于监控公式的值是是否发生了改变。
Private Sub Worksheet_Calculate()
MsgBox “公式的值发生了改变”
End Sub
76、 FollowHyperlink
鼠标点击超链接时触发事件，如设置超链接为百度首页，则点击后打开百度，再显示百度地址。
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
MsgBox Target.Address
End Sub
77、 PivotTableUpdate
数据透视表更新了就触发事件。
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
MsgBox “数据透视表更新了！”
End Sub