在Excel中用快捷键输入“HH:MM:SS”格式的当前时间

来源:互联网 时间:2016-01-03

我们知道在Excel单元格中输入当前时间的快捷键是“Ctrl+Shift+;”,但是这种输入方法只能显示小时和分钟,即HH:MM格式的时间。用下面的VBA代码可以实现用上述快捷键输入当前时间时,在单元格中显示的是包含秒的“HH:MM:SS”格式。方法如下:

按Alt+F11,打开VBA编辑器,单击菜单“插入→模块”,将下列代码输入到代码窗口中:

Sub setKey()

Application.OnKey "+^:", "EnterTime"

End Sub

Sub resetKey()

Application.OnKey "+^:"

End Sub

Sub EnterTime()

With ActiveCell

.Value = Time()

.NumberFormat = "hh:mm:ss"

End With

End Sub

运行setkey(),在工作表中选择一个单元格,按快捷键“Ctrl+Shift+;”,将显示HH:MM:SS格式的当前时间,如“20:25:09”。要还原默认的输入方式,运行resetkey()即可。

相关阅读:
Top