1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-5-9 06:01 | 只看該作者

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

本帖最後由 vackbin 於 2011-5-11 11:58 編輯

Dear 大大們

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

詳如附件...煩請大大幫幫手阿!!

進度條使用.rar (15.33 KB)

Jack

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-5-9 06:45 | 只看該作者

本帖最後由 GBKEE 於 2011-5-9 06:58 編輯

回復 1# vackbin

複製代碼

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

複製代碼

3^#

發表於 2011-5-9 10:48 | 只看該作者

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

Jack

4^#

發表於 2011-5-9 11:31 | 只看該作者

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

進度條使用-Ans1.rar (16.24 KB)

Jack

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-5-9 14:09 | 只看該作者

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

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