問問蓮蓬頭

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

 
以下就來分享如何製作
[說明]
1.首先要建一張表單，與一個Frame與兩個Label，表單與物件的命名(Name)如 [USERFORM各物件命名] 所示
2.後續各物件的Caption請設定空白，這樣跑進度條的時候才不會有字在物件裡面
[USERFORM各物件命名]

 
3.設定LB2的背景顏色，這就是進度條的顏色，本範例以綠色進行示範。

 
4.將Lb2放到Fr1的框架內

 
5.設定Fr1的框線，設定3，讓框線的外觀在控制項邊緣呈現刻入狀

 
6.設定UF1的Showmode為False，這主要是視窗跳出後，讓後續的程式可以繼續運作的選項。

 
7.新增一個模組，並輸入程式碼，如 [Module1程式碼] 所示
[Module1程式碼]

 
8.在活頁簿上新增一個圖型，並指定剛剛寫好的 progressbar 巨集

 
9.按下剛剛新增的圖形，就會跑出寫好的進度表了

 
[特別說明]
本範例使用Office2010
Office97選擇Showmode為False時，執行時會出現錯誤。
 
謝謝您閱讀了我的文章，若您喜歡我的文章，希望你幫我按個讚，也幫忙分享給需要的朋友或其他平台，謝謝。
 
 
 
 
 
 
 
 
 
 
 

 

 
如何提升工作幸福感

 

[照片表心情] 

拍攝時間：20191027

拍攝地點：家裡附近的便利商店

有天帶著弟弟到便利商店內繳費，一進便利商店弟弟就放開我的手，開始逛他最愛的冰棒區、餅乾區、玩具區

而爸爸就去排隊繳費，到了爸爸繳費時，在貨架那方傳來弟弟的聲音呼喊著:「爸爸快來~!」

我邊繳錢邊問::「弟弟要做什麼，爸爸在排隊繳錢?」

但弟弟不為所動，還是一直接呼喊著:「爸爸快來~!」

好不容易繳完費，手上邊整理著剛繳完錢的收據，眼睛看著那找回的零錢，一邊走到傳來弟弟聲音的貨架

當我抬頭看弟弟時，看到弟弟雙腳跪在地上，手上拿著她最愛的阿蛋，用著撒嬌的聲音說著:「爸爸我可以買這個嗎?」

爸爸看到這一幕，心裡暖暖甜甜的，嘴角微笑的說出~好阿