Excel VBA需求：I4录入内容自动标记日期并支持删除清除日期

你原来用的Workbook_Open()事件是工作簿打开时触发的，完全匹配不上需求，得换成工作表内容变更事件来监听I4的变化，以下是修正后的代码和操作说明：

修正后的VBA代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只监听I4单元格的变化
    If Target.Address = "$I$4" Then
        ' 判断I4是否有内容
        If Not IsEmpty(Target.Value) Then
            ' 录入内容时，给I5设置当日日期（不会随打开文档更新）
            Range("I5").Value = Date
        Else
            ' 删除I4内容时，清空I5的日期
            Range("I5").ClearContents
        End If
    End If
End Sub

代码说明 #

• 用Worksheet_Change事件，只有当工作表内容变更时才触发，完美满足「仅在I4录入/删除时操作」的需求，打开文档不会自动执行。
• 通过Target.Address = "$I$4"限定只处理I4单元格的变化，避免其他单元格修改时触发。
• IsEmpty(Target.Value)判断I4是否为空：非空则给I5设当日日期，为空则清空I5。

正确的代码放置步骤 #

1. 打开Excel文件，右键点击目标工作表的标签（比如「Sheet1」），选择「查看代码」。
2. 在弹出的VBA编辑器窗口中，直接粘贴上面的代码。
3. 保存文件为「Excel启用宏的工作簿（.xlsm）」格式，否则宏无法保存。
4. 重新打开文件时，启用宏即可生效。

补充说明 #

如果需要监听多个工作表的I4单元格，可将代码放在ThisWorkbook模块中，改用Workbook_SheetChange事件，代码如下：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address = "$I$4" Then
        If Not IsEmpty(Target.Value) Then
            Sh.Range("I5").Value = Date
        Else
            Sh.Range("I5").ClearContents
        End If
    End If
End Sub

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