Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hh
If Target.Column = 5 And Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1).Value = Now()
Target.Offset(0, 2).Value = Now()
End If
If Target.Column = 8 And Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1).Value = Now()
Target.Offset(0, 2).Value = Now()
End If
hh:
End Sub
追问大神,解决了,谢谢谢谢,太谢谢你了,但是为什么关闭Excel 第二次打开的时候又没有任何反应了呢,把代码抹掉,保存Excel 然后打开,再次写入代码又能用,然后保存关闭后打开又不能用了,一次性的了