微信號： Excel-Python

微信名: 實用辦公編程技能

前幾天，單位搞年慶，中間有一個環(huán)節(jié)是有獎競答，當時會務組長讓我來負責控制競答計時，當時我就自己用Excel做了一個競答倒計時器。

那么，如何用Excel制作競答倒計時器呢？

今天，曉白就用Excel的VBA編程來給大家演示！

第一步：制作倒計時器顯示界面

主要是制作倒計時器的開始和停止按鈕、倒計時長設置、倒計時顯示。

（1）點擊“開發(fā)工具”，進入設計模式，插入按鈕

（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

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

End Sub

（2）“停止”按鍵事件

Private Sub CommandButton2_Click()

flag = 0

ThisWorkbook.Sheets(1).Range("G6") = 0

End Sub

以上就是用Excel實現競答倒計時器的方法，下面給出具體的VBA代碼供大家交流！

關注我們的公眾號“實用辦公編程技能”（微信號：Excel-Python），讓我們的工作和生活變更更輕松。

往期文章：

0.用Excel倒計時還有多少天過年

1.用Excel做一個自動抽獎器

2.如何自己編寫Excel函數并調用？

3.Excel玩轉動態(tài)查找信息表

4.輕松搞定Excel的VBA編程

5.用Excel實現批量發(fā)送個性化郵件

6.玩轉Excel的幾個高頻使用函數(七)

7.玩轉Excel的幾個高頻使用函數(六)

8.玩轉Excel的幾個高頻使用函數(五)

9.玩轉Excel的幾個高頻使用函數(四)

10.玩轉Excel的幾個高頻使用函數(三)

11.玩轉Excel的幾個高頻使用函數(二)

12.玩轉Excel的幾個高頻使用函數(一)

總結

以上是生活随笔為你收集整理的python 倒计时_Excel制作竞答倒计时器的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。