Excel VBA Change事件宏陷入无限循环，求解决办法

核心问题原因 #

你遇到的无限循环，是因为Target.Value = Now会再次触发Worksheet_Change事件，导致宏反复执行。解决的关键是在修改单元格内容时临时禁用Excel的事件触发机制。

修改后的可用代码 #

针对你的考勤表需求，调整后的宏代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义需要监控的考勤单元格范围（C4:C11为Arrival，D4:D11为Departure）
    Dim watchRange As Range
    Set watchRange = Me.Range("C4:C11, D4:D11")
    
    ' 仅处理监控范围内的单个单元格修改
    If Not Intersect(Target, watchRange) Is Nothing And Target.Cells.Count = 1 Then
        ' 禁用事件触发，阻止无限循环
        Application.EnableEvents = False
        
        ' 仅当用户输入内容（如空格）时，写入当前日期时间
        If Trim(Target.Value) <> "" Then
            Target.Value = Now
            ' 设置单元格格式为清晰的日期时间格式
            Target.NumberFormat = "yyyy-mm-dd hh:mm:ss"
        End If
        
        ' 必须重新启用事件，否则后续Excel事件会失效
        Application.EnableEvents = True
    End If
End Sub

关键细节说明 #

• Application.EnableEvents = False：这行代码会关闭Excel的事件监听，此时修改单元格值不会再次触发Worksheet_Change，从根源上解决循环问题。操作完成后务必设回True，否则其他Excel事件（如公式计算、其他宏触发）会失效。
• 扩展监控范围：把Departure对应的列（示例中为D4:D11）加入监控，符合考勤表的实际需求。
• 单个单元格判断：避免用户批量粘贴或修改多个单元格时，宏出现异常。
• 输入内容判断：只有当用户输入了有效内容（比如空格）才写入时间，减少误触发。

更优实现方案：双击写入时间 #

如果觉得输入空格再回车的操作繁琐，可以改用Worksheet_BeforeDoubleClick事件，用户双击对应单元格直接写入时间，操作更高效，且完全避免循环问题：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim watchRange As Range
    Set watchRange = Me.Range("C4:C11, D4:D11")
    
    If Not Intersect(Target, watchRange) Is Nothing Then
        Cancel = True ' 取消默认的双击进入编辑模式
        ' 仅当单元格为空时写入时间，避免覆盖已有记录
        If Target.Value = "" Then
            Target.Value = Now
            Target.NumberFormat = "yyyy-mm-dd hh:mm:ss"
        End If
    End If
End Sub

额外优化建议 #

• 可以给考勤单元格设置特殊格式（比如填充颜色），让用户更容易找到对应的Arrival/Departure位置。
• 给工作表设置保护，锁定已写入时间的单元格，防止误修改。

内容的提问来源于stack exchange，提问作者Steve Vardy