帖子: 46
主題: 10
精華: 0
積分: 77
點名: 0
作業系統: Win11
軟體版本: Office2013
閱讀權限: 0
性別: 男
註冊時間: 2010-10-13
最後登錄: 2024-3-26

1^# 跳轉到 » 正序看帖

字體大小: tT

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

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

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

Dear 大大們

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

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

進度條使用.rar (15.33 KB)

樓主熱帖

Jack

vackbin

等待驗證會員

帖子: 46
主題: 10
精華: 0
積分: 77
點名: 0
作業系統: Win11
軟體版本: Office2013
閱讀權限: 0
性別: 男
註冊時間: 2010-10-13
最後登錄: 2024-3-26

7^#

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

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

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

Jack

TOP

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

6^#

發表於 2011-5-9 19:02 | 只看該作者

用進度條會拖慢系統的

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

複製代碼

TOP

vackbin

等待驗證會員

帖子: 46
主題: 10
精華: 0
積分: 77
點名: 0
作業系統: Win11
軟體版本: Office2013
閱讀權限: 0
性別: 男
註冊時間: 2010-10-13
最後登錄: 2024-3-26

4^#

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

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

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

Jack

TOP

vackbin

等待驗證會員

帖子: 46
主題: 10
精華: 0
積分: 77
點名: 0
作業系統: Win11
軟體版本: Office2013
閱讀權限: 0
性別: 男
註冊時間: 2010-10-13
最後登錄: 2024-3-26

3^#

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

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

Jack

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

2^#

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

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

回復 1# vackbin

Sub test1()
UserForm1.Show
End Sub

複製代碼

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

複製代碼

TOP