<h1 class="pgc-h-arrow-right">Excel制作竞答倒计时器</h1>
原创 Excel and Python 实用办公编程技能 2019-12-23
前几天，单位搞年庆，中间有一个环节是有奖竞答，当时会务组长让我来负责控制竞答计时，当时我就自己用Excel做了一个竞答倒计时器。
那么，如何用Excel制作竞答倒计时器呢？
今天，晓白就用Excel的VBA编程来给大家演示！
第一步：制作倒计时器显示界面
主要是制作倒计时器的开始和停止按钮、倒计时长设置、倒计时显示。
（1）点击“开发工具”，进入设计模式，插入按钮
（2）添加倒计时长设置显示项
（3）添加倒计时显示项
第二步：编写倒计时定时子过程模块
（1）定义倒计时“开始”和“停止”标志全局变量
Public flag As Integer
（2）定义倒计时时长全局变量
Public count As Integer
（3）VBA编写倒计时定时子过程模块
Sub Time_count()
If flag = 1 Then
ThisWorkbook.Sheets(1).Range("G6") = count
count = count - 1
If count = 0 Then
flag = 0
End If
DoEvents
Application.OnTime Now() + TimeValue("00:00:1"), "Time_count"
End Sub
第三步：编写“开始”和“停止”按键事件
（1）“开始”按键事件（调用了倒计时定时子过程模块：Time_count）
Private Sub CommandButton1_Click()
flag = 1
count = Range("I4").Value
Time_count
（2）“停止”按键事件
Private Sub CommandButton2_Click()
ThisWorkbook.Sheets(1).Range("G6") = 0
以上就是用Excel实现竞答倒计时器的方法，下面给出具体的VBA代码供大家交流！
关注我们的公众号“实用办公编程技能”（微信号：Excel-Python），让我们的工作和生活变更更轻松。
往期文章：
0.用Excel倒计时还有多少天过年
1.用Excel做一个自动抽奖器
2.如何自己编写Excel函数并调用？
3.Excel玩转动态查找信息表
4.轻松搞定Excel的VBA编程
5.用Excel实现批量发送个性化邮件
6.玩转Excel的几个高频使用函数(七)
7.玩转Excel的几个高频使用函数(六)
8.玩转Excel的几个高频使用函数(五)
9.玩转Excel的几个高频使用函数(四)
10.玩转Excel的几个高频使用函数(三)
11.玩转Excel的几个高频使用函数(二)
12.玩转Excel的几个高频使用函数(一)