第3个回答 2015-10-12
编制VBA宏可以实现自动输入当前日期及当前时间。
宏代码如下:
Private Sub worksheet_change(ByVal target As Range)
Dim I As Long
If target.Column = 2 Then
I = ActiveCell.Row
Cells(I - 1, 2) = Now() ‘输入数据敲回车后,当前活动单元格会自动跳到一下行单元格
End If
End Sub
设定当前工作表的B列为日期字段。当在B列编辑单元格时,程序自动填入当前时间。
注:该程序必须放在当前工作表中,否则不会工作。