=TODAY()
或
=NOW()
TODAY()返回当前日期的序列号。序列号是 Microsoft Excel
日期和时间计算使用的日期-时间代码。如果在输入函数前,单元格的格式为“常规”,则结果将设为日期格式。
NOW()返回当前日期和时间所对应的序列号。如果在输入函数前,单元格的格式为“常规”,则结果将设为日期格式。
Private Sub Worksheet_Change(ByVal Txn As Range) '日期自动填写
r = Txn.Row
c = Txn.Column
If c = 2 Then Range("A" & r) = date
End Sub
按Alt+F11
打开宏编辑器,在左边选中表名,双击,在右边空白处将上面代码粘贴,关闭,保存
只要你在B列输入或点击,在前边的A列就写入了日期
日期公式
=today()