Excel如何制作倒计时牌

1、按<Alt+F11>组合键， 打开VBE窗口。

3、在模块区输入以下代码：Sub 倒计时()Dim t As Variantt = TimerDo While Cells(5, 3) > 0'DoEventsIf Timer - t > 1 Thent = Timer:Cells(5, 3) = Cells(5, 3) - TimeValue("00:00:01")End IfLoopEnd Sub

5、插入表单控件（按钮）