Excel怎么用函数自动输入当天日期？

PrivateSubWorksheet_Change(ByValTargetAsRange)
IfTarget.Column=2AndCells(Target.Row,1)=""Then
Cells(Target.Row,1)=Date
EndIf
EndSub

有时候，人们需要在EXCEL表中输入当前日期，最简单的方法是把日期简单地输入到EXCEL表格中，但是如果以后打开的时候需要当前日期，还需要再输入一次日期。这样稍显麻烦。

我们可以利用EXCEL2003自带的函数来在表格中填写当前日期。这个函数就是today()。Today函数的用法非常简单，只要在EXCEL表格中输入“=today()”即可。这个函数可以返回当前日期并显示在单元格中，而且，这个函数会根据系统时间自动更新。也就是说，如果5月30日编辑的EXCEL表格中使用了这个函数，那么，在6月1日再打开这个表格的话，日期会自动更改为6月1日。

点击菜单栏中的工具
然后点击宏再点录制新宏然后会出现一个对话框
点击确定会出现两个小小的图标点击第一个停止录制
然后按Alt+F11就出现了VBA界面左边有一个工程界面里面有模块
点击前面的加号一个会出一个模块1
再点击一下模块1会出现以下代码
Sub Macro1()
'
' Macro1 Macro
' 宏由 USER 录制，时间: 2013-4-8
'

'End Sub
然后把它们全删除了
把下面三行复制进去
Function tttt()
tttt = Date
End Function
然后在表格中比如要在输入名字后让电脑自动输入日期可以用以下
=IF(LEN(A1)=0,"",tttt())
比如A1是要输入姓名列,当你输入的过名字后就触发A1的长度不等于0
电脑就调用tttt()这个方法就会把日期输入到表格中
不过要注意的是当A1被改过后也会调用tttt()
就是说也会更改日期
还有就是单元格格式也要记得改为日期格式
否则会出现的是数字.
Function tttt()
tttt = Date
End Function
上面这个是显示日期当需要显示日期和时间时只要把它改为
Function tttt()
tttt = Now
End Function
就可以了,不过也要记得改单元格格式不然会出现数字

如果你仅仅是想实现这个功能，用函数=TEXT(NOW(),"yyyy/mm/dd"。

如果你想要实现每次更新的时候在对应行的指定位置自动填入日期的话，只能用VBA，可以在一个单元格中同时输入日期和时间，先输入日期或先输入时间均可，只是记住中间须用空格隔开，如2001/3/1 7:45:00。

按下“Ctrl+;”组合键，输入系统日期 ，按下“Ctrl+Shift+;”组合键，输入系统时间。

可以在一个单元格中同时输入日期和时间，先输入日期或先输入时间均可，只是记住中间须用空格隔开，如2001/3/1 7:45:00。

表格数组的首列查找指定的值，并由此返回表格数组当前行中其他列的值。

VLOOKUP 中的 V 参数表示垂直方向。当比较值位于需要查找的数据左边的一列时，可以使用 VLOOKUP 而不是 HLOOKUP。