返回列表 上一主題 發帖

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

回復 33# 軒云熊

感謝軒云熊改進程式碼

資料還差一些

你的程式執行完後必須刪除重複項目

附上我最終需要的顯示效果與准大比較,這樣比較容易觀看

列出更多資料V7資料呈現.zip (49.29 KB)

TOP

回復 35# 軒云熊

目前測試

如果規格為空白(忘記打),依當初定的條件來看,只會列出那列的資料,但看起來你把該列有相同品名的關鍵字全部找出來了。

TOP

回復 38# 軒云熊

程式思路走偏了。

重申題目要點:
不要以品名為基準查詢,重複與多餘資料太多沒有參考價值
規格空白又不能查品名,那還有什麼可以列,所以想到了嗎?








應該去檢查的是你的
If X = "" Then
裡面的迴圈

改完就沒有什麼大問題了,程式核心接近需求,但不知有沒有其他BUG。

沒基礎剛開始學習,但好像看懂你程式再做什麼了,F8好用

算是互相學習吧

TOP

回復 41# 軒云熊

我的 思路是 規格 沒有 就找品名 如果品名再沒有就找品號    不知這樣的方向是不是對的   但是與準大的比對結果是一樣的
如果還有不正確的地方請你告訴我  希望你能夠給我一個機會可以學習  ^_^



不要找品名 ,直接跳過 ,應該就可以了。就達到我當初的需求。

放上結果檔

結果.zip (41.27 KB)

TOP

回復 46# 軒云熊

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

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

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

TOP

回復 48# 軒云熊

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

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

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

TOP

本帖最後由 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

回復 54# 軒云熊

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

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

再次附上篩選規則圖
ss.jpg
2020-9-6 23:15


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

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

結果0906A.zip (37.4 KB)

TOP

回復 57# 軒云熊

你改用陣列寫了

資料呈現符合規則,可以接受

沒發現什麼問題

TOP

回復 63# 軒云熊

測試一下
查詢33個資料,資料庫數7000

陣列練習加Function練習_1=>11秒
陣列加Function加字典練習=>4秒

資料列出相同

TOP

        靜思自在 : 做好事不能少我一人,做壞事不能多我一人。
返回列表 上一主題