實現(xiàn)步驟如下:
1、在任意單元輸入如下公式
=T來自EXT((TIME(22,10,10)-MOD(NOW(),1)),"hh:mm:ss")
time(22,10,10)為設(shè)定的倒寬試七興計時時間
2、實現(xiàn)動態(tài)顯示(宏)
ALT+F11進入VBA編輯器 插入-類模塊 在代碼框輸入如下代碼
Option Explici與季握措對親何日席油風(fēng)t
Dim NextTick
Sub UpdateClock()
***.sheets(3).Calculate
NextTick = Now + TimeValue("00:00:01")
***.ontime NextTick, "UpdateClock"
End Sub
Sub StopClock()
On Error Resume Next
嘩則 ***.ontime NextTick, "UpdateClock", , False
End Sub
***.sheets(3).Calculate 自動重算 亂歲棚(3)代表雀喊你存放在哪個表,可修改,如果你放在SHEET1將期修改為(1)即可
3、插入兩個按鈕
1)開始倒計時 - 指定宏“UpdateClock”
2)停止倒計時 - 指定宏“StopClock”
效果如圖: