微信號： Excel-Python

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

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

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

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

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

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

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

（2）添加倒計時長設(shè)置顯示項

（3）添加倒計時顯示項

第二步：編寫倒計時定時子過程模塊

（1）定義倒計時“開始”和“停止”標(biāo)志全局變量

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）“開始”按鍵事件（調(diào)用了倒計時定時子過程模塊：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實現(xiàn)競答倒計時器的方法，下面給出具體的VBA代碼供大家交流！

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

往期文章：

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

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

2.如何自己編寫Excel函數(shù)并調(diào)用？

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

4.輕松搞定Excel的VBA編程

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

6.玩轉(zhuǎn)Excel的幾個高頻使用函數(shù)(七)

7.玩轉(zhuǎn)Excel的幾個高頻使用函數(shù)(六)

8.玩轉(zhuǎn)Excel的幾個高頻使用函數(shù)(五)

9.玩轉(zhuǎn)Excel的幾個高頻使用函數(shù)(四)

10.玩轉(zhuǎn)Excel的幾個高頻使用函數(shù)(三)

11.玩轉(zhuǎn)Excel的幾個高頻使用函數(shù)(二)

12.玩轉(zhuǎn)Excel的幾個高頻使用函數(shù)(一)

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。