列出更多的對應資料 - Excel程式區

軒云熊

中學生 Rank: 2

帖子: 253
主題: 5
精華: 0
積分: 308
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-3-20

56^# 跳轉到 »

發表於 2020-9-7 23:00 | 只看該作者

本帖最後由軒云熊於 2020-9-7 23:14 編輯

回復 55# qaqa3296
改好了麻煩你了有空再幫我測試一下看看有沒有錯誤
javascript:;

javascript:;

javascript:;

未命名1.png (101.26 KB)

未命名2.png (111.17 KB)

結果0907.rar (44.75 KB)

TOP

qaqa3296

中學生 Rank: 2

帖子: 45
主題: 7
精華: 0
積分: 102
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2016
閱讀權限: 20
註冊時間: 2019-4-27
最後登錄: 2024-4-20

55^#

發表於 2020-9-6 23:22 | 只看該作者

回復 54# 軒云熊

目標規格如果沒有資料，只需列出一項資料即可

錯誤：篩選規則2的資料會將篩選規則1資料列出

再次附上篩選規則圖

如果只看輸出結果，我覺得程式效果已經很好了

畢竟是模糊尋找，接近要的效果就很棒了

結果0906A.zip (37.4 KB)

TOP

軒云熊

中學生 Rank: 2

帖子: 253
主題: 5
精華: 0
積分: 308
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-3-20

54^#

發表於 2020-9-6 22:11 | 只看該作者

本帖最後由軒云熊於 2020-9-6 22:21 編輯

回復 51# qaqa3296
剛才試了一下如果只搜尋這3個
A02532       R          252-1006
M00050       外胎
M00001       外框          100-1001
結果會變成這樣 ...這結果是否有錯誤 ?  外胎和外框  是只要有新舊的版本都要列出  還是要指定的品號列出一個?

javascript:;

javascript:;

未命名01.png (99.56 KB)

未命名02.png (106.44 KB)

TOP

軒云熊

中學生 Rank: 2

帖子: 253
主題: 5
精華: 0
積分: 308
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-3-20

53^#

發表於 2020-9-6 18:03 | 只看該作者

回復 51# qaqa3296
這是陣列加 Function 的方式寫的應該會比較快一點點.

javascript:;

結果0906_1.rar (44.14 KB)

TOP

軒云熊

中學生 Rank: 2

帖子: 253
主題: 5
精華: 0
積分: 308
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-3-20

52^#

發表於 2020-9-6 01:13 | 只看該作者

回復 51# qaqa3296
這是在修改後的還是有差一點有空的話幫我測試一下這次是用準大的規則加上拆字的方式不知道行不行 .麻煩你了...^^"

javascript:;

結果0906.rar (38.14 KB)

TOP

qaqa3296

中學生 Rank: 2

帖子: 45
主題: 7
精華: 0
積分: 102
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2016
閱讀權限: 20
註冊時間: 2019-4-27
最後登錄: 2024-4-20

51^#

發表於 2020-9-2 21:57 | 只看該作者

本帖最後由 qaqa3296 於 2020-9-2 22:04 編輯

回復 50# 軒云熊

有時這行會跳錯誤
Sheets(2).Cells(j, 1).AutoFilter 3, "=*" & F & "*", Operator:=xlOr, Criteria2:=F
不明原因

花了不少時間，測出一個奇怪結果檔
資料很單純，但是還是錯了?
但不知為什麼錯，被我玩壞了?

提醒一下，你程式內准大的比較，是舊的程式碼，那個有些小問題，如果你用那個當基準寫程式，可能會有多列資料的問題，他有再修正

我放的檔有更新了

結果0902B.zip (32.56 KB)

TOP

軒云熊

中學生 Rank: 2

帖子: 253
主題: 5
精華: 0
積分: 308
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-3-20

50^#

發表於 2020-9-2 18:27 | 只看該作者

回復 49# qaqa3296
那是判斷篩選結果是不是空值我找到 GBKEE 大大以前寫的方式  拜託你在有空的話幫我在試一次看看還會不會這樣
我也是新手希望我們可以互相學習  我也希望你不要測試的太晚有空再測試就好了我的想法是先確定邏輯沒有問題之後
再往字典加陣列的方向前進慢慢學習研究一步一步來如果真的不行再把問題提出來問大大們應該可以得到答案
前提是你願意花時間  陪我一起學習研究 >"<    真的很謝謝你願意幫我測試

javascript:;

結果0902.rar (40.25 KB)

TOP

qaqa3296

中學生 Rank: 2

帖子: 45
主題: 7
精華: 0
積分: 102
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2016
閱讀權限: 20
註冊時間: 2019-4-27
最後登錄: 2024-4-20

49^#

發表於 2020-9-2 00:04 | 只看該作者

回復 48# 軒云熊

測試過程有時會出現
執行階段錯誤91:
沒有設定物件變數或With區塊變數
錯誤範圍
If ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows.Count <> 1 _
Or ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Areas.Count <> 1 Then
但觸發條件不明

有時不知再讀什麼一直跑好多分鐘都沒結束....觸發條件不明

我才剛開始學習，研究你的程式看很久，測試出問題要幾小時。一個晚上就沒了..花太多時間找你程式的BUG

TOP

軒云熊

中學生 Rank: 2

帖子: 253
主題: 5
精華: 0
積分: 308
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-3-20

48^#

發表於 2020-9-1 19:43 | 只看該作者

本帖最後由軒云熊於 2020-9-1 19:52 編輯

回復 47# qaqa3296
抱歉沒有整理就直接上傳麻煩你在幫我測試一次我想知道行不行真的跑不動就算了.. >"<

javascript:;

結果0901.rar (39.5 KB)

TOP

qaqa3296

中學生 Rank: 2

帖子: 45
主題: 7
精華: 0
積分: 102
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2016
閱讀權限: 20
註冊時間: 2019-4-27
最後登錄: 2024-4-20

47^#

發表於 2020-8-31 23:00 | 只看該作者

回復 46# 軒云熊

抱歉我的骨董電腦跑不動你的程式碼(96年買的 13年了)

庫存資料一多，每次案都當掉，無法幫你測試了...

你盡力了，我的電腦也盡力了...

TOP

[發問] 列出更多的對應資料

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

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