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

　　这组代码由4部分组成：

　　第一部分(最上面3行)是申明公共变量，使这几个变量在下面各进程中都可调用。

　　第2部分是“Sub 计时”，也是主代码，它负责不停的计时并显示剩余时间。

　　第3部分“Sub 开始”，相当于初始化部分，设置单元格格式及显示“计时结束时间”，在这个部分会调用“Sub 计时”进程来进行倒计时。

　　第4部分“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列的右侧“画”出两个大小适中的按钮，再用鼠标右键分别点击按钮，选“编辑文字”，第一按钮输入“开始”，第2个按钮输入“停止”。

　　接下来还要给按钮指定要运行的宏(就是在VBA窗口中的代码)

　　在“开始”按钮上点右键，选“指定宏”，在弹出的窗口当选“开始”后肯定。一样方法给“停止”按钮指定“停止”宏。

　　这样就完成了全部制作进程，可使用了。

　　在C2单元格中输入一个时间(格式为“时：分：秒”)，点击按钮“开始”就可以看到在C3格中出现一个计时结束的时间，同时在C4格出现以一秒为间隔不断递减的时间数字，当C4单元格显示为0时弹出提示窗口，计时结束。