如何用VBA在Excel中制作一个倒计时显示窗口

Excel中用VBA制作倒计时

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

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秒再继续执行。

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