excel中在A1中输入一个数字后在A2中自动插入系统时间并不随时间变化

右键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列自动出现日期，根据实际情况修改即可。

函数是做不到这个的，要用VBA
假如要在sheet1中实现这个功能
ALT+F11，双击右边工程资源窗口中的sheet1
左边空白处输入代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
Sheet1.Cells(2, Target.Column) = Now
End If
End Sub
当第一行数据任意行数据发生改变，第二行对应列自动记录改变的时间
Target.Column 和Target.Row可以根据你的要求修改

=if（A1，now（），）