當(dāng)我們?cè)谶\(yùn)行一個(gè)執(zhí)行時(shí)間稍長的VBA代碼時(shí)，可以用下面的VBA代碼在狀態(tài)欄中顯示一些信息來提示用戶：
Application.StatusBar = "提示信息"
代碼運(yùn)行完畢，再恢復(fù)默認(rèn)狀態(tài)欄：
Application.StatusBar = FALSE
例如下面的代碼在狀態(tài)欄中顯示“正在運(yùn)行，請(qǐng)稍后……”的提示信息，顯示時(shí)間為5秒鐘。
Sub DisplayMessageOnStatusbar()
‘開始執(zhí)行代碼
Application.DisplayStatusBar = True ‘顯示狀態(tài)欄
Application.StatusBar = "正在運(yùn)行，請(qǐng)稍后……" ‘狀態(tài)欄顯示信息
‘5秒鐘后恢復(fù)默認(rèn)狀態(tài)欄
Application.Wait Now + TimeValue("00:00:05")
Application.StatusBar = False
End Sub
