事件
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
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/24751738/viewspace-710808/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/24751738/viewspace-710808/