如何制作一个excel单元格来显示今天的日期

Question

我试图像今天这样制作一个excel单元格打印日期

=DATE(2013,3,23)

但它只打印该日期，直到某些用户更改了数字。 所以请帮助我！

Answer 1

=Today()

这个公式是动态的，总是显示当前日期。

您可以执行此操作，或使用Date()公式，然后复制/粘贴值。

但是，即使你这样做，用户仍然可以在事后“更改数字”，所以你不能避免这种情况，除非你保护工作表，或实现某种基于事件的宏来维持所需的日期

这是一个简单的宏，无论用户做什么，它总是将今天的日期放在Cell A1中。将其放在Worksheet的代码模块中。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub 'This will only trigger the event if the cell A1 changes. You can modify this as needed.

Target.Value = DateSerial(Year(Now()), Month(Now()), Day(Now()))


End Sub