作者：梁倩 轉自： Excel之家ExcelHome
小夥伴們好啊，今天和大家分享一個VBA代碼的趣味應用，一起來製作一個倒計時牌：
下來咱們說說具體的操作步驟：
步驟一：
按組合鍵， 打開VBE窗口。
步驟二：
插入→模塊。
在模塊區輸入以下代碼：
Sub 倒計時()
Dim t As Variant
t = Timer
Do While Cells(5, 3) > 0'這裡的數值用於指定行號和列號，5和3，表示第五行第3列，即C5單元格。
DoEvents
If Timer - t > 1 Then
t = Timer:
Cells(5, 3) = Cells(5, 3) - TimeValue("00:00:01")
End If
Loop
End Sub
步驟三：
開發工具→插入→表單控件（按鈕）
根據提示指定宏：
現在，在C5單元格中輸入一個起始時間，然後單擊一下按鈕，就可以顯示倒計時效果了。
圖文製作：梁倩
分享到:
