网站首页 > 技术文章 正文
Excel制作竞答倒计时器
原创 Excel and Python 实用办公编程技能 2019-12-23
前几天,单位搞年庆,中间有一个环节是有奖竞答,当时会务组长让我来负责控制竞答计时,当时我就自己用Excel做了一个竞答倒计时器。
那么,如何用Excel制作竞答倒计时器呢?
今天,晓白就用Excel的VBA编程来给大家演示!
第一步:制作倒计时器显示界面
主要是制作倒计时器的开始和停止按钮、倒计时长设置、倒计时显示。
(1)点击“开发工具”,进入设计模式,插入按钮
(2)添加倒计时长设置显示项
(3)添加倒计时显示项
第二步:编写倒计时定时子过程模块
(1)定义倒计时“开始”和“停止”标志全局变量
Public flag As Integer
(2)定义倒计时时长全局变量
Public count As Integer
(3)VBA编写倒计时定时子过程模块
Sub Time_count()
If flag = 1 Then
ThisWorkbook.Sheets(1).Range("G6") = count
count = count - 1
If count = 0 Then
flag = 0
End If
End If
DoEvents
Application.OnTime Now() + TimeValue("00:00:1"), "Time_count"
End Sub
第三步:编写“开始”和“停止”按键事件
(1)“开始”按键事件(调用了倒计时定时子过程模块:Time_count)
Private Sub CommandButton1_Click()
flag = 1
count = Range("I4").Value
Time_count
End Sub
(2)“停止”按键事件
Private Sub CommandButton2_Click()
flag = 0
ThisWorkbook.Sheets(1).Range("G6") = 0
End Sub
以上就是用Excel实现竞答倒计时器的方法,下面给出具体的VBA代码供大家交流!
关注我们的公众号“实用办公编程技能”(微信号:Excel-Python),让我们的工作和生活变更更轻松。
往期文章:
0.用Excel倒计时还有多少天过年
1.用Excel做一个自动抽奖器
2.如何自己编写Excel函数并调用?
3.Excel玩转动态查找信息表
4.轻松搞定Excel的VBA编程
5.用Excel实现批量发送个性化邮件
6.玩转Excel的几个高频使用函数(七)
7.玩转Excel的几个高频使用函数(六)
8.玩转Excel的几个高频使用函数(五)
9.玩转Excel的几个高频使用函数(四)
10.玩转Excel的几个高频使用函数(三)
11.玩转Excel的几个高频使用函数(二)
12.玩转Excel的几个高频使用函数(一)
猜你喜欢
- 2024-10-01 Excel VBA 事件过程实现数据变化结果也会随之自动更新
- 2024-10-01 每天长时间盯着电脑,这三招帮你缓解眼睛疲劳
- 2024-10-01 Excel-VBA:13、Excel事件程序(vba事件怎么触发)
- 2024-10-01 excel vba常用语句干货分享,错过了就不会再有了(关注!)
- 2024-10-01 设计模式之观察者模式,事件机制的底层原理全面解析(建议收藏)
- 2024-10-01 相同单元格自动变色提醒(相同单元格自动变色提醒怎么取消)
- 2024-10-01 Excel实用技巧:根据条件,锁定某个单元格
- 2024-10-01 苹果电脑这些超实用的隐藏功能,不会用就等于白花钱了!
- 2024-10-01 办公小技巧:制作自动显示子菜单的下拉菜单
- 2024-10-01 常用的、带解释的 VBA 短句(vba常用语句详解)
- 最近发表
- 标签列表
-
- cmd/c (57)
- c++中::是什么意思 (57)
- sqlset (59)
- ps可以打开pdf格式吗 (58)
- phprequire_once (61)
- localstorage.removeitem (74)
- routermode (59)
- vector线程安全吗 (70)
- & (66)
- java (73)
- org.redisson (64)
- log.warn (60)
- cannotinstantiatethetype (62)
- js数组插入 (83)
- resttemplateokhttp (59)
- gormwherein (64)
- linux删除一个文件夹 (65)
- mac安装java (72)
- reader.onload (61)
- outofmemoryerror是什么意思 (64)
- flask文件上传 (63)
- eacces (67)
- 查看mysql是否启动 (70)
- java是值传递还是引用传递 (58)
- 无效的列索引 (74)