返回列表 上一主題 發帖

執行程式時讓ProgressBar 顯示進度

回復 1# bear0925900003


    這個是不是你想要的:
Application.DisplayStatusBar = True
Application.StatusBar = "確定一 ..."

TOP

回復 3# bear0925900003

這是顯示 StatusBar訊息,在Excel左下角:
Sub test()
      Application.DisplaystatusBar = True
      Application.statusBar = " 測試 ......."
      Application.DisplayStatusBar = False
End sub
一步步手動測試

假如一定要 ProgressBar,請參考下列網址,但請確認你的USERFORM要能有 ProgressBar 控件:   
http://club.excelhome.net/forum.php?mod=viewthread&tid=395683&authorid=167149&page=25

TOP

回復 5# bear0925900003


    這是同一網站下載的成品,程式就放在VBA的編輯區內
133-1 使用進度條控件ProgressBar.rar (12.33 KB)

TOP

回復 7# bear0925900003


    試著在 cells(i,1)=1 的地方試著放入 要執行的程式碼置換掉 Cells(i,1)=1
以下的地方請再參考:
http://forum.twbts.com/viewthrea ... ht=%B6i%AB%D7%B1%F8

也許把檔案上傳,可以較具體的互相研究一下

TOP

        靜思自在 : 有心就有福,有願就有力,自造福田,自得福緣。
返回列表 上一主題