首先的的VBA就有问题,请COPY一下代码
Private Sub worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 2 Then
Cells(Target.Row - 1, 1) = Now()
Cells(Target.Row - 1, 1).Value = Format(Cells(Target.Row - 1, 1).Value, "yyyy-m-d h:mm")
End If
If Target.Column = 1 And Target.Row = 4 Then
Cells(Target.Row - 1, 1) = Now()
Cells(Target.Row - 1, 1).Value = Format(Cells(Target.Row - 1, 1).Value, "yyyy-m-d h:mm")
End IfEnd Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024