excel中vba里的ontime函数的使用方法

1、首先我们打开一个工作样表作为例子。

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

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

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

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

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

7、先写到这里了，谢谢大家的观看。祝大家生活愉快。小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。看不清楚图片的可以点击放大再看哦。