小编明天的任务就是教会你们自己制做如图所示的倒计时器，当然，是用excel做的哦！
下面就让我们来实现它吧！
Dim n '公用变量，记住下一个任务执行的时间
Dim a '开始时间
Dim b '结束时间
Sub 计时()
n = Now + TimeValue("00:00:01") '设定时间间隔为1秒
If Now() > b Then MsgBox "倒计时结束": Call 停止: Exit Sub'倒计时结束，弹出对话框
[c3] = Format(b - Now(), "h:mm:ss") '设置单元格格式
Application.OnTime n, "计时" '到指定时间后再执行本过程
End Sub
Sub 开始()
[c2] = Format([c2], "h:mm:ss") '设置单元格格式
a = [c2] '设定时间
b = Now() + a '计算结束时间
'[c3] = Format(b, "yyyy-m-d h:mm:ss") '设置单元格格式
Call 计时
End Sub
Sub 停止()
On Error Resume Next
Application.OnTime n, "计时", , False '停止任务的执行
[c3] = ""’清空
End Sub
第1部分是声名公共变量，用来在倒计时过程中临时储存时间。
第2部分是倒计时器的主代码，负责不停的计时并显示剩余时间。
第3部分的作用是初始化倒计时器，设置单元格格式，并调用第2部份的主代码来进行倒计时。
第4部分的作用是停止倒计时并重置剩余时间为空（“”）。
