Excel：单元格内容变更后插入当前日期及解决循环执行问题

问题分析 #

你当前使用Workbook_SheetSelectionChange事件的核心问题：

• 该事件只要切换单元格选择就会触发，而非仅在单元格内容修改后触发，逻辑完全不符合需求
• 修改单元格值时会再次触发相关事件，且未做事件阻断处理，直接导致无限循环
• 代码存在拼写错误：columsAbsolute应为columnAbsolute

正确解决方案 #

改用Worksheet_Change事件（仅在单元格内容被修改时触发），同时在修改单元格前临时关闭事件触发，彻底避免循环。

操作步骤 #

1. 按下Alt+F11打开VBA编辑器
2. 在左侧「工程资源管理器」中双击需要实现功能的目标工作表
3. 在代码窗口顶部的下拉菜单中，依次选择Worksheet和Change
4. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 临时关闭事件触发，防止修改单元格时再次触发Change事件
    Application.EnableEvents = False
    
    ' 仅处理单个单元格的修改，避免批量操作出错
    If Target.Cells.Count = 1 Then
        ' 跳过空单元格，同时检查是否已添加日期，避免重复追加
        If Target.Value <> "" And Not Target.Value Like "*##/##/####" Then
            ' 给单元格内容追加指定格式的当前日期
            Target.Value = Target.Value & " " & Format(Date, "mm/dd/yyyy")
        End If
    End If
    
    ' 恢复事件触发，不影响后续其他操作
    Application.EnableEvents = True
End Sub

代码细节说明 #

• Application.EnableEvents = False：这是解决循环问题的关键，临时阻断事件连锁触发
• Target.Cells.Count = 1：限定仅处理单个单元格修改，避免批量粘贴等场景下出现异常
• Not Target.Value Like "*##/##/####"：通过格式匹配避免重复添加日期
• Format(Date, "mm/dd/yyyy")：可根据需求修改日期格式，比如改成"yyyy-mm-dd"

拓展提示 #

如果需要在所有工作表生效，可将代码放在ThisWorkbook模块中，改用Workbook_SheetChange事件，逻辑与上述代码一致。

内容的提问来源于stack exchange，提问作者Júlio César Pedrini