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

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

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

Sub setKey()
Application.OnKey "+^:", "EnterTime"
End Sub
Sub resetKey()
Application.OnKey "+^:"

WPS之家www.qiangguoshuo.com/wps/

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()即可。

如想转载该文章请注明出处：强国说学习-qiangguoshuo.com

转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！

本文链接：https://www.qiangguoshuo.com/excel/42184.html