在更新或更改列中的任何单元格时，使用当前日期自动更新Excel中的单元格

不确定这在Excel中是否可行，但我希望每次更改

K11:K119

中的任何单元格时，都能用今天的日期更新单元格K9。

K11:K119

中的某些单元格为空，但可以随时将数据输入其中。

K11:K119

中已经有数据的单元格可能会更改。因此，我希望

K9单元格

在

K11:K119

中的任何一个空白单元格用数据更新时，或者在

K11:K119

中的任何一个单元格用数据更改时，用今天的日期进行更新。希望这是有道理的

在工作表代码区域中放置以下事件宏：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r1 As Range, r2 As Range
    Set r1 = Range("K9")
    Set r2 = Range("K11:K119")
    If Not Intersect(Target, r2) Is Nothing Then
    Application.EnableEvents = False
        r1.Value = Date
    Application.EnableEvents = True
    End If
End Sub

宏监视您对工作表所做的更改。如果更改输入范围中的任何值，将刷新带有日期的单元格

由于它是工作表代码，因此安装和自动使用非常容易：

在Excel窗口底部附近的选项卡名称上单击鼠标右键

选择查看代码-这将打开一个VBE窗口

粘贴内容并关闭VBE窗口

如果您有任何顾虑，请先在试用工作表上试用

如果保存工作簿，宏将与工作簿一起保存。 如果在2003年以后使用Excel版本，则必须保存 文件的格式为.xlsm而不是.xlsx

要删除宏，请执行以下操作：

如上所述打开VBE窗口

清除代码

关闭VBE窗口

要了解有关宏的更多信息，请参阅：

及

要了解有关事件宏（工作表代码）的详细信息，请参阅：

---

必须启用宏才能工作

如果不想启用宏，请尝试更简单的方法：

=IF(COUNT(K11:K119)>=0,TODAY(),0)

---

计数（范围）

将始终为≥0（因此，将什么作为第三个参数并不重要），并且当范围的任何成员发生更改时，该参数始终会更新。

在工作表更改事件中需要vba。