Question

求excel高手 问题如下: 在A1输入任意内容,在B1“自动”显示A1的最后修改日期

Answer 1

在工作表标签单击鼠标右键，“查看代码”，将下列代码自制进去，然后按Alt+F11；

返回工作表，在A1输入任何内容，B1自动记录时间。

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Target.Offset(, 1) = Format(Now, "yyyy-mm-dd")
End Sub

详见附件

 

Answer 2

Private Sub worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Sheet1.Cells(Target.Row, 2) = Now()