Excel 2010 VBA 入门 058 定时运行程序

最新推荐文章于 2024-08-13 10:52:45 发布

ngbshzhn

最新推荐文章于 2024-08-13 10:52:45 发布

阅读量2.7k

点赞数

分类专栏： # Excel 2010 VBA 入门

本文链接：https://blog.csdn.net/ngbshzhn/article/details/115763100

版权

本文介绍了如何使用Excel VBA的Application.OnTime方法来定时运行程序。通过示例展示了如何在点击"开始"按钮后，使A2单元格的时间每秒更新一次，以及如何在点击"停止"按钮时停止更新。详细讲解了Application.OnTime的参数用法，包括设置定时执行、重复执行及取消定时器的方法。

摘要由CSDN通过智能技术生成

示例

实现代码

Application．OnTime方法

使用Application. OnTime重复执行程序

取消Application. OnTime定时器的方法

示例

在许多时候，开发者希望能够在指定时间运行某个程序，该如何实现？本例中，希望为两个按钮设置代码（如图所示）。当单击“开始”按钮后，A2单元格的时间开始启动，并且每秒变动一次，使其值为当前计算机的时间；当单击“停止”按钮后，则停止A2的时间变动。该如何实现？

实现代码

Option Explicit

Dim dNextTime As Date

Sub StartTimer()
    '设定下次运行时间为当前时间中1秒
    dNextTime = DateAdd("s", 1, Now)
    '定时运行程序本身
    Application.OnTime dNextTime, "StartTimer"
    '改变单元格的值为当前时间
    Cells(2, 1).Value = Now
End Sub

Sub StopTimer()
    Application.OnTime dnexttimer, procedure:="StartTimer"
End Sub