excel时间生成宏定义

EXECL 录入数据时，后面自动显示时间
Private Sub Worksheet_Change(ByVal Target As Range)     
    If Target.Column = 1 Then     
    Target.Offset(0, 1) = Date     
    End If     
End Sub

其中
If Target.Column = 1 Then	表示:在第1列(A)列输入后,第2列（B)自动出时间
注意:在VBA代码中，Date、Now、Time分别表示系统日期、日期及时间