无法配置多Worksheet_Change事件实现同一列时间戳？扑克表格VBA求助

原代码的核心问题是使用了多次Exit Sub，只要第一个判断不满足就直接终止程序，导致后续列的监控逻辑无法执行。以下是修正后的实现方案：

修改后的VBA代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义需要监控的范围：B5:B101（游戏名称）、C5:C101（盲注/前注/小费）及后续下注列（示例到Z列，可按需调整）
    Dim MonitorRange As Range
    Set MonitorRange = Me.Range("B5:Z101")
    
    ' 若修改内容不在监控范围内，直接退出
    If Intersect(Target, MonitorRange) Is Nothing Then Exit Sub
    
    ' 禁用事件防止写入时间时循环触发Change事件
    Application.EnableEvents = False
    
    Dim cell As Range
    ' 遍历所有被修改的单元格，支持批量编辑场景
    For Each cell In Intersect(Target, MonitorRange)
        ' 定位当前行的时间列（假设为A列，若不是则替换"A"为实际列标）
        Dim TimeCell As Range
        Set TimeCell = Me.Cells(cell.Row, "A")
        
        ' 仅当时间列为空时写入当前时间
        If TimeCell.Value = "" Then
            TimeCell.Value = Now
            ' 可选：设置时间显示格式，按需调整
            TimeCell.NumberFormat = "yyyy-mm-dd hh:mm:ss"
        End If
    Next cell
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

关键优化点 #

• 合并监控范围：将所有需要触发时间戳的列合并为一个统一的监控范围，避免分段判断导致的程序提前退出。
• 支持批量操作：通过遍历所有被修改的单元格，适配多行多列的批量编辑场景。
• 防止循环触发：添加Application.EnableEvents开关，避免写入时间时再次触发Worksheet_Change事件。
• 统一逻辑处理：不管修改的是哪一列，都定位到当前行的时间列，判断为空则写入时间，逻辑更简洁可靠。

注意事项 #

• 请确认时间列的位置，若不是A列，修改Me.Cells(cell.Row, "A")中的"A"为实际列标（比如时间列是D列就改成"D"）。
• 监控范围的Z101可根据实际下注列的最后一列调整，比如下注列到F列就改为B5:F101。
• 测试前建议备份表格，避免意外数据问题。

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