運行宏每2小時以前是否運行完成

Question

我給自己定宏通過運行，每隔2小時：

Application.OnTime (TimeSerial(6, 0, 0)), "AutoUpdate" 

但是有一個問題，有時偶爾宏將波及超過2小時並在前一個宏仍在運行時嘗試再次運行，導致其崩潰。是否有人知道如何說「如果之前的」自動更新「仍在運行，那麼不要再次運行」自動更新「？

Answer 1

定義布爾類型的全局變量：

Dim gRunning as Boolean 

在你的子，添加以下代碼：

If gRunning = True Then 
    Exit Sub 
End If 

gRunning = True 

[...] 

gRunning = False