Excel中用VBA制作倒计时

倒计时制作：本期作品主要讲解如何通过VBA代码制作一个简单的倒计时显示框。倒计时显示可用于年会活动倒计时或文本加载中。通过简单的代码便可实现Excel中动态显示。

实现效果：在开始数处输入要倒计时开始的数字，点击“执行”按钮后，自动从开始数倒计时显示到0，每一秒钟切换数字。操作步骤：首先在开发工具下，插入一个控制按钮，用于执行我们的代码。

2.1 在设计模式下选择添加的控件-属性，修改属性的“Caption”值为执行。

2.2 双击添加的控件，并在对应的控件下输入如下代码。

For i = Sheet3.Range("g2") To 0 Step -1

Application.Wait (Now + TimeValue("00:00:01"))

Sheet3.Range("g3") = i

Next

Application.Wait (Now + TimeValue("00:00:01"))

Sheet3.Range("g3") = ""

注：代码中的sheet3为当前倒计时的工作表，“g3”为倒计时显示的单元格，“g2”为设置倒计时开始数的单元格。“Application.Wait (Now + TimeValue("00:00:01"))”为等待1秒再继续执行。

输入完代码后，退出设计模式，在开始数输入要开始倒计时的数字，点击执行按钮即可。

结语：本期作品就分享到这里，由于时间关系有些地方未能细讲还请谅解。如制作过程中存在疑问可在评论区留言或私信小编。