0

这是我的代码，理论上可以。我遇到的问题是，当我键入或编辑工作表时，工作表会保存并关闭我。

所以它可以工作，只是在我在工作簿中工作时它不会重置计时器。

Option Explicit
Private Sub Workbook_Open()
    EndTime = Now + TimeValue("00:05:00")
    RunTime
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If EndTime Then
        Application.OnTime _
                EarliestTime:=EndTime, _
                Procedure:="CloseWB", _
                Schedule:=False
        EndTime = Empty
    End If
    EndTime = Now + TimeValue("00:10:00")
    RunTime
End Sub

现在这是在 ThisWorkbook 中，认为它应该包含所有内容。我错过了什么吗？计时器显然没有在应该重置的时候重置。

4

1 回答 1

0

据我所知，取消计划的调用不起作用的唯一原因可能是：

  • 过程名称不同 (CloseWB) 或
  • EndTime 自最初计划任务以来已更改或
  • RunTime 做了一些使工作簿关闭的事情......
于 2012-06-22T13:58:40.080 回答