1、按<Alt+F11>组合键, 打开VBE窗口。
2、插入→模块
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
4、开发工具→插入
5、插入表单控件(按钮)
6、在C5单元格输入一个起始时间,然后点击按钮.最后效果如下