用VBA代碼在Excel狀態欄中顯示提示信息

當我們在運行一個執行時間稍長的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 = FalseEnd Sub