excel 中输入数据后自动显示日期

Question

比如在b1到f1任意空格中输入数据后在a1显示输入数据时的日期。而且日期不会改变。非常感谢！求高人帮忙~最好详细点 代码神马的不太懂····

Answer 1

想要实现excel 中输入数据后自动显示日期，有几个步骤（PS：使用2007excel演示）：

一、打开excel，在A2中输入“=IF(B2="","",IF(A2="",NOW(),A2))”。如下图：

二、点击左上角的圆圈，在点击下方的“excel选项”。如下图：

三、在弹出框中，选择“公式”，在选择“启用迭代计算”，数字不必改动。如下图：

四、之后，在B列填写数字，文案，日期就自动出现了。关闭了excel，过段时间在打开excel，也不会自动改变时间。

Answer 2

在A1中输入公式：
=IF(COUNTA(B1:F1)=0,"",IF(A1="",NOW(),A1))
设置A列的单元格格式为日期，并选择一种你需要的日期格式。并在打开循环计算的情况下，在B1到F1中任意输入数据或文字，A1中显示当前日期，且不会改变。追问

谢谢！为什么显示的日期是1900年1月0日？

本回答被提问者采纳

Answer 3

这个用公式是实现不了了，只能用VBA实现。但一般的人又不太喜欢更改excel的安全级别

Answer 4

可以用激发宏实现：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column > 1 And Target.Column < 7 Then
    Cells(Target.Row, 1) = Int(Now())
End If
End Sub

本回答被网友采纳

Answer 5

必须通过脚本来完成