倒计时牌，制作其实很简单
小伙伴们好啊 ， 今天和大家分享一个VBA代码的趣味应用 ， 一起来制作一个倒计时牌：
文章图片
接下来咱们说说具体的操作步骤：
步骤一：
按组合键 ， 打开VBE窗口 。
步骤二：
插入→模块 。
在模块区输入以下代码：
Sub倒计时()
DimtAsVariant
t=Timer
【倒计时牌，制作其实很简单】DoWhileCells(5,3)>0'这里的数值用于指定行号和列号 ， 5和3 ， 表示第五行第3列 ， 即C5单元格 。
DoEvents
IfTimer-t>1Then
t=Timer:
Cells(5,3)=Cells(5,3)-TimeValue(''00:00:01'')
EndIf
Loop
EndSub
文章图片
步骤三：
开发工具→插入→表单控件（按钮）
文章图片
根据提示指定宏：
文章图片
现在 ， 在C5单元格中输入一个起始时间 ， 然后单击一下按钮 ， 就可以显示倒计时效果了 。
文章图片
图文制作：梁倩
推荐阅读
- 百亿富豪遇“麻烦”，相中老牌百货，举牌后遭警示，恐添变数？
- 纳斯达克通知瑞幸咖啡 准备将后者摘牌
- 三国杀：卡牌是否应该“界限突破”？且看这版「界闪电」设计如何
- 莱万已经累计4张黄牌，对阵法兰克福若再吃牌，将无法出战多特
- 奇瑞又有了一款王牌SUV！64900，功率1.5T，长4.8m，H6大气
- 发动机口碑差劲5个汽车品牌，性能差油耗高，最后一款坑了不少人
- 利国又利民！豪爵全新国四摩托减免购置税，1万出头，赠送上牌费
- 银川交警缉查布控 让假牌套牌车辆无处可逃
- 开一家耐克阿迪达斯品牌折扣店，会有“钱”途吗？
- 开展警邮合作，邵阳交警推出电动自行车上牌的便民新举措