excel中vba里的ontime函数的使用方法
来源:网络收集 点击: 时间:2024-07-24首先我们打开一个工作样表作为例子。

我们使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:
Sub proce()
Range(a1) = Format(Time(), h:mm:ss)
End Sub

这段代码是在a1单元格内输入时间,并且格式是小时:分钟:秒的形式。运行这段代码。会在a1单元格内现实当前的时间。如果我们需要时钟运行起来,我们可以使用一个循环语句,并设置无限循环。

写了一个go循环,可以实现计时,但是效率低,无实用性,这时候我们就需要使用ontime函数来定时触发proce过程,同样实现时钟运行的目的,但是代码效率高的多。
Option Explicit
Dim i As Integer
Sub proce()
i = 0
1 If i = 0 Then
Range(a1) = Format(Time(), h:mm:ss)
End If
GoTo 1
End Sub

我们输入以下代码
Sub runtimer()
Application.OnTime Now() + TimeValue(00:00:01), procedure:=proce
End Sub

可以看到我们设置了当前时间加1秒时重复运行proce过程,然后在proce过程中添加runmimer()过程,那么两个过程交互调用,每隔1秒就运行一次,这就是ontime函数的定时运行功能。这种方式下代码运行的效率提高,就可以同时并行处理其他的工作。而不是时刻占用处理线程。

先写到这里了,谢谢大家的观看。
祝大家生活愉快。
小编还有许多其他的经验可以观看,如果无法解决问题可以联系小编进行咨询。
看不清楚图片的可以点击放大再看哦。
注意事项个人经验,仅供参考。
EXCEL编程语言VBAONTIME版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_999121.html