excel倒计时函数,精确到小时或者分钟,最好能动态显示,谢谢
实现步骤如下:
1、在任意单元输入如下公式
=TEXT((TIME(22,10,10)-MOD(NOW(),1)),"hh:mm:ss")
time(22,10,10)为设定的倒计时时间
2、实现动态显示(宏)
ALT+F11进入VBA编辑器 插入-类模块 在代码框输入如下代码
Option Explicit
Dim NextTick
Sub UpdateClock()
ThisWorkbook.Sheets(3).Calculate
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "UpdateClock"
End Sub
Sub StopClock()
On Error Resume Next
Application.OnTime NextTick, "UpdateClock", , False
End Sub
ThisWorkbook.Sheets(3).Calculate 自动重算 (3)代表你存放在哪个表,可修改,如果你放在SHEET1将期修改为(1)即可
3、插入两个按钮
1)开始倒计时 - 指定宏“UpdateClock”
2)停止倒计时 - 指定宏“StopClock”
效果如图: