excel - 宏每分钟运行一次，但我希望特定的子程序每 45 分钟运行一次

Question

我有一个电子表格，在上午 8 点到下午 4 点之间每分钟运行一次，用于从特定文件夹导入文件并执行特定计算

进行计算是为了检查是否超出了限制。如果超出限制，则电子表格需要通过声音警报和电子邮件警报通知用户。要求是声音警报每分钟发出一次，而电子邮件警报应该每 45 分钟发出一次，因为他们不想收到垃圾邮件。

public sub fileImport()
     if between 0800 to 1600
         //do file import
         //do calculations
         if breach sound alert             
     end if   
     Application.OnTime RunEveryMinute, fileImport

     if there is a breach
         sendMail()         
         Application.OnTime RunEvery45Min, sendMail              
     end if

public sub sendEmail()
     //do email function

那么我怎样才能每 45 分钟而不是每分钟调用一次 sendEmail 子函数呢？

Answer 1

假设这是一个循环，只需记录上次发送时间并将其与Now进行比较；

Public Sub sendEmail()
    Static lastSent As Date
    If DateDiff("m", lastSent, Now) > 45 Then
         '//do email function
         lastSent = Now
    End If
End Sub

(这也会在第一次调用时发送)