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

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

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

步骤一：

按组合键， 打开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

步骤三：

开发工具插入表单控件（按钮）

根据提示指定宏：

图文制作：梁倩