Excel-VBA：定时器的用法

最新推荐文章于 2024-09-19 09:26:45 发布

小鸿叔

最新推荐文章于 2024-09-19 09:26:45 发布

阅读量1.5w

点赞数 9

分类专栏： VBA VB OFFICE-EXCEL 文章标签： Excel VBA 定时器定时任务

本文链接：https://blog.csdn.net/jyh_jack/article/details/83409511

版权

VB 同时被 3 个专栏收录

77 篇文章 8 订阅

订阅专栏

OFFICE-EXCEL

52 篇文章 5 订阅

订阅专栏

VBA

42 篇文章 18 订阅

订阅专栏

VBA中没有定时器，但是可以使用 “Application.OnTime 时间,过程名”的方式来做一个定时器

  Public TimerEnabled As Boolean
  
  Sub EnableTimer() '开始
    TimerEnabled = True
    StartTimer
  End Sub
  
  Sub DisableTimer() '停用
    TimerEnabled = False
  End Sub
  
  Sub StartTimer()      '注意改代码需要放在模块级
      If TimerEnabled = True Then
        Application.OnTime Now + TimeValue("00:00:01"), "StartTimer" '每1秒钟自动运行一次
        Work '需要每秒运行的代码
      End If
  End Sub
  
  Sub Work()
    Sheet1.Cells(1, 1) = Sheet1.Cells(1, 1) + 1
  End Sub