1、按<Alt+F11>组合键， 打开VBE窗口。
2、插入→模块
3、在模块区输入以下代码：
Sub 倒计时()
Dim t As Variant
t = Timer
Do While Cells(5, 3) > 0'
DoEvents
If Timer - t > 1 Then
t = Timer:
Cells(5, 3) = Cells(5, 3) - TimeValue("00:00:01")
End If
Loop
End Sub
4、开发工具→插入
5、插入表单控件（按钮）
6、在C5单元格输入一个起始时间，然后点击按钮.最后效果如下
