彈窗是我們常見的一種錯誤提示方式

比方說你在寫公式的時候，如果少了一個括號或者公式寫的不正確，他會給你這樣一個彈窗

或者當你寫VBA程式碼的時候，如果程式碼出現原則性錯誤的話，VB編輯器也會給你一個彈窗

這些彈窗有一個功能的特點，那就是需要你手動去關閉，至少你要手動去點選確定，然後這個彈窗才會關閉

而在我們寫VBA程式的時候，也會用這樣一個彈窗，不過我們的彈窗跟多的還是提醒功能的彈窗

提醒功能的彈窗，起到的是一個警示和提醒的效果，尤其是在VBA程式碼中，如果你沒有去掉這個彈窗，那麼程式就會一直停在那裡，非常的影響效率

尤其是我們正在執行一個大一點的程式的時候，出去倒杯水，發現因為這個彈窗沒有人去點選，導致程式一直停在這裡，白白耽誤了10多分鐘的時間。

這樣的彈窗效果非常的不好，那麼我們在自己製作VBA程式的時候，是否能夠實現一個有實效性的彈窗呢？

不管電腦前有沒有人，時間到了沒人操作的話，會自動關閉，而不會影響整體程式碼的執行呢？

答案自然是肯定的，完全可以。

然後，我們在模組1，寫入簡單的程式碼

Sub test（）

UserForm1。Show

End Sub

雙擊窗體，寫入下面這段程式碼

Private Sub UserForm_Activate（）

Application。Wait Now（） + VBA。TimeValue（“00：00：03”）

Unload Me

End Sub

OK，然後就可以運行了。

我們執行了兩次，窗臺都是一閃而過，僅僅是出現了3三秒，就自動關閉，我們並不需要做任何操作，他就會自行關閉。

這就是定時關閉的彈窗

這樣的效果是比較明顯的，尤其是在VBA程式碼中，除去一定要手工操作的彈窗之外，其他的警示性或者提醒性的彈窗，其實都可以透過這個方法來實現這個定時消失的效果，會讓我們的程式執行更加的順利

當然實際的使用中，也要結合自己的場景，在需要的時候使用這個方法。

程式碼解析

今天的程式碼的重點就是

Application。WaitNow（） +VBA。TimeValue（“00：00：03”）

Application。Wait方法，在VBA當中就是延時等待的意思

等待多久呢？

就是他後面的時間

Now（） +VBA。TimeValue（“00：00：03”），代表的就是現在往後3秒，你可以根據自己的實際需要修改後面的時間。

非常的簡單。