自动生成录入数据的日期，日期不再变更

雁门关雪

我希望在录入数据的时候在旁边的单元格自动记录录入的时间，于是用了now（）函数，但它会更新，我希望录入之后日期就不再改变（如果更改录入数据的时候，需在另一列显示更改日期又怎么办呢）
能不能用text函数转换成文本格式，看到有人用过迭代的办法也非常好，有没有别的办法呢！在公式区求助了，还想知道VBA的代码怎么写！

zax010

c.Offset(0,1)=Date

liu-aguang

假设在A列输入数据,B或C列自动填入系统日期和时间:(代码放入所在工作表的模块内)

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Cells.Count > 1 Then Exit Sub
   
3.     If Target.Column <> 1 Or Len(Target.Value) = 0 Then Exit Sub
   
4.     If Len(Target.Offset(, 1).Value) = 0 Then Target.Offset(, 1) = Now _
   
5.     Else Target.Offset(, 2) = Now
   
6. End Sub
   

复制代码

weega

liu-aguang 发表于 2014-9-4 21:08
假设在A列输入数据,B或C列自动填入系统日期和时间:(代码放入所在工作表的模块内)

老师，如果A列的条件改成：粘贴多行多列数据的时候，如何对应生成时间？例如range(A1:D10)为新粘贴的数据，range(E1:E10)生成now()，怎么改？请指教，谢谢。

MOY838840554

之前写过一个，参考

weega

MOY838840554 发表于 2021-7-13 20:15
之前写过一个，参考

谢谢老师指导。

sahar1

还可以的，我喜欢

sahar1

MOY838840554 发表于 2021-7-13 20:15
之前写过一个，参考

还可以的，我喜欢