Excel VBA - 幾秒鐘後調用宏來清除狀態欄

Question

我想知道是否有一種方法來調用宏來清除狀態欄後執行不同的宏。我意識到，我可以簡單地使用：

Application.Wait(Now + TimeValue("00:00:05")) 
Application.StatusBar = False 

但是，我想要做的是有我原來的微距端通過說一些如：

Application.StatusBar = "Macro Function Complete." 
Call clearStatusBar 
End Sub 

Sub clearStatusBar() 
'I do not want the application.wait here because it locks up the excel program. 
Application.Wait(Now + TimeValue("00:00:05")) 
Application.StatusBar = False 
End Sub 

是否有延遲「應用程序的方式。 StatusBar = False「，同時仍然允許用戶訪問該程序？

讓我知道你是否需要更清晰。謝謝你的幫助。

Answer 1

Sub TestClearStatusBar() 
    Application.StatusBar = "Testing: ClearStatusBar" 
    ClearStatusBar 
End Sub 

Sub ClearStatusBar(Optional ClearStatusBar As Boolean) 
    If ClearStatusBar Then 
     Application.StatusBar = False 
     MsgBox "Cleared" 
    Else 
     Application.OnTime Now + TimeValue("00:00:05"), "'ClearStatusBar True'" 
    End If 
End Sub 

Answer 2

Sorceri能爲我提供了我的請求，正確的方法。通過使用Application.OnTime方法，您可以在不佔用程序的情況下延遲調用宏。

Application.StatusBar = "Macro Function Complete." 
Application.OnTime Now + TimeValue("00:00:07"), "clearStatusBar" 
End Sub 

Sub clearStatusBar() 
Application.StatusBar = False 
End Sub