第1个回答 2008-12-13
直接用Now函数,在重算时会自动更新与当前时间同步。用VBA吧:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 1 And ActiveCell.Value = "" Then '指定第一列,可根据需要修改
ActiveCell.Value = Now
End If
End Sub
此程序作用:当光标点第一列非空单元格时,自动显示当前时间。
(第一列应已设置自定义格式为yyyy-mm-dd hh:mm:ss)