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