VBA 宏定时器样式每隔设定的秒数（即 120 秒）运行代码

Question

我需要每 120 秒运行一段代码。我正在寻找一种在 VBA 中执行此操作的简单方法。我知道可以从 Auto_Open 事件中获取计时器值，以防止必须使用幻数，但我不太明白如何启动计时器来运行某些东西每 120 秒一次。

如果可以避免的话，我真的不想在睡眠中使用无限循环。

---

编辑：

根据提供的答案进行交叉发布位于：Excel VBA 应用程序。OnTime。我认为使用这个......想法是个坏主意？

Answer 1

当工作簿首次打开时，执行以下代码：

alertTime = Now + TimeValue("00:02:00")
Application.OnTime alertTime, "EventMacro"

然后在工作簿中有一个名为“EventMacro”的宏来重复它。

Public Sub EventMacro()
    '... Execute your actions here'
    alertTime = Now + TimeValue("00:02:00")
    Application.OnTime alertTime, "EventMacro"
End Sub

Answer 2

是的，您可以使用 Application.OnTime 来实现此目的，然后将其放入循环中。这有点像闹钟，当你想让它再次响起时，你可以不断地按下贪睡按钮。以下内容每三秒更新一次单元格 A1 的时间。

Dim TimerActive As Boolean
Sub StartTimer()
    Start_Timer
End Sub

Private Sub Start_Timer()
    TimerActive = True
    Application.OnTime Now() + TimeValue("00:00:03"), "Timer"
End Sub

Private Sub Stop_Timer()
    TimerActive = False
End Sub

Private Sub Timer()
    If TimerActive Then
        ActiveSheet.Cells(1, 1).Value = Time
        Application.OnTime Now() + TimeValue("00:00:03"), "Timer"
    End If
End Sub

您可以将 StartTimer 过程放入 Auto_Open 事件中，并更改 Timer 过程中执行的操作（现在它只是更新中的时间） A1 与 ActiveSheet.Cells(1, 1).Value = Time)。

注意：您需要将代码（StartTimer 除外）放在模块中，而不是工作表模块中。如果您将其放在工作表模块中，则代码需要稍作修改。

Answer 3

在工作簿事件中：

Private Sub Workbook_Open()
    RunEveryTwoMinutes
End Sub

在模块中：

Sub RunEveryTwoMinutes()
    //Add code here for whatever you want to happen
    Application.OnTime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"
End Sub

如果您只想在工作簿打开后执行第一段代码，则只需在 Workbook_Open 事件中添加 2 分钟的延迟

Answer 4

（这是从 MS Access 帮助文件中转述的。我确信 XL 也有类似的东西。） 基本上，TimerInterval 是一个表单级属性。设置后，使用子 Form_Timer 执行您想要的操作。

Sub Form_Load()
    Me.TimerInterval = 1000 '1000 = 1 second
End Sub

Sub Form_Timer()
    'Do Stuff
End Sub

Answer 5

我发现使用 OnTime 可能会很痛苦，特别是在以下情况下：

1. 您正在尝试编码并且对窗口的关注被打断
   每次事件触发时。
2. 您打开了多个工作簿，关闭了应该使用计时器的工作簿，并且它不断触发并重新打开工作簿（如果您忘记正确终止事件）。

Chip Pearson 的这篇文章非常具有启发性。我现在更喜欢使用 Windows 计时器，而不是 OnTime。

Answer 6

我的解决方案：

Option Explicit
Public datHora As Date

Function Cronometro(action As Integer) As Integer 
'This return the seconds between two >calls
Cronometro = 0
  If action = 1 Then 'Start
    datHora = Now
  End If
  If action = 2 Then 'Time until that moment
    Cronometro = DateDiff("s", datHora, Now)
  End If
End Function

---

如何使用？简单的...

dummy= Cronometro(1) ' This starts the timer

seconds= Cronometro(2) ' This returns the seconds between the first call and this one