在 Excel 中录入好数据以后可能经常需要用到计时器这个功能，这个功能制作起来可能有点困难，如果有需要的朋友可以学习一下。下面是由我分享的excel2003利用vba制作倒计时器的教程，供大家阅读、学习。
excel2003利用vba制作倒计时器的教程：
制作计时器步骤1：在EXCEL窗口中按上图的样式做一个界面，设置你喜欢的字体大小与颜色边框。由于是用VBA代码制作计时部份，所以表格中不用输入任何公式。
制作计时器步骤2：按ALT+F11组合键调出VBA窗口，按?插入-模块?，出现一个空白的模块窗口，把下面代码粘贴进去。
Dim n '公用变量，记住下一个任务执行的时间
Dim a '开始时间
Dim b '结束时间
Sub 计时()
n = Now + Timevalue("00:00:01") '设定时间间隔为一秒
If Now() > b Then MsgBox "倒计时结束": Call 停止: Exit Sub
[c4] = 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 '停止任务的执行
End Sub
这组代码由四部份组成：
第一部份(最上面三行)是声名公共变量，使这几个变量在下面各过程中都可调用。
第二部份是?Sub 计时?，也是主代码，它负责不停的计时并显示剩余时间。
第三部份?Sub 开始?，相当于初始化部份，设置单元格格式及显示?计时结束时间?，在这个部份会调用?Sub 计时?过程来进行倒计时。
第四部份?Sub 停止?，终止倒计时过程。
代码中的关键部份是?sub 计时?，它使用onTime函数实现自动计时功能。
常用语法：
Application.onTime 时间，要运行的过程名
在上例中，?Application.onTime n, "计时"?的含义是到下一个时间?n?，就执行一次名为?计时?(即 ?sub 计时?自身)的代码。
时间?n?由语句? n = Now + Timevalue("00:00:01")?计算得出，表示由当前时间(即?NOW?)加上一个1秒的时间值。
在?Sub 停止?过程中，也使用了OnTime函数，但它多了一个参数False ，它的作用是到时间?n?后，停止过程?Sub 计时?的执行(即计时结束)。
其他语句部份比较容易理解，可参考各语句后面的注释。
制作计时器步骤3：添加按钮
为了方便执行，需要在EXCEL窗口添加两个按钮，一个?开始?，另一个是?结束?。
在EXCEL窗口中按?视图-工具栏-窗体?，调出?窗体?工具栏，用鼠标选中上面的?按钮?控件在C列的右边?画?出两个大小适中的按钮，再用鼠标右键分别点击按钮，选?编辑文字?，第一按钮输入?开始?，第二个按钮输入?停止?。
接下来还要给按钮指定要运行的宏(就是在VBA窗口中的代码)
在?开始?按钮上点右键，选?指定宏?，在弹出的窗口中选?开始?后确定。同样 方法 给?停止?按钮指定?停止?宏。
这样就完成了整个制作过程，可以使用了。
