Private Sub Worksheet_Change(ByVal Target As Range)
Rem 如果同时输入多个单元格内容就退出过程
If Target.Count > 1 Then Exit Sub
Rem 如果改变的单元格列号大于1,既不是A列,就退出过程
If Target.Column > 1 Then Exit Sub
Rem 关闭事件触发程序,防止触发连锁事件
Application.EnableEvents = False
Rem B列输入日期及时间
Target.Offset(0, 5) = Now
Rem 恢复事件触发程序
Application.EnableEvents = True
End Sub
求助比如要选择B列从第3行输入的数据,就在香油偏移的5列单元格记录当前录入数据的具体时间的VBA代码修改求助