實(shí)現(xiàn)步驟如下:
1、在任意單元輸入如下公式
=T來自EXT((TIME(22,10,10)-MOD(NOW(),1)),"hh:mm:ss")
time(22,10,10)為設(shè)定的倒寬試七興計(jì)時(shí)時(shí)間
2、實(shí)現(xiàn)動(dòng)態(tài)顯示(宏)
ALT+F11進(jìn)入VBA編輯器 插入-類模塊 在代碼框輸入如下代碼
Option Explici與季握措對(duì)親何日席油風(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 自動(dòng)重算 亂歲棚(3)代表雀喊你存放在哪個(gè)表,可修改,如果你放在SHEET1將期修改為(1)即可
3、插入兩個(gè)按鈕
1)開始倒計(jì)時(shí) - 指定宏“UpdateClock”
2)停止倒計(jì)時(shí) - 指定宏“StopClock”
效果如圖: