excel2003利用vba制作倒计时器的教程.docx

excel2003利用vba制作倒计时器的教程制作计时器步骤1：在EXCEL窗口中按上图的样式做一个界面，设置你喜欢的字体大小与颜色边框。由于是用VBA代码制作计时部份，所以表格中不用输入任何公式。制作计时器步骤2：按ALT+F11组合键调出VBA窗口，按“插入-模块”，出现一个空白的模块窗口，把下面代码粘贴进去。Dimn'公用变量，记住下一个任务执行的时间Dima'开始时间Dimb'结束时间Sub计时()n=Now+TimeValue("00:00:01")'设定时间间隔为一秒IfNow()>bThenMsgBox"倒计时结束":Call停止:ExitSub[c4]=Format(b-Now(),"h:mm:ss")'设置单元格格式Application.OnTimen,"计时"'到指定时间后再执行本过程EndSubSub开始()[c2]=Format([c2],"h:mm:ss")'设置单元格格式a=[c2]'设定时间b=Now()+a'计算结束时间[c3]=Format(b,"yyyy-m-dh:mm:ss")'设置单元格格式Call计时EndSubSub停止()OnErrorResumeNextApplication.OnTimen,"计时",,False'停止任务的执行EndSub这组代码由四部份组成：第一部份(最上面三行)是声名公共变量，使这几个变量在下面各过程中都可调用。第二部份是“Sub计时”，也是主代码，它负责不停的计时并显示剩余时间。第三部份“Sub开始”，相当于初始化部份，设置单元格格式及显示“计时结束时间”，在这个部份会调用“Sub计时”过程来进行倒计时。第四部份“Sub停止”，终止倒计时过程。代码中的关键部份是“sub计时”，它使用onTime函数实现自动计时功能。常用语法：Application.OnTime时间，要运行的过程名在上例中，“Application.OnTimen,"计时"”的含义是到下一个时间“n”，就执行一次名为“计时”(即“sub计时”自身)的代码。时间“n”由语句“n=Now+TimeValue("00:00:01")”计算得出，表示由当前时间(即“NOW”)加上一个1秒的时间值。在“Sub停止”过程中，也使用了OnTime函数，但它多了一个参数False，它的作用是到时间“n”后，停止过程“Sub计时”的执行(即计时结束)。其他语句部份比较容易理解，可参考各语句后面的注释。制作计时器步骤3：添加按钮为了方便执行，需要在EXCEL窗口添加两个按钮，一个“开始”，另一个是“结束”。在EXCEL窗口中按“视图-工具栏-窗体”，调出“窗体”工具栏，用鼠标选中上面的“按钮”控件在C列的右边“画”出两个大小适中的按钮，再用鼠标右键分别点击按钮，选“编辑文字”，第一按钮输入“开始”，第二个按钮输入“停止”。接下来还要给按钮指定要运行的宏(就是在VBA窗口中的代码)在“开始”按钮上点右键，选“指定宏”，在弹出的窗口中选“开始”后确定。同样方法给“停止”按钮指定“停止”宏。这样就完成了整个制作过程，可以使用了。在C2单元格中输入一个时间(格式为“时：分：秒”)，点击按钮“开始”就能看到在C3格中出现一个计时结束的时间，同时在C4格出现以一秒为间隔不断递减的时间数字，当C4单元格显示为0时弹出提示窗口，计时结束。看了excel2003利用vba制作倒计时器的教程还看了：1.excel2013如何打开vba的方法2.EXCELVBA编程基础3.excel2013关于VBA密码破解的教程4.excel2010调出vba的方法5.excel2010调出vba控件的方法6.excel2010vba密码破解的方法7.Excel2010怎样添加Vba编辑器