當一個巨集內容越來越龐大與複雜，迴圈數越來越多時，執行等待的時間就會很冗長
這時使用者就會有許多問號，巨集有在跑多嗎?還要跑多久?會不會已經當機了?
所以建議在巨集內寫一個進度條，讓使用者透過視覺化與百分比來掌握目前巨集的執行進度，如 [進度條] 所示
 
[進度條]
image
 
以下就來分享如何製作
[說明]

1.首先要建一張表單，與一個Frame與兩個Label，表單與物件的命名(Name)如 [USERFORM各物件命名] 所示

2.後續各物件的Caption請設定空白，這樣跑進度條的時候才不會有字在物件裡面
[USERFORM各物件命名]
image
 
3.設定LB2的背景顏色，這就是進度條的顏色，本範例以綠色進行示範。
image
 
4.將Lb2放到Fr1的框架內
image
 
5.設定Fr1的框線，設定3，讓框線的外觀在控制項邊緣呈現刻入狀
image
 
6.設定UF1的Showmode為False，這主要是視窗跳出後，讓後續的程式可以繼續運作的選項。
image
 
7.新增一個模組，並輸入程式碼，如 [Module1程式碼] 所示
[Module1程式碼]
image
 
8.在活頁簿上新增一個圖型，並指定剛剛寫好的 progressbar 巨集
image
 
9.按下剛剛新增的圖形，就會跑出寫好的進度表了
image
 
[特別說明]
本範例使用Office2010
Office97選擇Showmode為False時，執行時會出現錯誤。
 
謝謝您閱讀了我的文章，若您喜歡我的文章，希望你幫我按個讚，也幫忙分享給需要的朋友或其他平台，謝謝。
 
 
20180128 黑.png
 
 
 
 
 
 
 
 
 
 

arrow
arrow
    文章標籤
    VBA Excel 進度條 巨集跑太久 進度棒 完成百分比 完成度
    全站熱搜
    創作者介紹
    創作者 黑天使 的頭像
    黑天使

    問問蓮蓬頭

    黑天使 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄