誰能幫這幾乎重複動作的VBA瘦身謝謝 - Excel程式區

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 294
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

9^# 跳轉到 »

發表於 2015-8-25 10:50 | 只看該作者

本帖最後由 lcctno 於 2015-8-25 10:51 編輯

回復 7# don4831
先感謝您的用心與建議辛苦您了
就是因為這檔案執行起來真的很佔資源且又費時已勉強使用數年了 (因為我只會用函數寫) 所以才會貼文想改請高手幫助我改用VBA之工程寫法

TOP

lcctno

中學生 Rank: 2

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 294
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

8^#

發表於 2015-8-25 10:44 | 只看該作者

回復 6# ikboy

奇怪在我這端看起來很正常並沒有亂碼???
且都能執行

TOP

don4831

中學生 Rank: 2

帖子: 10
主題: 2
精華: 0
積分: 60
點名: 0
作業系統: win7
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: 新北市
註冊時間: 2015-6-3
最後登錄: 2017-1-13

7^#

發表於 2015-8-25 10:28 | 只看該作者

透過工作管理員之處理程序可觀察EXCEL使用系統資源之情況。
我的環境：記憶體4G,可用2.9G，EXCEL用達299,000K時就會當。
只開【~test% -.xls】檔，不開其他檔，
(1)未執行前，EXCEL使用的系統資源：CPU使用率26%，記憶體用91,372K
(2)執行後，分析至6時，EXCEL使用的系統資源：CPU使用率61%，記憶體用209,336K
(3)分析至7時，EXCEL使用的系統資源：CPU使用率55%，記憶體用285,176K
(4)分析至8時，EXCEL使用的記憶體逾290,000K時，用ESC中斷作業。
公式相當耗資源，這支程式，幾乎所有的工作表都有公式，
如果不能強化系統資源，建議拆檔，將公式轉成程式和結果資料分開呈現。

[color=blue]KY[/color]

TOP

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

6^#

發表於 2015-8-25 08:59 | 只看該作者

看到了問題是代碼中的中文字源於不同語系, 在您的檔案中亂碼了, 請手動更改
ar = Array("析1", "析2", "析3", "析4", "析5", "析6", "析7", "析8", "析9", "析10")

TOP

lcctno

中學生 Rank: 2

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 294
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

5^#

發表於 2015-8-24 17:46 | 只看該作者

回復 4# ikboy

送上原檔請您試試不知道那裏出問題其中
[執行]之按鈕是我錄製的可以正常執行7000列之資料但執行7000列要花費很久的時間
[xx]之按鈕是您第一次寫的執行錯誤(非程式碼錯誤)
[yy]之按鈕是您第二次寫的執行錯誤(非程式碼錯誤)

還請您多照顧了謝謝您

~test% -.zip (396.17 KB)

TOP

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

4^#

發表於 2015-8-24 08:49 | 只看該作者

回復 3# lcctno

Sub ZZ()
Dim ar, br, MyRng
Myrng = sheets("Data" ).[L4] & “:” & sheets("Data" ).[M4] Rem[起始列數]="Data"之L4    [結束列數]="Data"之M4
ar = Array("析1", "析2", "析3", "析4", "析5", "析6", "析7", "析8", "析9", "析10")
For i = 0 To UBound(ar)
Select Case i
Case 0 To UBound(ar) - 1
      With Sheets(ar(i))
         .Rows(2).Copy .Rows(myrng)
         br = .Rows(myrng)
         .Rows(myrng) = br
      End With
Case UBound(ar)
      With Sheets(ar(i))
         .Rows(2).Copy .Rows("201:301") Rem 此處如此類推
         br = .Rows("201:301")
         .Rows("201:301") = br
      End With
End Select
Next
End Sub

TOP

lcctno

中學生 Rank: 2

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 294
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

3^#

發表於 2015-8-24 08:19 | 只看該作者

回復 2# ikboy

感謝您的熱心幫助但這樣執行只能比對300筆資料我是想要能執行到10001
還有想要請教可否能由外部之值例如於 "Data" 之分頁內加入2個輸入格可以輸入 [起始列數]="Data"之L4 [結束列數]="Data"之M4 做區段之比對這樣執行起來會省很多時間
在此先謝謝您的費心了

TOP

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

2^#

發表於 2015-8-24 07:18 | 只看該作者

Sub ZZ()
Dim ar, br
ar = Array("析1", "析2", "析3", "析4", "析5", "析6", "析7", "析8", "析9", "析10")
For i = 0 To UBound(ar)
Select Case i
Case 0 To UBound(ar) - 1
      With Sheets(ar(i))
         .Rows(2).Copy .Rows("3:101")
         br = .Rows("3:4")
         .Rows("3:101") = br
      End With
Case UBound(ar)
      With Sheets(ar(i))
         .Rows(2).Copy .Rows("201:301")
         br = .Rows("201:301")
         .Rows("201:301") = br
      End With
End Select
Next
End Sub

TOP

[發問] 誰能幫這幾乎重複動作的VBA瘦身謝謝

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]

[發問] 誰能幫這幾乎重複動作的VBA瘦身 謝謝

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]

[發問] 誰能幫這幾乎重複動作的VBA瘦身謝謝