EXCEL双击后自动输入当前日期与时间(至少含两例:如A3,D3)望高手帮忙,急急急!!

如题所述

第1个回答  2010-09-26
打开EXCEL 进去按ALT+F11 双击你的实现的SHEET表
复制下面代码进去
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '双击事件
If Selection.Column <> 1 And Selection.Column <> 4 Then '当双击的列数不是A D 列时候执行
Cells(Selection.Row, 1) = Date '双击的行的 A列对应数字显示日期
Cells(Selection.Row, 4) = Time '双击的行的 A列对应数字显示时间
End If
End Sub
第2个回答  2010-09-26
首先设置单元格格式是带日期的时间形式,再在该单元格按住Ctrl+;,该单元格就会出现年月日及时间几点几分几秒。
第3个回答  2010-09-26
在单元格中输入=today()
=now()
=TEXT(NOW(),"yyyy年mm月dd日 hh:mm:ss")本回答被网友采纳