关于EXCEL取时间问题，求助各位大虾!如图

Question

E2取D2最后一次更改的时间 如图：
要求：当D2输入内容时E2自动录入当时时间，如果D2的内容不改变，E2还是保留上一次录入的时间

Answer 1

Public Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 4 Then

Target.Offset(, 1) = Now

End If

End Sub

追问

我想要的答案是：当D2输入内容时E2自动录入当时时间，如果D2的内容不改变，E2还是保留上一次录入的时间

追答

这个就是这种效果！

追问

如何让G列 I列 也实现E列这样的操作呢 代码该怎样写呢 谢谢.....

追答

=4 就是要录入数据的单元格
=1 就是依此列向右偏移一列，比如4是D 列，=1就是E列生成时间，如果你要I E这样
Public Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Target.Offset(, 1) = Now
End If
If Target.Column = 7Then
Target.Offset(, 1) = Now
End If
If Target.Column = 9 Then
Target.Offset(, 1) = Now
End If
End Sub

追问

还有个问题 取时间的时候能不能只取 年/月/日

追答

SK C ,可以，，，选中自动生成日期那列，然后设置格式成日期格式 里面选择



Answer 2

E2输入
=TODAY()
但是这个还是有很大缺陷，如果其他单元格修改，这个日期还是会发生改变。最好的办法就是采用VBA解决。

追问

当D2输入内容时E2自动录入当时时间，如果D2的内容不改变，E2还是保留上一次录入的时间

Answer 3

没有看懂，能否详细举例说明？

追问

当D2输入内容时E2自动录入当时时间，如果D2的内容不改变，E2还是保留上一次录入的时间

追答

楼上有人回答了

这个需要VBA执行
代码好像 百度要屏蔽的。
右键Sheet1名，查看代码，复制

PrivateSub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then ' 判断是否在D列输入数据？
Target.Offset(0, 1) = Date
End If
End Sub

说明
DATE可以根据实际需要，修改为NOW TIME