? ? ? ? 這是一個為VBA程序執(zhí)行過程添加自動提示窗的演示。例如，在程序執(zhí)行之前，點擊開始，然后彈出一個窗口提示“正在執(zhí)行”，當執(zhí)行完畢后自動關閉提示窗，這樣做可以避免當?shù)却龝r間過長時用戶不知所措。
步驟1：
首先，到開發(fā)工具中在VBA工程創(chuàng)建一個提示窗體UserForm1，如下圖1：
圖1
?步驟2：
其次，在程序開始執(zhí)行前顯示該窗體，代碼如下：
UserForm1.Show 0 ? ? '參數(shù)0表示打開窗體后不暫停，繼續(xù)往下執(zhí)行
Application.Wait (Now + TimeValue("0:00:01")) ? '延時1秒，此語句非常關鍵，可讓窗體正常顯示
步驟3：
最后，關閉提示窗體，代碼如下：
UserForm1.Hide ? ?'隱藏/關閉窗體
演示：
當步驟2沒有延時語句時，提示窗體的文字是無法正常顯示的，如下圖2：
圖2
當步驟2添加了延時語句后，提示窗體的文字就能正常顯示了，如下圖3：
圖3文章來源：http://www.zghlxwxcb.cn/news/detail-446242.html
? ? ? ? ?后記：當然，Wait函數(shù)也有缺陷，并非百分百能成功，而使用On?Time函數(shù)能讓窗體更加穩(wěn)定，幾乎百分之百成功，關于On?Time的使用方法，可參考《完美Excel啟動歡迎界面》一文。文章來源地址http://www.zghlxwxcb.cn/news/detail-446242.html
到了這里，關于VBA執(zhí)行過程提示窗演示的文章就介紹完了。如果您還想了解更多內容，請在右上角搜索TOY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關文章，希望大家以后多多支持TOY模板網(wǎng)！
