其实不需要宏，你就在记录时间那里设个公式，A到G列是你必填的，H2填=IF（B2="","",NOW())
我只是选了B列选择任意一列必填的都可以。
使用VBA……
Private Sub Worksheet_Change(ByVal Target As Range)
i = Target.Row
If i<>1 And ActiveCell.Row <> i Then
Cells(i, 8) = Now()
End If
End Sub
这样不用按钮 而是 当你 没编辑一次 某一行的数据后 都在 该行的 H列里填入当时的时间……
如果添加按钮命令的话 可以用如下代码 但是 不建议用这个 因为 当你再次点击按钮的时候 即使你没有改变数据 也会重新添加当时的时间……
Private Sub CommandButton1_Click()
If ActiveCell.Row <> 1 Then
Cells(ActiveCell.Row, 8) = Now()
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024