Tag: autorun

每个小时执行VBA脚本的困难

我试图每小时左右都有这个VBA脚本（发送给我一个电子邮件，如果任务到达了它的到期日）。 我环顾四周，尝试了几个例子，但是我收到了一个消息，我试图运行它。 有人会善意地给它一个快速的样子吗？ 谢谢！ Option Explicit Private Sub TaskTracker() Dim FormulaCell As Range Dim FormulaRange As Range Dim NotSentMsg As String Dim MyMsg As String Dim SentMsg As String Dim MyLimit As Double NotSentMsg = "Not Sent" SentMsg = "Sent" 'Equals the MyLimit value it will triger the email MyLimit = Date Set FormulaRange = […]

中断工作（在任何活动文件中）每x分钟运行一次macros – Excel VBA

我有一个应该每x分钟运行的macros将当前文件保存到指定的位置。 我使用这个链接来帮助编写代码 – > VBAmacros定时器样式来运行代码每个集合的秒数，即120秒 但是，当另一个excel文件打开并且有人正在处理这个macros时，这个macros就会被绊倒。 有没有办法打断用户的当前操作，并用消息框或其他方式通知他，以便macros可以继续？ Dim TimeToRun, k, RDNum, DestinationFolderName, MasterFile, TestCellNum Sub ScheduleIt() TimeToRun = Now + TimeValue("00:00:10") Application.OnTime TimeToRun, "CopyPriceOver" End Sub Sub CopyPriceOver() Windows(MasterFile).Activate Worksheets("Save Log").Activate dt = Format(CStr(Now), "mm-dd-yyyy hh-mm-ss") MasterFileName = DestinationFolderName & "RD" & RDNum & " " & TestCellNum & " " & dt & ".xlsb" […]