進度條使用問題?(已解決)

vackbin

Dear 大大們

      小弟想製作一個進度條 , 旦發現我的動作是"取代"...似乎無法計數...
而且小弟表格共7千多個不規則欄位....不知如何算出總量阿@@

詳如附件...煩請大大幫幫手阿!!
進度條使用.rar (15.33 KB)

下載次數: 23

2011-5-9 06:00

vackbin

Dear G大~~
   測試後正確!!!!感謝您的指導~~~

TO chin15 ~~
因為工作上常需要取代這個動作~雖設計巨集讓同事使用~~
但是時間蠻久的常發生同事以為當機強制關閉造成錯誤~~
所以想做個進度條改善阿~~~
我只是小助手盡量幫幫他們的忙阿~~也讓我不要老做些除錯的事

chin15

用進度條會拖慢系統的

Replace方法本來瞬間就完成的
加上進度條必然慢下來了

GBKEE

回復 4# vackbin
老弟: 這程式碼是要放在UserForm表單的程式碼

1. Private Sub UserForm_Activate()
   
2.     Dim I&
   
3.     ProgressBar1.Max = ActiveSheet.UsedRange.Cells.Count
   
4.     For I = 1 To ActiveSheet.UsedRange.Cells.Count
   
5.         DoEvents
   
6.         ProgressBar1 = I
   
7.         ActiveSheet.UsedRange.Cells(I).Replace What:="1", Replacement:="A", LookAt:=xlPart, SearchOrder _
   
8.         :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
9.     Next
   
10.     MsgBox "更新完成!", vbInformation
    
11.    Unload Me
    
12. End Sub

複製代碼

vackbin

Dear G大~~
小弟將部分錯誤刪除後,發現進度表並不會動~~
而且偵錯時發現 Unload Me的Me是不正確的關鍵字??
是我使用excel 2003版的關係嗎?
進度條使用-Ans1.rar (16.24 KB)

下載次數: 32

2011-5-9 11:31

vackbin

GBKEE 於 2011-5-9 06:58 編輯 !!!!!
G大真是早起阿!!
感謝大大這麼快就回應~~~小弟馬上試試!!

GBKEE

回復 1# vackbin

1. Sub test1()
   
2.     UserForm1.Show
   
3. End Sub

複製代碼

1. Private Sub UserForm_Activate()
   
2.     Dim I&
   
3.     ProgressBar1.Max = ActiveSheet.UsedRange.Cells.Count
   
4.     For I = 1 To ActiveSheet.UsedRange.Cells.Count
   
5.         DoEvents
   
6.         ProgressBar1 = I
   
7.         ActiveSheet.UsedRange.Cells(I).Replace What:="C", Replacement:="A" ', LookAt:=xlPart, SearchOrder _
   
8.         :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
9.     Next
   
10.     MsgBox "更新完成!", vbInformation
    
11.     Unload Me
    
12. End Sub

複製代碼