龙空技术网

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

依克赛尔 208

前言:

当前咱们对“怎么给vba代码添加一个按钮框”大体比较着重,看官们都想要分析一些“怎么给vba代码添加一个按钮框”的相关资讯。那么小编在网摘上搜集了一些对于“怎么给vba代码添加一个按钮框””的相关知识,希望小伙伴们能喜欢,大家快快来学习一下吧!

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

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

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

标签: #怎么给vba代码添加一个按钮框