<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的幾個高頻使用函數(一)