Board logo

標題: [發問] 使用表單執行VBA的問題 [打印本頁]
作者: acdx    時間: 2013-5-13 16:05     標題: 如何讓程式執行時顯示進度

我想讓我的程式執行時可以顯示進度如範例所示
[attach]14961[/attach]
該如何做呢?
作者: GBKEE    時間: 2013-5-13 17:01

回復 1# acdx
           參考這裡
作者: acdx    時間: 2013-5-13 17:13

回復  acdx
GBKEE 發表於 2013-5-13 17:01



    積分太低 無法下載==
作者: GBKEE    時間: 2013-5-13 17:23

回復 3# acdx
哪裡有程式 可參考.
我附檔上來你(小學生)還是不能下載,你又沒上傳附檔或程式.
作者: acdx    時間: 2013-5-14 14:34     標題: 使用表單執行VBA的問題

我要使用表單執行一個程式並且希望執行過程會出現另一個userform顯示"執行中"該如何達成?
[attach]14969[/attach]
Private Sub CommandButton1_Click()
Application.Run ("'PERSONAL.XLS'!SQ_PSU_v4")
Progress.Show
End Sub
[attach]14970[/attach]

可是我現在的寫法形成會先執行完程式後Application.Run ("'PERSONAL.XLS'!SQ_PSU_v4")
才會顯示"執行中"Userform (Progress.Show)
該如何使他同時進行?
作者: GBKEE    時間: 2013-5-14 15:01

回復 5# acdx
試試看
  1. Private Sub CommandButton1_Click()
  2.     Progress.Show False
  3.     Application.Run ("'PERSONAL.XLS'!SQ_PSU_v4")
  4.     Unload Progress
  5. End Sub
複製代碼
作者: acdx    時間: 2013-5-14 18:00

回復 6# GBKEE


    試了之後卻出現這樣,Userform裡面的東西是空白的 哪裡出錯了?
[attach]14978[/attach]
作者: GBKEE    時間: 2013-5-14 18:27

回復 7# acdx
Userform裡面的東西是空白,
你用說的,我也不知道ㄚ.
作者: stillfish00    時間: 2013-5-14 19:57

回復 7# acdx
迴圈中"適當的"加上DoEvents看看



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