小夥伴們好啊,今天和大家分享一個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單元格中輸入一個起始時間,然後單擊一下按鈕,就可以顯示倒計時效果了。
圖文製作:梁倩