EXCEL VBA 事件

事件
1. 有触发条件
2. 自动执行
3. 工作表级14个，工作薄级36个(包含所有工作表级)，应用程序级43个(包含所有工作薄，工作表级)

如下代码会产生递归调用问题：
Private Sub Worksheet_Change(ByVal Target As Range)
Target = Target -1
End Sub

防止出现递归调用事件：
Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False
 Target = Target -1
 Application.EnableEvents = True
End Sub