日日操夜夜添-日日操影院-日日草夜夜操-日日干干-精品一区二区三区波多野结衣-精品一区二区三区高清免费不卡

當我們在運行一個執行時間稍長的VBA代碼時，可以用下面的VBA代碼在狀態欄中顯示一些信息來提示用戶：

Application.StatusBar = "提示信息"

代碼運行完畢，再恢復默認狀態欄：

Application.StatusBar = FALSE

例如下面的代碼在狀態欄中顯示“正在運行，請稍后……”的提示信息，顯示時間為5秒鐘。

Sub DisplayMessageOnStatusbar()
‘開始執行代碼
Application.DisplayStatusBar = True ‘顯示狀態欄
Application.StatusBar = "正在運行，請稍后……" ‘狀態欄顯示信息
‘5秒鐘后恢復默認狀態欄
Application.Wait Now + TimeValue("00:00:05")
Application.StatusBar = False
End Sub