中国投资网 百科 用excel制作倒计时器(用excel制作导向图)

用excel制作倒计时器(用excel制作导向图)

使用EXCEL中的OnTime函数可以制作一个倒计时器。只要设置了时间,EXCEL就会以秒为单位倒计时,到了设置的时间就停止并提示。

图1显示了倒计时定时器。当然,你也可以把它做成你喜欢的其他风格。

只要在C2单元格中输入“小时:分钟:秒”格式的时间,并按下右边的“开始”按钮,就可以开始倒计时,计时器超时后的时间将显示在C3单元格中,剩余时间将动态显示在C4单元格中。

下面介绍生产过程。

第一步:按照上面显示的样式在EXCEL窗口中制作一个界面,设置自己喜欢的字体大小和颜色边框。因为计时部分由VBA码组成,所以不需要在表中输入任何公式。

第二步:按ALT F11调出VBA窗口,按“Insert-Module”打开一个空白的模块窗口,将下面的代码粘贴进去。

Dimn '公共变量,记住下一个任务的执行时间马頔'开始时间Dimb '结束时间子计时()n=现在时间值(' 00:00:01 ')'设置时间间隔为一秒IfNow()bThenMsgBox '倒计时结束'Call stop:exit Sub[C4]=Format(b-Now()。H:mm:ss ')'设置单元格格式应用程序。on Time,' Time ' '然后在指定时间后执行此流程。EndSubSub starts()[C2]=Format([C2],' h:mm:ss ')'设置单元格格式a=[c2]'设置时间b=Now() a '进行计算。Yyyy-m-dh:mm:ss ')'设置单元格格式调用Timed end sub Stop()oneerrorresumextapplication。Ontimen,' Timed 'False '停止执行任务End Sub。

这组代码由四部分组成:第一部分(最上面的三行)是一个公共变量,这样就可以在下面的过程中调用这些变量。第二部分是“子计时”,也是主要代码。它负责不间断计时和显示剩余时间。第三部分“Sub start”相当于初始化部分,设置单元格格式,显示“定时结束时间”。在这一部分中,将调用“子计时”过程进行倒计时。第四部分“子停止”终止倒计时过程。代码的关键部分是“子计时”,利用onTime函数实现自动计时功能。常见语法:应用程序。OnTime,要运行的进程的名字在上面的例子中,“application.ontime,‘timing’”的意思是执行一次名为“timing”的代码(也就是“sub-timing”本身),直到下一次“n”。时间“n”是通过语句“n=现在时间值(' 00:00:01 ')”计算出来的,这意味着当前时间(即“现在”)加上1秒的时间值。在“Sub stop”的过程中,也使用了OnTime函数,但是它多了一个参数False,用来在时间“n”(即计时结束)之后停止执行进程“Sub timing”。其他句子比较好理解,请参考每句话后面的注释。第三步:添加按钮为了方便执行,需要在EXCEL窗口中添加两个按钮,一个是开始,一个是结束。在EXCEL窗口中按视图-工具栏-表单,调出表单工具栏。用鼠标选中上面的按钮控件,在c列右侧画两个大小合适的按钮,然后用鼠标右键单击按钮,选择编辑文本,第一个按钮输入Start,第二个按钮输入stop。

接下来,您需要指定为按钮运行的宏(即VBA窗口中的代码)。右键单击开始按钮,选择指定宏,然后在弹出窗口中单击开始进行确认。以同样的方式为停止按钮指定一个停止宏。

这样就完成了整个制作过程,可以使用了。在C2单元格中输入一个时间(格式为“小时:分钟:秒”),点击“开始”在C3单元格中看到计时器结束的时间,同时在C4单元格中出现一个以一秒为间隔递减的时间数字。当C4单元显示为0时,弹出一个提示窗口,定时器结束。

本文来自网络,不代表本站立场,转载请注明出处:https:

用excel制作倒计时器(用excel制作导向图)

中国投资网后续将为您提供丰富、全面的关于用excel制作倒计时器(用excel制作导向图)内容,让您第一时间了解到关于用excel制作倒计时器(用excel制作导向图)的热门信息。小编将持续从百度新闻、搜狗百科、微博热搜、知乎热门问答以及部分合作站点渠道收集和补充完善信息。