excel2003利用vba制作倒计时器的教程
发布时间:2023-02-07 01:12:51
在Excel中录入好数据以后可能经常需要用到计时器这个功能,这个功能制作起来可能有点困难,如果有需要的朋友可以学习一下。下面是由小编分享的excel2003利用vba制作倒计时器的教程,供大家阅读、学习。
excel2003利用vba制作倒计时器的教程:
制作计时器步骤1:在EXCEL窗口中按上图的样式做一个界面,设置你喜欢的字体大小与颜色边框。由于是用VBA代码制作计时部份,所以表格中不用输入任何公式。
制作计时器步骤2:按ALT+F11组合键调出VBA窗口,按“插入-模块”,出现一个空白的模块窗口,把下面代码粘贴进去。
Dim n '公用变量,记住下一个任务执行的时间
Dim a '开始时间
Dim b '结束时间
Sub 计时()
n = Now + TimeValue("00:00:01") '设定时间间隔为一秒
If Now() > b Then MsgBox "倒计时结束": Call 停止: Exit Sub
[c4] = Format(b – Now(), "h:mm:ss") '设置单元格格式
Application.OnTime n, "计时" '到指定时间后再执行本过程
End Sub
Sub 开始()
[c2] = Format([c2], "h:mm:ss") '设置单元格格式
a = [c2] '设定时间
b = Now() + a '计算结束时间
[c3] = Format(b, "yyyy-m-d h:mm:ss") '设置单元格格式
Call 计时
End Sub
Sub 停止()
On Error Resume Next
Application.OnTime n, "计时", , False '停止任务的执行
End Sub
这组代码由四部份组成:
第一部份(最上面三行)是声名公共变量,使这几个变量在下面各过程中都可调用。
第二部份是“Sub 计时”,也是主代码,它负责不停的计时并显示剩余时间。
第三部份“Sub 开始”,相当于初始化部份,设置单元格格式及显示“计时结束时间”,在这个部份会调用“Sub 计时”过程来进行倒计时。
第四部份“Sub 停止”,终止倒计时过程。
代码中的关键部份是“sub 计时”,它使用onTime函数实现自动计时功能。
常用语法:
Application.OnTime 时间,要运行的过程名
在上例中,“Application.OnTime n, "计时"”的含义是到下一个时间“n”,就执行一次名为“计时”(即 “sub 计时”自身)的代码。
时间“n”由语句“ n = Now + TimeValue("00:00:01")”计算得出,表示由当前时间(即“NOW”)加上一个1秒的时间值。
在“Sub 停止”过程中,也使用了OnTime函数,但它多了一个参数False ,它的作用是到时间“n”后,停止过程“Sub 计时”的执行(即计时结束)。
其他语句部份比较容易理解,可参考各语句后面的注释。
制作计时器步骤3:添加按钮
为了方便执行,需要在EXCEL窗口添加两个按钮,一个“开始”,另一个是“结束”。
在EXCEL窗口中按“视图-工具栏-窗体”,调出“窗体”工具栏,用鼠标选中上面的“按钮”控件在C列的右边“画”出两个大小适中的按钮,再用鼠标右键分别点击按钮,选“编辑文字”,第一按钮输入“开始”,第二个按钮输入“停止”。
接下来还要给按钮指定要运行的宏(就是在VBA窗口中的代码)
在“开始”按钮上点右键,选“指定宏”,在弹出的窗口中选“开始”后确定。同样方法给“停止”按钮指定“停止”宏。
这样就完成了整个制作过程,可以使用了。
在C2单元格中输入一个时间(格式为“时:分:秒”),点击按钮“开始”就能看到在C3格中出现一个计时结束的时间,同时在C4格出现以一秒为间隔不断递减的时间数字,当C4单元格显示为0时弹出提示窗口,计时结束。
猜你喜欢
- 在我们用比较高的office编辑文档时,生成的后缀为.docx的文档,当拿到低版本打开后出现一些格式或者兼容性不对的提示,其实很简单,我们可
- 在Excel中制作过图表的人应该都知道,表格中的行和列会直接在图表中反映出来。不过有时候我们会用到切换行或者列这一个功能,切换过后的图表会明
- 相信大家对于excel并不陌生,它可是三大办公利器之一,专门用于各种数据的处理,统计和分析。但是单一的数据难免会使人感到枯燥和乏味,有什么办
- excel表格中的折线图怎么突出最高值?excel表格中插入了折线图,想要将折线图中的最高点做一个标记,该怎么做呢?下面我们就来看看详细的教
- 使用Word中的表格也可以像使用Excel中的表格一样对数据进行计算,使用公式在Word 表格中计算数据的特殊之处是以above、below
- 自2020年1月14日起,微软宣布正式停止对win7系统的支持,因此win7系统将不会安全修复和更新。继续使用win7系统将大大增加病毒和恶
- 平时使用Excel表格制作报表时,额外的网格线就会显得很多余,为了使效果好看,这时需要我们手动“删除”这些网格线。方法有两种,根据你的不同需
- 打印机是办公必备设备之一,很多人都需要局域网共享打印。前几天微软Windows10更新KB5005565补丁,出现打印机无法连接错误 代码x
- Word中,标尺包括水平标尺和垂直标尺,用于显示和调整文档的页边距、段落缩进、制表符等;网格线主要用于帮助用户将文档中的文本对象和图形对象等
- 许多小伙伴在使用电脑的时候,经常都会进行电脑系统的更新,特别是Win10系统,可以说非常经常进行一些更新。不少用户在使用电脑更新系统的时候却
- word中字数统计很常用,比如老师要求写篇论文,要求不少于5000千,难道大家会一个个去数数?当然这时候就用到了字数统计功能,很方便哦。那么
- 在工作中Excel表格的简单求和运算你还在使用Excel函数求和吗?教你使用快捷键,轻松搞定隔行求和哦~下图是我们要求和的单元格,像这种隔行
- Excel表格中的日期怎么快速标注双休日?excel表格中的数据想要标注出双休日,该怎么给双休日填充黄色背景呢?下面我们就来看看详细的教程,
- Excel2013中创建共享工作簿的方法①打开Excel2013,单击菜单栏–审阅–共享工作簿选项。Excel2013②在编辑选项卡中勾选允
- Word2013中的文档有些文字或者字母的下面会出现一些红色的波浪线,是怎么回事?能去掉吗?出现波浪线是Word2013自动检查文档中拼写和
- 今天,苹果向iPhone手机推送了iOS16.1RC版及iPadOS16.1RC版升级更新,iOS16.1RC版升级更新包大小达5GB左右,
- Excel2016表格中怎么制作任务管理器项目?excel中想要制作一份类似于任务管理器一样的东西,该怎么制作呢?下面我们就来看看详细的设置
- Excel中经常需要使用到表格进行归纳数据,基础的表格具体该如何制作呢?接下来是小编为大家带来的excel制作基础表的方法,供大家参考。ex
- 学理科的朋友们可能常常会有这样的感受,一篇论文写下来,公式占据了很多内容,往往会导致文章内容显得有些杂乱。但是如果我们对文章中的公式进行编号
- 其实在Word中插入表格是极为简单的事情,但由于有些朋友,还是刚接触Word没多久,对此还比较不熟悉,所以小编就在这里好好为大家介绍一下在W