標題: 執行程式時讓ProgressBar 顯示進度 [打印本頁]

---

作者: bear0925900003    時間: 2015-6-10 17:54     標題: 執行程式時讓ProgressBar 顯示進度

請教各位師兄
我有確定1  確定2  確定3  確定4  確定5  確定6 等6個副程式
我另外設一個按鈕，按下後會一次執行6個副程式，想請教如何執行6個副程式同時讓ProgressBar顯示進度?

---

作者: Scott090    時間: 2015-6-10 21:59

回復 1# bear0925900003


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

---

作者: bear0925900003    時間: 2015-6-11 12:15

回復 2# Scott090


    請問師兄我試了沒動作耶，能請教怎麼用嗎?
是放在ProgressBar裡面還是執行的按鈕裡面?

---

作者: Scott090    時間: 2015-6-11 16:47

回復 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

---

作者: bear0925900003    時間: 2015-6-11 18:25

回復 4# Scott090

請問師兄下方的程式中，我的副程式該加在哪裡呢?請賜教

    #001  Private Sub CommandButton1_Click()
#002      Dim i As Integer
#003      UserForm1.Show 0
#004      With UserForm1.ProgressBar1
#005          .Min = 1
#006          .Max = 10000
#007          .Scrolling = 0
#008          For i = 1 To 10000
#009              Cells(i, 1) = i
#010              .Value = i
#011              UserForm1.Caption = "正在运行,已完成" & i / 100 & "%,请稍候!"
#012          Next
#013      End With
#014      Unload UserForm1
#015      Columns(1).ClearContents
#016  End Sub

---

作者: Scott090    時間: 2015-6-11 20:56

回復 5# bear0925900003


    這是同一網站下載的成品，程式就放在VBA的編輯區內
[attach]21159[/attach]

---

作者: bear0925900003    時間: 2015-6-12 09:34

回復 6# Scott090


    師兄你提供的範例，會先將儲存格A欄填入數字最後再刪除，我需要儲存格不填入任何數字只執行我的確認1~6的副程式，該如何修改，請賜教，感恩

---

作者: Scott090    時間: 2015-6-12 12:47

回復 7# bear0925900003


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

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

---

作者: bear0925900003    時間: 2015-6-12 14:03

回復 8# Scott090


    我成功解決了，感謝您的協助

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)