VBA之倒计时牌制作

2、单击插入选项栏——模块，编辑代码：

Sub 倒计时()

Dim t As Variant

t = Timer

Do While Cells(5, 3) > 0'这里的数值用于指定行号和列号，5和1，表示第五行第1列，即C5单元格。

DoEvents

If Timer - t > 1 Then

t = Timer:

Cells(5, 3) = Cells(5, 3) - TimeValue('00:00:01')

End If

Loop

End Sub

3、插入控件

单击：开发工具→插入→表单控件（按钮），为控件制定宏。

4、在C5单元格输入随意时间，就能进入倒计时。