執行程式時讓ProgressBar 顯示進度

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 256
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

2^#

發表於 2015-6-10 21:59 | 只看該作者

回復 1# bear0925900003

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

帖子: 55
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2013-7-17
最後登錄: 2020-12-31

3^#

發表於 2015-6-11 12:15 | 只看該作者

回復 2# Scott090

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

你猜!!

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 256
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

4^#

發表於 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

帖子: 55
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2013-7-17
最後登錄: 2020-12-31

5^#

發表於 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

你猜!!

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 256
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

6^#

發表於 2015-6-11 20:56 | 只看該作者

回復 5# bear0925900003

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

133-1 使用進度條控件ProgressBar.rar (12.33 KB)

帖子: 55
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2013-7-17
最後登錄: 2020-12-31

7^#

發表於 2015-6-12 09:34 | 只看該作者

回復 6# Scott090

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

你猜!!

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 256
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

8^#

發表於 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

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

帖子: 55
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2013-7-17
最後登錄: 2020-12-31

9^#

發表於 2015-6-12 14:03 | 只看該作者

回復 8# Scott090

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

你猜!!