piny-條件篩選(VBA)

piny · 发表于 2014-1-2 17:09

大家新年快樂！

由於工作環境改變，原先設計之巨集已不敷使用，故東湊西拼出一個堪用版，不過執行時間都甚長，約20分鐘。

故列示一個極簡單的附件請大家協助提出建議。

使用方式：

1. 請將附件五個檔案都解壓縮至同一路徑

2. 打開piny_auto_R2.06

3. B2請填201311

4. B3請填否

5. B4至B7請選擇清單中之任意組合

6. A33至A52可於任意多格填寫二位數至四位數

7. D33, D35, B55, B56請選擇清單中之任意組合

8. 之後按下「執行基準分析」

附檔有模擬一極簡情況，我的電腦需運行32秒。由於實際檔案大小大約是本版之30幾倍，故相同條件變成需運行約20分鐘。

謹請教可優化代碼的方式，先前僵化於部分內容要有公式，不過隨著檔案量的增加，公式算法覺得愈來愈慢，

3.zip (1 MB, 下载次数: 14)

201311 info_u.zip (1.42 MB, 下载次数: 12)

201311 info_c.zip (1.42 MB, 下载次数: 20)

謝謝。

執行基準分析的運行大致如下：

1. 於同路徑下開啟四個檔案，篩選後不存檔後關閉

2. A33至A52即檢查所開啟之info_C檔案中result活頁之U欄，那一筆公司符合條件。

舉例，若A33填寫13，則U欄只要是1300-1399皆符合；若A34填寫489，則U欄只要是4890-4899皆符合；若A37填寫2834，則U欄是2834即符合

3. B33至B52即檢查所開啟之info_C檔案中result活頁之W欄，那一筆公司符合條件。

4. C33至C52即檢查所開啟之info_C檔案中result活頁之Y欄及Z欄，那一筆公司有包含即符合條件。

5. 2,3,4為聯集判斷(可參考公式寫法，不過顯然此方式絕對不效率)

With Range("EB3").Resize(xEndrow - 2)
.Formula = _
"=SUMPRODUCT((LEFT(U3,LEN(DW$33:DW$52))=DW$33:DW$52&"""")*(DW$33:DW$52<>"""")+(LEFT(W3,LEN(DX$33:DX$52))=DX$33:DX$52&"""")*(DX$33:DX$52<>"""")+(LEN(SUBSTITUTE(Y3&"" ""&Z3,DY$33:DY$52,""""))<>LEN(Y3&"" ""&Z3)))"
.Value = .Value
End With

复制代码

6. D33, D35係判斷公司所有地區(F欄)，與5為交集判斷

7. 判斷OK的公司會算到auto檔案的all_CU與info_CU活頁

8. 定量及定性活頁即所求

piny · 发表于 2014-1-3 14:59

小弟覺得主要原因是我仍習慣以公式的語法來架構我想要的效果，所以通常的寫法就是寫好公式再一起下拉，主要改進的方向應該就是減少利用公式的寫法。{:soso_e100:}

因為我開啟簡体版的excel，巨集裡亦全是亂碼，想請教我的繁体版Excel巨集代碼，各位是否亦是看到亂碼？

蓝桥玄霜 · 发表于 2014-1-3 15:14

代码里面有繁体字的地方是乱码，建议有繁体字的都改为英文，包括模块名。

piny · 发表于 2014-1-3 15:40

本帖最后由 piny 于 2014-1-6 10:30 编辑

不相干的代碼先全部移除，先把問題精簡化

piny · 发表于 2014-1-3 15:41

本帖最后由 piny 于 2014-1-6 10:31 编辑

不相干的代碼先全部移除，先把問題精簡化

piny · 发表于 2014-1-3 15:46

這是A0001之所有代碼

piny · 发表于 2014-1-6 10:40

謝謝藍老師的提醒，把不相干的代碼全移除，代碼介面也全部英文化，煩請大大提出優化建議，謝謝。

piny_auto_R2.06Test.zip (166.78 KB, 下载次数: 3)

201311_all.zip (547.57 KB, 下载次数: 2)

201311 info_c.zip (1.42 MB, 下载次数: 11)

201311 info_u.zip (1.42 MB, 下载次数: 2)

使用方式：
五個檔案壓縮後放於同一路徑，代碼全部都在auto的附件中，其餘四個係自資料庫中每月用人工load下來，實際檔案大小甚大

在auto的UI活頁填選完相關選項(淺藍底)後，按旁邊執行巨集

我覺得可能卡的步驟在於我有四處是寫好公式後下拉，之後再把公式移除

准提部林 · 发表于 2014-1-6 22:54

Sub OSIRIS篩選及CU整合()　　這段很耗時間，
昨天利用假日理一下流程，加上今晚修了一半，
流程太多，儘管之前參與了部份程式，還是要重來，不確定可完全達到需求（目前也是時間有限），
倒是希望〔藍老師〕能來個全壘打！終結這苦惱的資料匯整！加油啦！

准提部林 · 发表于 2014-1-7 18:52

本帖最后由准提部林于 2014-1-14 14:36 编辑

儘力了，請測試！～～

繁體版．主檔：（程式碼在樓下），其他不盡處，請論壇各位大俠幫幫手，謝謝！＿2014.01.14
　
另外４檔，請自行轉換為 .xls 副檔名的檔案！
執行時一樣會有重算問題，應該是其他表有公式參照到正寫資料的工作表，
　
手上只有２０００版，真使不上力～～
　
　

piny · 发表于 2014-1-8 02:38

准提部林发表于 2014-1-7 18:52
儘力了，請測試！～～

繁體版．主檔：

哈！感謝回覆，由於小弟明日一大早要至日本出差五日，待回來工作後再進行測試，謝謝。 ^^

		自动登录	找回密码
密码			免费注册

piny-條件篩選(VBA)

评分

评分

最新热点 /1