Private Sub Worksheet_Change(ByVal Target As Range)
‘首先在工作表中选择change事件
On Error Resume Next ‘如果发生错误，忽略继续执行
If Target.Column <> 2 Then Exit Sub’如果输入不在第2列，那么退出此过程。
If Target <> “” Then’如果输入单元格不等于空值
Target.Offset(0, 2) = Now()’那么偏移2列自动生成时间
End If
End Sub
