我們知道在Excel單元格中輸入當(dāng)前時間的快捷鍵是“Ctrl+Shift+;”，但是這種輸入方法只能顯示小時和分鐘，即HH:MM格式的時間。用下面的VBA代碼可以實現(xiàn)用上述快捷鍵輸入當(dāng)前時間時，在單元格中顯示的是包含秒的“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格式的當(dāng)前時間，如“20:25:09”。要還原默認(rèn)的輸入方式，運行resetkey()即可。
