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

小编致力于为大家奉献最有效的经验，让大家能够解决掉问题，但是大家也都知道，每个人遇到的情况都是不一样的，大家在看小编经验的同时，除了跟随操作，也需要自己的思考，举一反三的解决问题，这样才会变得更加有内涵，成为和小编一样的经验达人。excel中vba里的ontime函数的使用方法，这里，让小编给大家介绍一下。

 

工具/原料

 

• excel2016
• 此经验本人原创首发，未经本人许可请勿转载。

方法/步骤

 

1. 1

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

   
2. 2

   我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

   Sub proce()

   Range("a1") = Format(Time(), "h:mm:ss")

   End Sub

   
3. 3

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

   
4. 4

   写了一个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

   
5. 5

   我们输入以下代码

   Sub runtimer()

   Application.OnTime Now() + TimeValue("00:00:01"), procedure:="proce"

   End Sub

   
6. 6

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

   
7. 7

   先写到这里了，谢谢大家的观看。

   祝大家生活愉快。

   小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。

   看不清楚图片的可以点击放大再看哦。