第2个回答 推荐于2016-01-03
使用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本回答被提问者和网友采纳