Excel 在单元格里输入内容之后，自动添加输入日期

2025-03-23 05:52:21

推荐回答（5个）

回答1：

右键SHEET1
复制下列代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
Target.Offset(0, 1) = Date
End If
End Sub

注意:在VBA代码中，Date、Now、Time分别表示系统日期、日期及时间.
If Target.Column = 7 Then 表示: 在第7列输入后,第8列自动出现日期，根据实际情况修改即可。

回答2：

后面插一列并选中》右击》设置单元格格式》日期》选择格式
在插入的单元格中输入：=IF(单元格<>"",NOW(),"")

回答3：

先选定你要设置的单元格，然后点击右键，有一个设置单元格格式，在数字分类里选日期，然后你就可以输入日期了

回答4：

=IF(A2="","",IF(B2="",NOW(),B2))
详细可参照：http://jingyan.baidu.com/article/92255446ab3505851648f41a.html

回答5：

=if(a1<>"",now(),"")