Question

Private Sub Worksheet_Change(ByVal Target As Range)帮我解释一下，下面每一句的意思

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 5 And Target.Row < 7 Then Cells(Target.Row + 1, 1).Select
Application.EnableEvents = True
End Sub

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
' 定义VBA，并规定了该VBA只能作用于工作表，并随时监控工作表的变化
Application.EnableEvents = False
' 程序执行一次 不重新打开就不执行任务了
If Target.Column = 5 And Target.Row < 7 Then Cells(Target.Row + 1, 1).Select
' 如果当前列号=5，并且当前行号<7，那么，当前行的下一行、第一列被选择
Application.EnableEvents = True
' 程序可以多次运行

------------------------------------
欢迎到Excel Home论坛学习、交流