Question

如何在excel中的某一个单元格填入信息时，指定单元格自动配置当前时间？

右键SHEET--查看代码
复制下列代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1Then
Target.Offset(0, 1) = Date
End If
End Sub
注意:在VBA代码中，Date、Now、Time分别表示系统日期、日期及时间、时间
If Target.Column = 1 Then 表示:在第1列输入后,第2列自动出现日期

Answer 1

对的
表示A列输入 任何数据，对应的B列出现当前日期，且不随计算机时间变化而变化

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1Then
Target.Offset(0, 1) = Date
End If
End Sub

Answer 2

假设在A1输入信息，在B1显示时间：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 and Target.row=1 Then
Target.Offset(0, 1) = Date
End If
End Sub

Answer 3

你要在哪个单元格输入数据，在哪个单元显示当前时间？是时间还是日期，或者是日期和时间？

追问

第一列输入数据，第五列显示日期