倒计时牌，制作其实很简单

梁倩 Excel之家ExcelHome 

小伙伴们好啊，今天和大家分享一个VBA代码的趣味应用，一起来制作一个倒计时牌：

接下来咱们说说具体的操作步骤：

步骤一：

按<Alt+F11>组合键， 打开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单元格中输入一个起始时间，然后单击一下按钮，就可以显示倒计时效果了。