68手游网

我们知道在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()即可。