用VBA代碼在Excel狀態(tài)欄中顯示提示信息

用VBA代碼在Excel狀態(tài)欄中顯示提示信息

當(dāng)我們?cè)谶\(yùn)行一個(gè)執(zhí)行時(shí)間稍長(zhǎng)的VBA代碼時(shí)，可以用下面的VBA代碼在狀態(tài)欄中顯示一些信息來(lái)提示用戶：

Application.StatusBar = "提示信息"

代碼運(yùn)行完畢，再恢復(fù)默認(rèn)狀態(tài)欄：

Application.StatusBar = FALSE

例如下面的代碼在狀態(tài)欄中顯示“正在運(yùn)行，請(qǐng)稍后……”的提示信息，顯示時(shí)間為5秒鐘。

Sub DisplayMessageOnStatusbar()‘開(kāi)始執(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 = FalseEnd Sub

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。