用EXCEL制作“倒计时器”
编辑：Simone
2025-04-02 00:51:32
544 阅读
图一是倒计时器的样子，当然你也可以做成其他喜欢的样式。
下面介绍制作过程
第一步：在EXCEL窗口中按上图的样式做一个界面，设置你喜欢的字体大小与颜色边框。由于是用VBA代码制作计时部份，所以表格中不用输入任何公式。
第二步：按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 SubSub 开始()[c2] = Format([c2], "h:mm:ss") '设置单元格格式a = [c2] '设定时间b = Now() + a '计算结束时间[c3] = Format(b, "yyyy-m-d h:mm:ss") '设置单元格格式Call 计时End SubSub 停止()On Error Resume NextApplication.OnTime n, "计时", , False '停止任务的执行End Sub
版权声明：本站【趣百科】文章素材来源于网络或者用户投稿，未经许可不得用于商用，如转载保留本文链接：https://www.qubaik.com/life/167953.html
