麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 多條件篩選&ListBox [打印本頁]

作者: starbox520 時間: 2016-11-12 16:25 標題: 多條件篩選&ListBox

此為ListBox 以CARRIER為條件的按鈕
[attach]25794[/attach]
以圖示說明為例
[attach]25785[/attach]
若以附檔中工作表"TR排機&產出"
紅線圈起的位置，要對應到工作表"Cus簡碼""材料"
Package跟 Bodysize對到工作表"材料"的"P""Q"欄位
[attach]25786[/attach]
Customer對應到工作表"CUS簡碼"，會在B欄位找到相同資料對應到A欄(如下圖找到UM9)
[attach]25787[/attach]
之後再以A欄的簡碼找到工作表"材料"的 M欄位
[attach]25788[/attach]
找到此筆後，在對應到工作表"材料"的"BA"欄(4101129111)
再來找出現在BA欄相同的資料(都是4101129111)
去對應到M欄的簡碼(依下圖找到5筆資料(排除原先找的UM9))
[attach]25789[/attach]
再以這5筆資料的"M""P""Q"欄位對應到 工作表2的"A""B""C"欄位
最後找到此筆(顯示在LISTBOX上)
[attach]25791[/attach]

第2個按鈕和第一個按鈕差異在找到"CUS簡碼"後
對應到工作表"材料"的"AZ"欄位(都是16的)
[attach]25790[/attach]
例如圖示多了一筆CYPRESS
再去對應到工作表2"A""B""C欄位"

第5個按鈕
就是listbox目前呈現的資訊
以工作表"TR排機&產出"對應到"工作表2"package/body 相同的
第3個按鈕
以工作表"TR排機&產出"對應到"工作表2"customer/ package /bodysSize/LC相同的
第4個按鈕
以工作表"TR排機&產出"對應到"工作表2" package /bodysSize/LC相同的

下面那個ListBox1
有辦法修正為先篩選工作表"WIP"--->J欄的"G"資料R欄的"R資料" S欄的"附檔標示的6筆資料"
整理完後的資料，此欄的資料用途為上方的LISTBOX點選後的資訊，只想秀出上面先篩好條件的資訊就好

PS: 如果能夠有方法直接把這五個按鈕，變成一開始點工作表"TR排機&產出"Package 欄位叫出LISTBOX
就直接做完這五個按鈕的事情，直接全部資訊呈現在LISTBOX上，依數字區分這五個按鈕的篩選條件(OR有更好的方法)
下方只是想法...我顯示的類別1234意思是假如剛好這4筆資料，第一筆剛好是按鈕一的結果，第二筆為按鈕二的結果..以此類推
當然資料會有好多筆...
[attach]25793[/attach]
[attach]25795[/attach]

作者: starbox520 時間: 2016-11-14 15:12

各位大大們有想法嗎

也可以提供一下我下手的觀念QQ

作者: starbox520 時間: 2016-11-16 09:14

回復 1# GBKEE

請問版大如果需要這麼多種篩選方式，再存入ListBox

是不是連判斷初始點擊的位置都要改掉方法...

若會有5個array

有辦法5個Array接著顯示在ListBox上嗎

版大長年的經驗

這些條件可以用什麼比對方法完成呢...

作者: starbox520 時間: 2016-11-18 18:59

有人有想法嗎QQ

作者: c_c_lai 時間: 2016-11-23 06:57

本帖最後由 c_c_lai 於 2016-11-23 07:01 編輯

回復 4# starbox520
我眼睛最近又再開一次手術，試著看妳的解說非常吃力；
妳能否用圖示從 "TR排機&產出"、 "Cus簡碼"、"材料"
， . . . . 的相關 KEY 先後對應欄位值的關係，
一一用圖片將其彼此間先後次序排列下來，
以方便了解其彼此間先後從屬關係。

P.S. 並請再次附上本論題的 Excel 檔案，以便來回對照。

作者: starbox520 時間: 2016-11-23 10:10

本帖最後由 starbox520 於 2016-11-23 10:12 編輯

回復 5# c_c_lai

原先設計的觸發事件是只要我點紅色圈起的部分就能叫出ListBox
[attach]25872[/attach]
點選其中一個
[attach]25870[/attach]
因為原先設計還要再加上4種我先前所述的條件至ListBox
以下是對應關係
_________________________________________________________________
以此圖為例
[attach]25871[/attach]
此為工作表"TR排機&產出"
1.欄位"Customer "先對應工作表"Cus簡碼"
這裡用意是全碼找簡碼
CODE = 簡碼  CUST_GROUP = 全碼
找到簡碼後再去工作表"材料"的M欄位"CUST_CODE"

2.欄位"Package"直接對應到工作表"材料" 的P欄位"PKG"

3.欄位"Bodysize"直接對應到工作表"材料" 的Q欄位"BODY_SIZE"

4.欄位"L/C"直接對應到工作表"材料"的R欄位LEAD_COUNT
找到相對應資料後例如下圖
[attach]25873[/attach]
找到BA欄"CARRIER1 P/N"的值  圖例為4100095112
最後利用這個值找到一樣也是4100095112
[attach]25877[/attach]
像此筆就找到一個一樣都是4100095112的 CARRIER1  P/N
排除掉自己的話就是"R"欄 LEAD_COUNT 為829的那筆
(圖例剛好為只找到1個，有可能找到1個以上)

之後找到的那筆數據
範例是: AMD BGA  31X31 829 4100095112

AMD為簡碼此時又需轉成全碼
因此接下來
1."材料"M欄再去工作表"Cus簡碼" (因圖例是找到相同的CUST_CODE，但有可能換其他資料就會有不同)
找到全碼後，再到"工作表2"的A欄位 Customer 找出一樣的

2."材料" P欄PKG  去"工作表2"的 B 欄位Package  ，找出一樣的
3."材料" Q欄BODY_SIZE  去"工作表2"的C欄BodySize，找出一樣的
4."材料"R欄LEAD_COUNT 去"工作表2" 的D欄LC ，找出一樣的

最後找到的此筆數據，顯示在ListBox上
這邊希望在ListBox上多一項訊息 "1" (意思是第一種篩選方法出現的結果)
像下圖這樣
[attach]25878[/attach]
因為有五個條件篩法
"1"~"5"
先前本想各自做個按鈕
但後來覺得寫在一起接著顯示比較便利

第2種篩法
1-3步驟一樣
4.只是第一種篩法不去看"BA"欄
改看AZ欄的"Width"  圖例為44
[attach]25879[/attach]

找出這麼多筆
接著與上面一樣，排除自己
其他找到的資料"M""P""Q""R"欄去對應工作表2  (M一樣要先去找全碼)

找到的結果接著放在第一種篩選方法後面
[attach]25878[/attach]

還請C大在幫我看看，哪裡有不清楚的QQ  謝謝你

[attach]25880[/attach]

作者: c_c_lai 時間: 2016-11-23 11:38

回復 6# starbox520
[attach]25881[/attach]

作者: starbox520 時間: 2016-11-23 11:50

回復 7# c_c_lai

回C大遇到此種情況就是ATMEL 等於這些簡碼

作者: starbox520 時間: 2016-11-26 10:54

請問各位高手有想法嗎~~

作者: c_c_lai 時間: 2016-11-26 15:45

本帖最後由 c_c_lai 於 2016-11-26 15:48 編輯

回復 9# starbox520
妳是用 "AMD" 作為舉例，但是目前在
"TR排機&產出" 並無對應之 "A.M.D"。
[attach]25899[/attach]
能否以妳目前之附件為基準，舉一實際
串連資料作為說明？

作者: starbox520 時間: 2016-11-26 17:53

回復 10# c_c_lai

若以這例子為例
[attach]25901[/attach]
(材料)QFN 9X9    64 篩選後找到下圖
[attach]25903[/attach]
(Cus簡碼)找到簡碼
[attach]25902[/attach]
因此對應到(材料)M欄.....選擇ASM
(第一種篩選條件)
[attach]25907[/attach]
查到此"BA"欄為  ->  4100998111

這時我會再篩選按鍵按下清除
然後選擇BA欄位找出 -> 4100998111
出現下圖篩到的結果
像此結果就只有多出一筆資料
[attach]25904[/attach]
因為是要找除了自己以外的資料
ATI  QFN  9X9  64
這時找到的資料是ATI
因此去(Cus簡碼)
剛好全碼也叫ATI
[attach]25905[/attach]
最後去工作表2
[attach]25906[/attach]
找到ATI後
像此筆資訊因為接下來
QFN  9X9  64
沒此資料
因此第一種篩選就會沒資料

(第二種篩選條件)
[attach]25908[/attach]
查到此"AZ"欄找到"16"
一樣在此我會再篩選再按清除
接著"AZ"欄選擇"16"
像此例子就有這麼多筆
[attach]25909[/attach]
接著後續與第一種篩選的後面一樣
找出工作表2有無對應的
若簡碼去找全碼找不到&或者像上次C大試的有3種全碼
找不到的就略過此筆往下找
因為也會有很多筆會找不到
所以以人工篩選的方式會找很久...
繼續以這個例子
[attach]25910[/attach]
ATM LQFP    7X7    48
ATM 找到全碼後為ATMEL
就能找到工作表2這筆
[attach]25911[/attach]
因此此筆資訊  會顯示在ListBox上  (附註類別2)

先前還有3-5種類別
3-5的篩選方式就只需從"TR排機&產出" 對應到  "工作表2"
比較沒前面這麼複雜了QQ...
目前點出來的LisTBox為第5種篩選方式

作者: starbox520 時間: 2016-11-26 18:00

回復 10# c_c_lai

若以這例子為例
[attach]25924[/attach]
(材料)QFN 9X9    64 篩選後找到下圖
[attach]25926[/attach]
(Cus簡碼)找到簡碼
[attach]25925[/attach]
因此對應到(材料)M欄.....選擇ASM
(第一種篩選條件)
[attach]25930[/attach]
查到此"BA"欄為  ->  4100998111

這時我會再篩選按鍵按下清除
然後選擇BA欄位找出 -> 4100998111
出現下圖篩到的結果
像此結果就只有多出一筆資料
[attach]25927[/attach]
因為是要找除了自己以外的資料
ATI  QFN  9X9  64
這時找到的資料是ATI
因此去(Cus簡碼)
剛好全碼也叫ATI
[attach]25928[/attach]
最後去工作表2
[attach]25929[/attach]
找到ATI後
像此筆資訊因為接下來
QFN  9X9  64
沒此資料
因此第一種篩選就會沒資料

(第二種篩選條件)

查到此"AZ"欄找到"16"
一樣在此我會再篩選再按清除
接著"AZ"欄選擇"16"
像此例子就有這麼多筆
[attach]25932[/attach]
接著後續與第一種篩選的後面一樣
找出工作表2有無對應的
若簡碼去找全碼找不到&或者像上次C大試的有3種全碼
找不到的就略過此筆往下找
因為也會有很多筆會找不到
所以以人工篩選的方式會找很久...
繼續以這個例子
[attach]25933[/attach]
ATM LQFP    7X7    48
ATM 找到全碼後為ATMEL
就能找到工作表2這筆
[attach]25934[/attach]
因此此筆資訊  會顯示在ListBox上  (附註類別2)

先前還有3-5種類別
3-5的篩選方式就只需從"TR排機&產出" 對應到  "工作表2"
比較沒前面這麼複雜了QQ...
目前點出來的LisTBox為第5種篩選方式

作者: c_c_lai 時間: 2016-11-27 08:01

本帖最後由 c_c_lai 於 2016-11-27 08:14 編輯

回復 12# starbox520
請問：從
[attach]25942[/attach]
後，一直到
[attach]25943[/attach]
ATM LQFP 7X7 48
為何是選擇它，根據甚麼？

P.S. 我視力還未恢復，看得實在眼發撩亂。

作者: starbox520 時間: 2016-11-27 14:22

回復 13# c_c_lai

回C大
我上方有解釋說  因為有些找到後  ，CUS簡碼有可能沒資料  ，就略過

然後大大這兩個圖的意思
每一個都要找，只是有可能像第一種篩選方法會沒資料
EX:
"
QFN  9X9  64
沒此資料
因此第一種篩選就會沒資料
"
而我在(第二種篩選)選擇這筆資料
ATM LQFP    7X7    48
只是為了呈現給C大看
要怎麼對應到工作表2的資訊

當然會有很多比對應不到，很多比對應的到
我只是秀出其中一項對應的到的資訊
像第一個MTE 因為CUS簡碼找不到所以就略過
第二個ESS 因為工作表2  沒有全部吻和
以此類推...
其中可能還會有吻合的資訊
我只是找出其中一筆吻合的資訊

作者: c_c_lai 時間: 2016-11-27 14:28

回復 14# starbox520
妳所謂的 "吻合的資訊" 是指那些條件吻合？

作者: starbox520 時間: 2016-11-27 15:41

回復 15# c_c_lai

例如先前說的例子
[attach]25952[/attach]
[attach]25953[/attach]
   ATM LQFP    7X7    48
   ATM 找到全碼後為ATMEL
   就能找到工作表2這筆
[attach]25954[/attach]

吻合是"材料"的  "M" CUST_CODE (要先對到Cus簡碼找全碼) "P" PKG             "Q" BODY_SIZE    " R "LEAD_COUNT
對上工作表2的  " A" Customer                                                    " B" Package    "C"  BodySize       "D"  LC
皆一致

作者: c_c_lai 時間: 2016-11-27 15:54

回復 16# starbox520
大致了解了，先讓眼睛休息一下，再來想想如何，
謝謝妳詳盡地解說。

作者: starbox520 時間: 2016-11-27 16:04

回復 17# c_c_lai

很抱歉讓你看得這麼痛苦哈哈...

作者: c_c_lai 時間: 2016-11-28 18:23

本帖最後由 c_c_lai 於 2016-11-28 18:39 編輯

回復 18# starbox520
若以這例子為例
工作表 "TR排機&產出"
1.  ASMEDIA TECH.    QFN    9X9    64    9,000    12
工作表 "Cus簡碼"
2.  ASM    ASMEDIA TECH.
工作表 "材料"
3.  ASM    QFN    9X9    64    16    4100998111       4100998111
查到此 "BA" 欄為  -> 4100998111
4.  ATI    QFN    9X9    64    218-0893000-00    16    4100998111
ASM    QFN    9X9    64                      16    4100998111
要找除了自己以外的資料
5.  ATI  QFN  9X9  64

試問：
如果 3 ~ 4 仍然只找到一筆  (即原來點選之工作表 "TR排機&產出" 資料)
ASM    QFN    9X9    64                      16    4100998111
那要如何處理？

作者: starbox520 時間: 2016-11-28 23:06

回復 19# c_c_lai

C大你的意思是這樣嗎，
如果"TR排機&產出"的資料，對應到材料這邊，取到BA攔的值 EX:4100998111
然後去找 4100998111 列出來也只有自己本身，那此筆在第一個篩選方式就是沒資料，也就不呈現
就會從第2種篩選方式，再去找，若也沒有，就會從第3種方式下去找
因為最後資料，應該是跑完第一種 ~ 第五種篩選方式依序排列

如下圖，就是第2種篩選方式沒資料，因為都不一定，3-5種篩選方式會有比較多筆資料
1-2種本身因為篩很多條件，所以有可能會沒資料或比較少，皆不一定~
[attach]25959[/attach]

也或者會有第一種篩選沒資料，就會沒有類別1，直接從2開始
也或者1.2都沒有，直接從3開始，以此類推

作者: starbox520 時間: 2016-11-28 23:11

回復 19# c_c_lai

如果除了自己以外有一筆資料，就像上篇附圖的那樣，第一種類別就會只有1筆資料
以此類推，接著排序這樣
謝謝你如此費心QQ
太感謝~~~

作者: c_c_lai 時間: 2016-11-29 05:15

本帖最後由 c_c_lai 於 2016-11-29 07:48 編輯

回復 20# starbox520
以上 1 ~ 5 的篩選過程中， "P"、"Q"、"R" 的內容值
均要與 "TR排機&產出" 的 "F"、"G"、"H" 保持一致嗎？

還有妳標示的：
PS: 如果能夠有方法直接把這五個按鈕，變成一開始點工作表"TR排機&產出"Package 欄位叫出LISTBOX
就直接做完這五個按鈕的事情，直接全部資訊呈現在LISTBOX上，依數字區分這五個按鈕的篩選條件(OR有更好的方法)

又、這五個按鈕到底指的是？是串連的、抑或是各自獨立的？
我發現這好像是考古學，反覆看了數遍，是越看越糊塗！
大學聯招出題老師應該要來找妳才是。
因為從頭到尾一直無法正確地完整串聯起來。
就好比 #12 的舉例，最後卻以假設性的狀況處理，
程式的邏輯是規劃出來的，絕不可以是模糊帶過，
有就有，沒有就沒有，總會有一個 "句點" 的。
有要怎麼處理，沒有又要如何進行，需一清二楚。

作者: starbox520 時間: 2016-11-29 14:46

回復 22# c_c_lai

以上 1 ~ 5 的篩選過程中， "P"、"Q"、"R" 的內容值
均要與 "TR排機&產出" 的  "F"、"G"、"H" 保持一致嗎？

1種，只是以"TR排機&產出" 的  "F"、"G"、"H" 為條件，去"材料"找到對應的數據，然後因為篩選者想要找的是，這筆數據的"CARRIER1 P/N"，然後只要一樣"CARRIER1 P/N"的都列出來，材料的M.P.Q.R，再去對應"工作表2"的A.B.C.D，皆吻合，才算找到
[attach]25966[/attach]
第2種篩選與第一種相似
您所說的保持一致應為第3-5種
第3種  (與工作表"材料")無關
就單純"TR排機&產出"的"E"."F"."G"."H"
比對"工作表2"的    "A"."B"."C"."D"

第4種  (也與工作表"材料")無關
就單純"TR排機&產出"的"F"."G"."H"
比對"工作表2"的    "B"."C"."D"

第5種  (也與工作表"材料")無關
就單純"TR排機&產出"的"F"."G"
比對"工作表2"的    "B"."C"

又、這五個按鈕到底指的是？是串連的、抑或是各自獨立的？

原本一開始想法是我想各自用按鈕呈現篩選結果，
可是後來決定直接一鍵完成5種篩法，顯示在一起就好，
所以才衍生出，篩完的結果要多上類別，
哈哈哈抱歉...難怪會沒人回應我，原來是我講得太亂了><

:'(

作者: c_c_lai 時間: 2016-11-29 16:22

本帖最後由 c_c_lai 於 2016-11-29 17:18 編輯

回復 23# starbox520
[attach]25967[/attach]
[attach]25969[/attach]
光是第3種、第4種、第5種間之比對
便有很大的差異處。
它們之先後次序，為何者優先？

作者: starbox520 時間: 2016-11-29 19:32

回復 24# c_c_lai

回C大優先的意思是?
我3-5種只要這樣篩即可
第3種
四個皆吻合才算找到，一項資料不一樣就不算
[attach]25970[/attach]

第4種
3個皆吻合，如果資料與第3種長的一樣，就判定為第3種

第五種
2個皆吻合，如果資料與第4種長的一樣，就判定為第4種

作者: c_c_lai 時間: 2016-11-30 07:17

本帖最後由 c_c_lai 於 2016-11-30 10:49 編輯

回復 25# starbox520
這 3 ~ 5 分解部分我是已明瞭；
如此看來，好像只會發生第3種與第5種的狀況。
現再請教妳下一個問題：
有了第3種、第4種、第5種的邏輯判斷依據後，
第1種 (Carrier)、與第2種 (Width) 你是要以
怎樣的比對方式來做判斷依據呢？
綜合上述，當你點選工作表 "TR排機&產出" 中
任何一項，譬如： M.T.K；接下來你會以何種方式
來進行篩選呢？
第1種？第2種？抑或是第3種 . . . . . . 等等？
滿漢全席亦也得一道一道地來上菜啊！

作者: c_c_lai 時間: 2016-11-30 07:43

本帖最後由 c_c_lai 於 2016-11-30 07:49 編輯

回復 25# starbox520
看到妳最後語帶玄機地描述：

第3種： 4 個條件都吻合，此筆資料就有一筆要列出。
第4種： 3個皆吻合，如果資料與第3種長的一樣，就判定為第3種
第5種： 2個皆吻合，如果資料與第4種長的一樣，就判定為第4種

好！
那只待妳就把第1種與第2種的判斷條件說明一下了。
P.S. 我發現在 #25 妳才講到了重點，所謂的 "好酒飲暗底"！

作者: c_c_lai 時間: 2016-11-30 09:35

回復 25# starbox520
事後想想，妳後來所說的：
第 3 ~ 5 種  ( 與工作表 "材料" ) 無關，
亦即不用對應到工作表 "CUS簡碼"，以及
工作表 "材料" 了囉？
只有第 1 ~ 2 種才需要對應到工作表 "CUS簡碼"？
接著又再透過 ("BA"、"AZ") 對應到工作表 "材料"、
然後再對應到  "工作表2" ？

P.S.  義大利有部影片，叫做 "媽媽咪 (Mama Mia)！"

作者: starbox520 時間: 2016-11-30 14:23

回復 27# c_c_lai

第1種 (Carrier)、與第2種 (Width) 你是要以
怎樣的比對方式來做判斷依據呢？

1.2種也可以篩出東西的....
只是因為數據每天會變，有時候會有資料有時候可能就像我們的感覺一樣，篩完之後半個東西都沒有...

綜合上述，當你點選工作表 "TR排機&產出" 中
任何一項，譬如： M.T.K；接下來你會以何種方式
來進行篩選呢？
第1種？第2種？抑或是第3種 . . . . . . 等等？

這邊我就不懂了哈哈...
每次我點"TR排機&產出"任何一項，五種都要篩
因為第一種要放在最上面，所以才會想出類別1-5...

第 3 ~ 5 種  ( 與工作表 "材料" ) 無關，
亦即不用對應到工作表 "CUS簡碼"，以及
工作表 "材料" 了囉？

沒錯喔

只有第 1 ~ 2 種才需要對應到工作表 "CUS簡碼"？
接著又再透過 ("BA"、"AZ") 對應到工作表 "材料"、
然後再對應到  "工作表2" ？

沒錯!!!

義大利有部影片，叫做 "媽媽咪 (Mama Mia)！"

是我要欣賞一下嗎...

作者: c_c_lai 時間: 2016-11-30 15:36

本帖最後由 c_c_lai 於 2016-11-30 15:38 編輯

回復 29# starbox520
3 ~ 5 比對欄位如下：
[attach]25975[/attach]
那 1~ 2 又需比對那些欄位，才算是完整的公式呢？
看你的範例，有的是 P、Q，又有的是 P、Q、R 之類的。

Mama Mia 是形容頭昏腦脹了！

作者: starbox520 時間: 2016-11-30 15:43

回復 30# c_c_lai

那 1~ 2 又需比對那些欄位，才算是完整的公式呢？
看你的範例，有的是 P、Q，又有的是 P、Q、R 之類的。

材料的 M. P .Q .R
對上
工作表2 A . B. C .D

#23的有說材料的M.P.Q.R，再去對應"工作表2"的A.B.C.D，皆吻合，才算找到

作者: starbox520 時間: 2016-11-30 15:45

回復 30# c_c_lai

那 1~ 2 又需比對那些欄位，才算是完整的公式呢？
看你的範例，有的是 P、Q，又有的是 P、Q、R 之類的。

#23
材料的M.P.Q.R，再去對應"工作表2"的A.B.C.D，皆吻合，才算找到

作者: c_c_lai 時間: 2016-11-30 15:51

回復 32# starbox520
也就是說 #1 是不正確的？

作者: starbox520 時間: 2016-11-30 16:12

回復 33# c_c_lai

也就是說 #1 是不正確的？
恩...是錯的

作者: c_c_lai 時間: 2016-11-30 16:21

回復 34# starbox520
那結論是：
#23 的解說才是正確的？
此 "比對" 是完全適用於第 1 種、與第 2 種嗎？
此邏輯是不能模糊不清的。

作者: starbox520 時間: 2016-11-30 16:23

回復 35# c_c_lai

對
#23才是對的

此 "比對" 是完全適用於第 1 種、與第 2 種嗎？

沒錯!!!

作者: c_c_lai 時間: 2016-11-30 16:56

回復 36# starbox520
每次點選均要執行 1 ~ 5 的比對過程嗎？

作者: starbox520 時間: 2016-11-30 17:31

回復 37# c_c_lai

對，每次都要做這五種!!!

作者: c_c_lai 時間: 2016-11-30 18:10

回復 38# starbox520
"BA"、以及 "AZ" 亦要比對 "P"、"Q"、"R" 三個欄位值嗎？
而且三個欄位必須一致？

作者: starbox520 時間: 2016-11-30 19:07

回復 39# c_c_lai

不用
換個方式說
假設BA欄位的意思是籃子
我只是要選出一樣的籃子的東西
所以選出來不管 P Q R的
只要是同個籃子就可以
這裡的目的只是我先使用"TR排機&產出"
找出這筆數據在"材料"是使用哪個籃子
找到籃子之後，我要做的就是，我想知道用這個籃子的有哪些人
所以不用比對PQR
PQR只是後面要對應到工作表2的時候要用

作者: c_c_lai 時間: 2016-12-1 05:17

本帖最後由 c_c_lai 於 2016-12-1 08:44 編輯

回復 40# starbox520
剝絲抽繭，真難怪會沒人回應！
依妳目前之案例，光只是第 1 種選項，能通過條件的資料錄有哪幾筆？
能否麻煩一一指出？

作者: starbox520 時間: 2016-12-1 09:07

回復 41# c_c_lai

C大，每一種都有可能發生，因為每天"材料"和"工作表2"的資訊都會更新!!!

作者: c_c_lai 時間: 2016-12-1 11:38

回復 42# starbox520
不是每天，單純地光只是目前，
僅以第 1 種選項，能通過條件的比對到 "工作表2" 資料錄的有哪幾筆？
能否麻煩一一指出？
這是我以第 1 種選項 Debug 程式得出的結果，無一比對成功 ( "工作表2")
SYNAPTICS, BGA, 17.3X7, 36
Arr(1)(0)=SHK, SYNAPTICS
Arr(2)(0)=VSK, SYNAPTICS
Ar2(1)(0)=VSK, BGA, 17.3X7, 36, 4102508111
Ar2(2)(0)=VSK, BGA, 17.3X7, 36, 4102079111

ATMEL, CBGA, 9X9, 196
Arr(1)(0)=ACS, ATMEL
Arr(2)(0)=ATM, ATMEL
Arr(3)(0)=ES2, ATMEL
Arr(4)(0)=EUR, ATMEL
Arr(5)(0)=MRS, ATMEL
Arr(6)(0)=NPM, ATMEL

ASMEDIA TECH., QFN, 9X9, 64
Arr(1)(0)=ASM, ASMEDIA TECH.
Ar2(1)(0)=ASM, QFN, 9X9, 64, 4100998111
Ar3(1)(0)=ATI, QFN, 9X9, 64, 4100998111

HUAWEI, VFBGA, 12.2X12.2, 845
Arr(1)(0)=HUW, HUAWEI

ASMEDIA TECH., QFN, 6X6, 48
Arr(1)(0)=ASM, ASMEDIA TECH.
Ar2(1)(0)=ASM, QFN, 6X6, 48, 4100655112

SYNAPTICS, BGA, 17.3X7, 36
Arr(1)(0)=SHK, SYNAPTICS
Arr(2)(0)=VSK, SYNAPTICS
Ar2(1)(0)=VSK, BGA, 17.3X7, 36, 4102508111
Ar2(2)(0)=VSK, BGA, 17.3X7, 36, 4102079111

QUALCOMM, BGA, 14X12, 821
Arr(1)(0)=QCM, QUALCOMM
Ar2(1)(0)=QCM, BGA, 14X12, 821, 4101880111
Ar3(1)(0)=QCM, BGA, 12X14, 792, 4101880111
Ar3(2)(0)=QCM, BGA, 12X14, 720, 4101880111
Ar3(3)(0)=QCM, BGA, 12X14, 727, 4101880111
Ar3(4)(0)=QCM, BGA, 12X14, 760, 4101880111

HUAWEI, VFBGA, 4.5X5, 124
Arr(1)(0)=HUW, HUAWEI

QUALCOMM, TFBGA, 9X9, 0
Arr(1)(0)=QCM, QUALCOMM

ATMEL, TQFP, 14X14, 100
Arr(1)(0)=ACS, ATMEL
Arr(2)(0)=ATM, ATMEL
Arr(3)(0)=ES2, ATMEL
Arr(4)(0)=EUR, ATMEL
Arr(5)(0)=MRS, ATMEL
Arr(6)(0)=NPM, ATMEL
Ar2(1)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar2(2)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar2(3)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar2(4)(0)=ATM, TQFP, 14X14, 100, 4101312111
Ar3(1)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(2)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(3)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(4)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(5)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(6)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(7)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(8)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(9)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(10)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(11)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(12)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(13)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(14)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(15)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(16)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(17)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(18)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(19)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(20)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(21)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(22)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(23)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(24)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(25)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(26)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(27)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar2(5)(0)=MRS, TQFP, 14X14, 100, 4101149111
Ar2(6)(0)=MRS, TQFP, 14X14, 100, 4101149111
Ar3(28)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(29)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(30)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(31)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(32)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(33)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(34)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(35)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(36)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(37)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(38)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(39)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(40)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(41)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(42)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(43)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(44)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(45)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(46)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(47)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(48)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(49)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(50)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(51)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(52)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(53)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(54)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(55)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(56)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(57)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(58)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(59)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(60)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(61)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(62)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(63)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(64)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(65)(0)=ATM, TQFP, 14X14, 100, 4101149111

HUAWEI, VFBGA, 5.8X5.1, 134
Arr(1)(0)=HUW, HUAWEI
Ar2(1)(0)=HUW, VFBGA, 5.8X5.1, 134, 4102461111
Ar3(1)(0)=HUW, VFBGA, 5.8X5.1, 134, 4102461111

M.T.K., VFBGA, 7X7, 112
Arr(1)(0)=UM9, M.T.K.

QUALCOMM, BGA, 6.2X6.2, 176
Arr(1)(0)=QCM, QUALCOMM
Ar2(1)(0)=QCM, BGA, 6.2X6.2, 176, 4101862111

作者: c_c_lai 時間: 2016-12-1 11:39

回復 42# starbox520
HUAWEI, VFBGA, 4.5X5, 124
Arr(1)(0)=HUW, HUAWEI

M.T.K., QFN, 5X5, 40
Arr(1)(0)=UM9, M.T.K.
Ar2(1)(0)=UM9, QFN, 5X5, 40, 4100291111
Ar3(1)(0)=POW, QFN, 5X5, 32, 4100291111
Ar3(2)(0)=POW, QFN, 5X5, 40, 4100291111
Ar3(3)(0)=POW, QFN, 5X5, , 4100291111
Ar3(4)(0)=POW, QFN, 5X5, 32, 4100291111
Ar3(5)(0)=POW, QFN, 5X5, , 4100291111
Ar3(6)(0)=POW, QFN, 5X5, 32, 4100291111
Ar3(7)(0)=POW, QFN, 5X5, 36, 4100291111
Ar3(8)(0)=POW, QFN, 5X5, 44, 4100291111
Ar3(9)(0)=POW, QFN, 5X5, 32, 4100291111
Ar3(10)(0)=POW, QFN, 5X5, 40, 4100291111
Ar3(11)(0)=POW, QFN, 5X5, 40, 4100291111

QUALCOMM, BGA, 8.6X8.4, 443
Arr(1)(0)=QCM, QUALCOMM
Ar2(1)(0)=QCM, BGA, 8.6X8.4, 443, 4102051111

HUAWEI, VFBGA, 12.2X12.2, 0
Arr(1)(0)=HUW, HUAWEI

SYNAPTICS, BGA, 17.3X7, 147
Arr(1)(0)=SHK, SYNAPTICS
Arr(2)(0)=VSK, SYNAPTICS

SYNAPTICS, BGA, 17.3X7, 36
Arr(1)(0)=SHK, SYNAPTICS
Arr(2)(0)=VSK, SYNAPTICS
Ar2(1)(0)=VSK, BGA, 17.3X7, 36, 4102508111
Ar2(2)(0)=VSK, BGA, 17.3X7, 36, 4102079111

QUALCOMM, BGA, 12X14, 760
Arr(1)(0)=QCM, QUALCOMM
Ar2(1)(0)=QCM, BGA, 12X14, 760, 4101880111
Ar3(1)(0)=QCM, BGA, 14X12, 821, 4101880111

QUALCOMM, BGA, 12X14, 727
Arr(1)(0)=QCM, QUALCOMM
Ar2(1)(0)=QCM, BGA, 12X14, 727, 4101880111
Ar3(1)(0)=QCM, BGA, 14X12, 821, 4101880111

QUALCOMM, TFBGA, 10X10, 873
Arr(1)(0)=QCM, QUALCOMM

M.T.K., VFBGA, 13X13.4, 873
Arr(1)(0)=UM9, M.T.K.
Ar2(1)(0)=UM9, VFBGA, 13X13.4, 873, 4102319111

QUALCOMM, BGA, 12X14, 727
Arr(1)(0)=QCM, QUALCOMM
Ar2(1)(0)=QCM, BGA, 12X14, 727, 4101880111
Ar3(1)(0)=QCM, BGA, 14X12, 821, 4101880111

QUALCOMM, BGA, 6.2X6.2, 176
Arr(1)(0)=QCM, QUALCOMM
Ar2(1)(0)=QCM, BGA, 6.2X6.2, 176, 4101862111

BROADCOM, WFBGA, 2.8X2.8, 100
Arr(1)(0)=NCI, BROADCOM
Arr(2)(0)=NCI, BROADCOM
Arr(3)(0)=NCI, BROADCOM

KING YUAN, VFBGA, 6.6X6.6, 205
Arr(1)(0)=KYE, KING YUAN
Arr(2)(0)=KYE, KING YUAN
Ar2(1)(0)=KYE, VFBGA, 6.6X6.6, 205, 4100997111
Ar3(1)(0)=SON, VFBGA, 6.5X6.5, 185, 4100997111
Ar3(2)(0)=SON, TFBGA, 6.5X6.5, 64, 4100997111
Ar3(3)(0)=SON, VFBGA, 6.5X6.5, , 4100997111
Ar3(4)(0)=SON, BGA, 6.5X6.5, 64, 4100997111
Ar3(5)(0)=SON, BGA, 6.5X6.5, 72, 4100997111
Ar3(6)(0)=SON, BGA, 6.5X6.5, 112, 4100997111
Ar2(2)(0)=KYE, VFBGA, 6.6X6.6, 205, 4100997111
Ar3(7)(0)=SON, VFBGA, 6.5X6.5, 185, 4100997111
Ar3(8)(0)=SON, TFBGA, 6.5X6.5, 64, 4100997111
Ar3(9)(0)=SON, VFBGA, 6.5X6.5, , 4100997111
Ar3(10)(0)=SON, BGA, 6.5X6.5, 64, 4100997111
Ar3(11)(0)=SON, BGA, 6.5X6.5, 72, 4100997111
Ar3(12)(0)=SON, BGA, 6.5X6.5, 112, 4100997111
Ar3(13)(0)=SON, VFBGA, 6.5X6.5, 185, 4100997111
Ar3(14)(0)=SON, TFBGA, 6.5X6.5, 64, 4100997111
Ar3(15)(0)=SON, VFBGA, 6.5X6.5, , 4100997111
Ar3(16)(0)=SON, BGA, 6.5X6.5, 64, 4100997111
Ar3(17)(0)=SON, BGA, 6.5X6.5, 72, 4100997111
Ar3(18)(0)=SON, BGA, 6.5X6.5, 112, 4100997111

M.T.K., VFBGA, 10.6X11, 475
Arr(1)(0)=UM9, M.T.K.
Ar2(1)(0)=UM9, VFBGA, 10.6X11, 475, 4101668111

M.T.K., VFBGA, 6.2X6.2, 196
Arr(1)(0)=UM9, M.T.K.
Ar2(1)(0)=UM9, VFBGA, 6.2X6.2, 196, 4101439111
Ar3(1)(0)=UM9, aQFN, 6.2X6.2, 62, 4101439111

KING YUAN, aQFN, 6.2X6.2, 62
Arr(1)(0)=KYE, KING YUAN
Arr(2)(0)=KYE, KING YUAN
Ar2(1)(0)=KYE, aQFN, 6.2X6.2, 62, 4101439111
Ar3(1)(0)=UM9, VFBGA, 6.2X6.2, 196, 4101439111
Ar2(2)(0)=KYE, aQFN, 6.2X6.2, 62, 4101439111
Ar3(2)(0)=UM9, VFBGA, 6.2X6.2, 196, 4101439111
Ar3(3)(0)=UM9, VFBGA, 6.2X6.2, 196, 4101439111

M.T.K., VFBGA, 6.2X5.4, 175
Arr(1)(0)=UM9, M.T.K.
Ar2(1)(0)=UM9, VFBGA, 6.2X5.4, 175, 4101912111

CYPRESS, QFN, 3X3, 0
Arr(1)(0)=CPS, CYPRESS
Arr(2)(0)=CPS, CYPRESS

CYPRESS, QFN, 3X3, 0
Arr(1)(0)=CPS, CYPRESS
Arr(2)(0)=CPS, CYPRESS

作者: c_c_lai 時間: 2016-12-1 11:39

回復 42# starbox520

ATI, BGA, 37.5X37.5, 0
Arr(1)(0)=ATI, ATI

ATMEL, TQFP, 14X14, 64
Arr(1)(0)=ACS, ATMEL
Arr(2)(0)=ATM, ATMEL
Arr(3)(0)=ES2, ATMEL
Arr(4)(0)=EUR, ATMEL
Arr(5)(0)=MRS, ATMEL
Arr(6)(0)=NPM, ATMEL
Ar2(1)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar2(2)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar2(3)(0)=ATM, TQFP, 14X14, 64, 4101132111
Ar3(1)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(2)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(3)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(4)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(5)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(6)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(7)(0)=ATM, LQFP, 14X14, 64, 4101132111
Ar3(8)(0)=ATM, LQFP, 14X14, 128, 4101132111
Ar3(9)(0)=ATM, LQFP, 14X14, 80, 4101132111
Ar3(10)(0)=ATM, LQFP, 14X14, 64, 4101132111
Ar3(11)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(12)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(13)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(14)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(15)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(16)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(17)(0)=ATM, LQFP, 14X14, 64, 4101132111
Ar3(18)(0)=ATM, LQFP, 14X14, 128, 4101132111
Ar3(19)(0)=ATM, LQFP, 14X14, 80, 4101132111
Ar3(20)(0)=ATM, LQFP, 14X14, 64, 4101132111
Ar3(21)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(22)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(23)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(24)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(25)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(26)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(27)(0)=ATM, LQFP, 14X14, 64, 4101132111
Ar3(28)(0)=ATM, LQFP, 14X14, 128, 4101132111
Ar3(29)(0)=ATM, LQFP, 14X14, 80, 4101132111
Ar3(30)(0)=ATM, LQFP, 14X14, 64, 4101132111
Ar2(4)(0)=MRS, TQFP, 14X14, 64, 4101149111
Ar3(31)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(32)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(33)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(34)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(35)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(36)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(37)(0)=ATM, LQFP, 14X14, 64, 4101132111
Ar3(38)(0)=ATM, LQFP, 14X14, 128, 4101132111
Ar3(39)(0)=ATM, LQFP, 14X14, 80, 4101132111
Ar3(40)(0)=ATM, LQFP, 14X14, 64, 4101132111
Ar3(41)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(42)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(43)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(44)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(45)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(46)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(47)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(48)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(49)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(50)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(51)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(52)(0)=ATM, LQFP, 14X14, 64, 4101132111
Ar3(53)(0)=ATM, LQFP, 14X14, 128, 4101132111
Ar3(54)(0)=ATM, LQFP, 14X14, 80, 4101132111
Ar3(55)(0)=ATM, LQFP, 14X14, 64, 4101132111
Ar3(56)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(57)(0)=ATM, TQFP, 14X14, 64, 4101149111
Ar3(58)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(59)(0)=ATM, TQFP, 14X14, 100, 4101149111
Ar3(60)(0)=ATM, TQFP, 14X14, 100, 4101149111

KING YUAN, VFBGA, 12.6X12.6, 641
Arr(1)(0)=KYE, KING YUAN
Arr(2)(0)=KYE, KING YUAN
Ar2(1)(0)=KYE, VFBGA, 12.6X12.6, 641, 4101073111
Ar3(1)(0)=UM9, VFBGA, 12.6X12.6, 677, 4101073111
Ar3(2)(0)=UM9, BGA, 12.6X12.6, 669, 4101073111
Ar2(2)(0)=KYE, VFBGA, 12.6X12.6, 641, 4101073111
Ar3(3)(0)=UM9, VFBGA, 12.6X12.6, 677, 4101073111
Ar3(4)(0)=UM9, BGA, 12.6X12.6, 669, 4101073111
Ar3(5)(0)=UM9, VFBGA, 12.6X12.6, 677, 4101073111
Ar3(6)(0)=UM9, BGA, 12.6X12.6, 669, 4101073111

ATI, BGA, 23X23, 0
Arr(1)(0)=ATI, ATI

MEDTRONIC, LFBGA, 10.5X14, 191
Arr(1)(0)=MTN, MEDTRONIC

ATMEL, LFBGA, 15X15, 217
Arr(1)(0)=ACS, ATMEL
Arr(2)(0)=ATM, ATMEL
Arr(3)(0)=ES2, ATMEL
Arr(4)(0)=EUR, ATMEL
Arr(5)(0)=MRS, ATMEL
Arr(6)(0)=NPM, ATMEL

CYPRESS, UFBGA, 7X5, 111
Arr(1)(0)=CPS, CYPRESS
Arr(2)(0)=CPS, CYPRESS
Ar2(1)(0)=CPS, UFBGA, 7X5, 111, 4102340111
Ar3(1)(0)=PRD, UFBGA, 7X5, 111, 4102340111
Ar2(2)(0)=CPS, UFBGA, 7X5, 111, 4102340111
Ar3(2)(0)=PRD, UFBGA, 7X5, 111, 4102340111
Ar3(3)(0)=PRD, UFBGA, 7X5, 111, 4102340111

M.T.K., VFBGA, 13X13.4, 0
Arr(1)(0)=UM9, M.T.K.

SILERGY, LQFP, 10X10, 64

ATI, BGA, 29X29, 962
Arr(1)(0)=ATI, ATI

M.T.K., VFBGA, 13X13.4, 873
Arr(1)(0)=UM9, M.T.K.
Ar2(1)(0)=UM9, VFBGA, 13X13.4, 873, 4102319111

M.T.K., VFBGA, 13X13.4, 0
Arr(1)(0)=UM9, M.T.K.

M.T.K., VFBGA, 13X13.4, 873
Arr(1)(0)=UM9, M.T.K.
Ar2(1)(0)=UM9, VFBGA, 13X13.4, 873, 4102319111

KING YUAN, VFBGA, 12.6X12.6, 641
Arr(1)(0)=KYE, KING YUAN
Arr(2)(0)=KYE, KING YUAN
Ar2(1)(0)=KYE, VFBGA, 12.6X12.6, 641, 4101073111
Ar3(1)(0)=UM9, VFBGA, 12.6X12.6, 677, 4101073111
Ar3(2)(0)=UM9, BGA, 12.6X12.6, 669, 4101073111
Ar2(2)(0)=KYE, VFBGA, 12.6X12.6, 641, 4101073111
Ar3(3)(0)=UM9, VFBGA, 12.6X12.6, 677, 4101073111
Ar3(4)(0)=UM9, BGA, 12.6X12.6, 669, 4101073111
Ar3(5)(0)=UM9, VFBGA, 12.6X12.6, 677, 4101073111
Ar3(6)(0)=UM9, BGA, 12.6X12.6, 669, 4101073111

KING YUAN, VFBGA, 12.6X12.6, 641
Arr(1)(0)=KYE, KING YUAN
Arr(2)(0)=KYE, KING YUAN
Ar2(1)(0)=KYE, VFBGA, 12.6X12.6, 641, 4101073111
Ar3(1)(0)=UM9, VFBGA, 12.6X12.6, 677, 4101073111
Ar3(2)(0)=UM9, BGA, 12.6X12.6, 669, 4101073111
Ar2(2)(0)=KYE, VFBGA, 12.6X12.6, 641, 4101073111
Ar3(3)(0)=UM9, VFBGA, 12.6X12.6, 677, 4101073111
Ar3(4)(0)=UM9, BGA, 12.6X12.6, 669, 4101073111
Ar3(5)(0)=UM9, VFBGA, 12.6X12.6, 677, 4101073111
Ar3(6)(0)=UM9, BGA, 12.6X12.6, 669, 4101073111

KING YUAN, VFBGA, 12.6X12.6, 641
Arr(1)(0)=KYE, KING YUAN
Arr(2)(0)=KYE, KING YUAN
Ar2(1)(0)=KYE, VFBGA, 12.6X12.6, 641, 4101073111
Ar3(1)(0)=UM9, VFBGA, 12.6X12.6, 677, 4101073111
Ar3(2)(0)=UM9, BGA, 12.6X12.6, 669, 4101073111
Ar2(2)(0)=KYE, VFBGA, 12.6X12.6, 641, 4101073111
Ar3(3)(0)=UM9, VFBGA, 12.6X12.6, 677, 4101073111
Ar3(4)(0)=UM9, BGA, 12.6X12.6, 669, 4101073111
Ar3(5)(0)=UM9, VFBGA, 12.6X12.6, 677, 4101073111
Ar3(6)(0)=UM9, BGA, 12.6X12.6, 669, 4101073111

CYPRESS, LBGA, 6X10, 48
Arr(1)(0)=CPS, CYPRESS
Arr(2)(0)=CPS, CYPRESS
Ar2(1)(0)=CPS, LBGA, 6X10, 48, 4101906111
Ar2(2)(0)=CPS, LBGA, 6X10, 48, 4101906111

STM, LFBGA, 15X15, 289
Arr(1)(0)=THM, STM
Arr(2)(0)=THM, STM
Arr(3)(0)=THM, STM
Arr(4)(0)=THM, STM

M.T.K., VFBGA, 10.6X11, 475
Arr(1)(0)=UM9, M.T.K.
Ar2(1)(0)=UM9, VFBGA, 10.6X11, 475, 4101668111

M.T.K., TFBGA, 10.2X11, 0
Arr(1)(0)=UM9, M.T.K.

M.T.K., VFBGA, 13X13.4, 873
Arr(1)(0)=UM9, M.T.K.
Ar2(1)(0)=UM9, VFBGA, 13X13.4, 873, 4102319111

CYPRESS, LFBGA, 10X10, 121
Arr(1)(0)=CPS, CYPRESS
Arr(2)(0)=CPS, CYPRESS
Ar2(1)(0)=CPS, LFBGA, 10X10, 121, 4102601111
Ar2(2)(0)=CPS, LFBGA, 10X10, 121, 4102601111

作者: starbox520 時間: 2016-12-1 15:17

回復 45# c_c_lai

ATMEL, TQFP, 14X14, 100
此筆就有找到2個
ATMEL TQFP 14X14 100 10495 21307 184 31986
ATMEL TQFP 14X14 64 34295 22306 1574 58175

C大是不是"材料"在找"工作表2"
沒把簡碼再轉回來"全碼"??

作者: c_c_lai 時間: 2016-12-1 16:06

回復 46# starbox520
是沒轉回 (CODE -> CUST_GROUP)，眼花撩亂地弄得頭暈了。

作者: c_c_lai 時間: 2016-12-1 18:59

回復 46# starbox520
請核對一下附件內容是否正確。
[attach]25981[/attach]

作者: starbox520 時間: 2016-12-1 19:04

回復 47# c_c_lai

對壓
你注意看，只有材料是簡碼
TR排機&產出找材料需要找簡碼
材料找工作表2又要轉全碼!!!
附檔我研究一下下唷><

作者: starbox520 時間: 2016-12-1 21:52

回復 48# c_c_lai

抱歉我還是用附檔上面提供的欄位名稱敘述好了
我好像講給自己聽得懂的哈哈
"TR排機&產出" 去找 "材料" 要透過"Cus簡碼"的 CODE

"材料" 去找"工作表2" 要透過"Cus簡碼"的 CUST_GROUP

您的附檔，應該是正確的答案

作者: c_c_lai 時間: 2016-12-2 08:53

回復 50# starbox520
再麻煩仔細校對是否為 "第一種" 選項之正確答案：
[attach]25991[/attach]
確定後，始能進行下一步驟的撰寫事宜。

作者: c_c_lai 時間: 2016-12-2 09:23

回復 50# starbox520

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsError(Target(1)) Then Unload frmSelector: Exit Sub
' If (Target(1).Row + 1) Mod 5 = 0 And Target(1) <> "" And Target(1).Column = 5 Then
If (Target(1).Row + 1) Mod 5 = 0 And Target(1) <> "" And Target(1).Column = 6 Then
Set Sh_Rng = Cells(Target(1).Row, "F")
AuditCustPkg (Cells(Target(1).Row, "F"))
If IsEmpty(Sh_Ar) Then MsgBox Sh_Rng & "-" & Sh_Rng(1, 2) & vbLf & "找不到": Exit Sub
Unload frmSelector
frmSelector.Show False
Else
Unload frmSelector
End If
End Sub

複製代碼

作者: c_c_lai 時間: 2016-12-2 09:24

Private Sub CustPkg(Ar3 As Variant)
Dim c As Variant, Ar As Variant, cts As Integer, tf As Boolean
Dim i As Integer, ii As Integer, frstAddr As String
Sh_Ar = Ar
With Sheets("工作表2")
For cts = LBound(Ar3) To UBound(Ar3)
Set c = .[A:A].Find(Ar3(cts)(0), , , 1) ' "TR排機&產出" Customer 比對 "Cus簡碼"
' Set c = .[A:A].Find(Ar3(1)(0), , , 1) ' "TR排機&產出" Customer 比對 "Cus簡碼"
If Not c Is Nothing Then
frstAddr = c.Address
Do
If c.Offset(, 1) = Ar3(cts)(1) And c.Offset(, 2) = Ar3(cts)(2) Then
' If c.Offset(, 1) = Ar3(1)(1) And c.Offset(, 2) = Ar3(1)(2) Then
tf = True
If IsEmpty(Ar) Then
ReDim Ar(1 To 8, 1 To 1)
Else
For i = 1 To UBound(Ar, 2)
If Ar(1, i) = c.Offset(, 1).Text And Ar(2, i) = c.Offset(, 2).Text And Ar(3, i) = c.Offset(, 3).Text And Ar(4, i) = c.Offset(, 4).Text Then tf = False
Next i
If tf Then ReDim Preserve Ar(1 To 8, 1 To UBound(Ar, 2) + 1)
End If
If tf Then
For ii = 1 To 8
Ar(ii, UBound(Ar, 2)) = c.Offset(, ii).Text
Next
End If
End If
Set c = .[A:A].FindNext(c)
Loop While Not c Is Nothing And c.Address <> frstAddr
End If
Next cts
End With
If IsEmpty(Ar) Then Exit Sub
Sh_Ar = Application.Transpose(Ar)
End Sub

複製代碼

作者: c_c_lai 時間: 2016-12-2 09:25

本帖最後由 c_c_lai 於 2016-12-2 10:43 編輯

Sub AuditCustPkg(Adt_Rng As Range)
Dim c As Range, frstAddr As String, tf As Boolean
Dim cts As Integer, ct2 As Integer
Dim Arr As Variant, Ar2 As Variant, Ar3 As Variant
With Sheets("Cus簡碼")
Set c = .[B:B].Find(Adt_Rng.Offset(, -1).Value, , , 1) ' "TR排機&產出" Customer 比對 "Cus簡碼" CUST_GROUP
If Not c Is Nothing Then
frstAddr = c.Address
Do
If IsEmpty(Arr) Then ReDim Arr(1 To 1) Else ReDim Preserve Arr(1 To UBound(Arr) + 1)
Arr(UBound(Arr)) = Array(c.Offset(, -1).Text, c.Text)
Set c = .[B:B].FindNext(c)
Loop While Not c Is Nothing And c.Address <> frstAddr
End If
End With
If Not IsEmpty(Arr) Then
With Sheets("材料")
For cts = LBound(Arr) To UBound(Arr)
Set c = .[M:M].Find(Arr(cts)(0), , , 1) ' "Cus簡碼" CODE 比對 "材料" CUST_CODE
If Not c Is Nothing Then ' Arr(cts)(0) = "ASM" : Variant/String
frstAddr = c.Address
Do
' 以 "TR排機&產出" 的 "F"、"G"、"H" 為條件，去 "材料" 找到對應的數據。
' 第 1 種 (相同 Cust (c.Value) & PKG (c.Offset(, 3)) & B/S (c.Offset(, 4)) & L/C (c.Offset(, 5)))
If c.Offset(, 3) = Adt_Rng.Value And c.Offset(, 4) = Adt_Rng.Offset(, 1).Value And c.Offset(, 5) = CStr(Adt_Rng.Offset(, 2).Value) Then
If IsEmpty(Ar2) Then ReDim Ar2(1 To 1) Else ReDim Preserve Ar2(1 To UBound(Ar2) + 1)
Ar2(UBound(Ar2)) = Array(c.Text, Arr(cts)(1), c.Offset(, 3).Text, c.Offset(, 4).Text, c.Offset(, 5).Text, c.Offset(, 39).Text, c.Offset(, 40).Text)
End If
Set c = .[M:M].FindNext(c)
Loop While Not c Is Nothing And c.Address <> frstAddr
End If
If Not IsEmpty(Ar2) Then
For ct2 = LBound(Ar2) To UBound(Ar2)
' 以工作表 "TR排機&產出" 的 "F"、"G"、"H" 為條件，去工作表 "材料" 找到對應的數據；
' 然後找到這筆數據的 "CARRIER1 P/N"，然後只要一樣 "CARRIER1 P/N" 的都列出來。
Set c = .[BA:BA].Find(Ar2(ct2)(6), , , 1) ' CARRIER1 P/N ("BA") Ar2(ct2)(6) = "4100998111" : Variant/String
If Not c Is Nothing Then ' PKG (c.Offset(, -37)) 、 BODU_SIZE (c.Offset(, -36))
frstAddr = c.Address ' CUST_CODE (c.Offset(, -40).Text)、, LEAD_COUNT (c.Offset(, -35).Text)
Do ' "BA" 欄位指的是籃子，只要是在同個籃子內的就可以，要的就是想知道用這個籃子的有哪些人。
' 同步地排除原先在工作表 "TR排機&產出" 點選的 Package。(Customer、Package、Bodysize)
' 修正以 "Cus簡碼" Arr 之第一組 (Arr(1)(0)) 作為判斷依據。
tf = (c.Offset(, -40).Text = Arr(1)(0) And c.Offset(, -37) = Adt_Rng.Value And c.Offset(, -36) = Adt_Rng.Offset(, 1).Value)
If Ar2(ct2)(1) <> "" And tf = False Then
If IsEmpty(Ar3) Then ReDim Ar3(1 To 1) Else ReDim Preserve Ar3(1 To UBound(Ar3) + 1)
Ar3(UBound(Ar3)) = Array(Ar2(ct2)(1), c.Offset(, -37).Text, c.Offset(, -36).Text, c.Offset(, -35).Text, c.Text)
End If
Set c = .[BA:BA].FindNext(c)
Loop While Not c Is Nothing And c.Address <> frstAddr
End If
Next ct2
End If
Next cts
End With
If Not IsEmpty(Ar3) Then CustPkg (Ar3)
End If
Sub AuditCustPkg(Adt_Rng As Range)
Dim c As Range, frstAddr As String, tf As Boolean
Dim cts As Integer, ct2 As Integer
Dim Arr As Variant, Ar2 As Variant, Ar3 As Variant
With Sheets("Cus簡碼")
Set c = .[B:B].Find(Adt_Rng.Offset(, -1).Value, , , 1) ' "TR排機&產出" Customer 比對 "Cus簡碼" CUST_GROUP
If Not c Is Nothing Then
frstAddr = c.Address
Do
If IsEmpty(Arr) Then ReDim Arr(1 To 1) Else ReDim Preserve Arr(1 To UBound(Arr) + 1)
Arr(UBound(Arr)) = Array(c.Offset(, -1).Text, c.Text)
Set c = .[B:B].FindNext(c)
Loop While Not c Is Nothing And c.Address <> frstAddr
End If
End With
If Not IsEmpty(Arr) Then
With Sheets("材料")
For cts = LBound(Arr) To UBound(Arr)
Set c = .[M:M].Find(Arr(cts)(0), , , 1) ' "Cus簡碼" CODE 比對 "材料" CUST_CODE
If Not c Is Nothing Then ' Arr(cts)(0) = "ASM" : Variant/String
frstAddr = c.Address
Do
' 以 "TR排機&產出" 的 "F"、"G"、"H" 為條件，去 "材料" 找到對應的數據。
' 第 1 種 (相同 Cust (c.Value) & PKG (c.Offset(, 3)) & B/S (c.Offset(, 4)) & L/C (c.Offset(, 5)))
If c.Offset(, 3) = Adt_Rng.Value And c.Offset(, 4) = Adt_Rng.Offset(, 1).Value And c.Offset(, 5) = CStr(Adt_Rng.Offset(, 2).Value) Then
If IsEmpty(Ar2) Then ReDim Ar2(1 To 1) Else ReDim Preserve Ar2(1 To UBound(Ar2) + 1)
Ar2(UBound(Ar2)) = Array(c.Text, Arr(cts)(1), c.Offset(, 3).Text, c.Offset(, 4).Text, c.Offset(, 5).Text, c.Offset(, 39).Text, c.Offset(, 40).Text)
End If
Set c = .[M:M].FindNext(c)
Loop While Not c Is Nothing And c.Address <> frstAddr
End If
If Not IsEmpty(Ar2) Then
For ct2 = LBound(Ar2) To UBound(Ar2)
' 以工作表 "TR排機&產出" 的 "F"、"G"、"H" 為條件，去工作表 "材料" 找到對應的數據；
' 然後找到這筆數據的 "CARRIER1 P/N"，然後只要一樣 "CARRIER1 P/N" 的都列出來。
Set c = .[BA:BA].Find(Ar2(ct2)(6), , , 1) ' CARRIER1 P/N ("BA") Ar2(ct2)(6) = "4100998111" : Variant/String
If Not c Is Nothing Then ' PKG (c.Offset(, -37)) 、 BODU_SIZE (c.Offset(, -36))
frstAddr = c.Address ' CUST_CODE (c.Offset(, -40).Text)、, LEAD_COUNT (c.Offset(, -35).Text)
Do ' "BA" 欄位指的是籃子，只要是在同個籃子內的就可以，要的就是想知道用這個籃子的有哪些人。
' 同步地排除原先在工作表 "TR排機&產出" 點選的 Package。(Customer、Package、Bodysize)
' 修正以 "Cus簡碼" Arr 之第一組 (Arr(1)(0)) 作為判斷依據。
tf = (c.Offset(, -40).Text = Arr(1)(0) And c.Offset(, -37) = Adt_Rng.Value And c.Offset(, -36) = Adt_Rng.Offset(, 1).Value)
If Ar2(ct2)(1) <> "" And tf = False Then
If IsEmpty(Ar3) Then ReDim Ar3(1 To 1) Else ReDim Preserve Ar3(1 To UBound(Ar3) + 1)
Ar3(UBound(Ar3)) = Array(Ar2(ct2)(1), c.Offset(, -37).Text, c.Offset(, -36).Text, c.Offset(, -35).Text, c.Text)
End If
Set c = .[BA:BA].FindNext(c)
Loop While Not c Is Nothing And c.Address <> frstAddr
End If
Next ct2
End If
Next cts
End With
If Not IsEmpty(Ar3) Then CustPkg (Ar3)
End If
Set Arr = Nothing
Set Ar2 = Nothing
Set Ar3 = Nothing
End Sub

複製代碼

作者: starbox520 時間: 2016-12-2 10:39

回復 54# c_c_lai

沒錯!!!!
第一種篩法結果是對的!!!!太厲害了C大!!!!

作者: c_c_lai 時間: 2016-12-2 10:45

回復 55# starbox520
妳將我目前修正的程式碼套入你的程式中，
跑一次看看結果是否如你所願？

作者: starbox520 時間: 2016-12-2 13:47

回復 56# c_c_lai

[attach]25993[/attach]
那ㄟ安捏...

Sub AuditCustPkg(Adt_Rng As Range)
Dim c As Range, frstAddr As String, tf As Boolean
Dim cts As Integer, ct2 As Integer
Dim Arr As Variant, Ar2 As Variant, Ar3 As Variant
With Sheets("Cus簡碼")
Set c = .[B:B].Find(Adt_Rng.Offset(, -1).Value, , , 1) ' "TR排機&產出" Customer 比對 "Cus簡碼" CUST_GROUP
If Not c Is Nothing Then
frstAddr = c.Address
Do
If IsEmpty(Arr) Then ReDim Arr(1 To 1) Else ReDim Preserve Arr(1 To UBound(Arr) + 1)
Arr(UBound(Arr)) = Array(c.Offset(, -1).Text, c.Text)
Set c = .[B:B].FindNext(c)
Loop While Not c Is Nothing And c.Address <> frstAddr
End If
End With
If Not IsEmpty(Arr) Then
With Sheets("材料")
For cts = LBound(Arr) To UBound(Arr)
Set c = .[M:M].Find(Arr(cts)(0), , , 1) ' "Cus簡碼" CODE 比對 "材料" CUST_CODE
If Not c Is Nothing Then ' Arr(cts)(0) = "ASM" : Variant/String
frstAddr = c.Address
Do
' 以 "TR排機&產出" 的 "F"、"G"、"H" 為條件，去 "材料" 找到對應的數據。
' 第 1 種 (相同 Cust (c.Value) & PKG (c.Offset(, 3)) & B/S (c.Offset(, 4)) & L/C (c.Offset(, 5)))
If c.Offset(, 3) = Adt_Rng.Value And c.Offset(, 4) = Adt_Rng.Offset(, 1).Value And c.Offset(, 5) = CStr(Adt_Rng.Offset(, 2).Value) Then
If IsEmpty(Ar2) Then ReDim Ar2(1 To 1) Else ReDim Preserve Ar2(1 To UBound(Ar2) + 1)
Ar2(UBound(Ar2)) = Array(c.Text, Arr(cts)(1), c.Offset(, 3).Text, c.Offset(, 4).Text, c.Offset(, 5).Text, c.Offset(, 39).Text, c.Offset(, 40).Text)
End If
Set c = .[M:M].FindNext(c)
Loop While Not c Is Nothing And c.Address <> frstAddr
End If
If Not IsEmpty(Ar2) Then
For ct2 = LBound(Ar2) To UBound(Ar2)
' 以工作表 "TR排機&產出" 的 "F"、"G"、"H" 為條件，去工作表 "材料" 找到對應的數據；
' 然後找到這筆數據的 "CARRIER1 P/N"，然後只要一樣 "CARRIER1 P/N" 的都列出來。
Set c = .[BA:BA].Find(Ar2(ct2)(6), , , 1) ' CARRIER1 P/N ("BA") Ar2(ct2)(6) = "4100998111" :
If Not c Is Nothing Then ' PKG (c.Offset(, -37)) 、 BODU_SIZE (c.Offset(, -36))
frstAddr = c.Address ' CUST_CODE (c.Offset(, -40).Text)、, LEAD_COUNT (c.Offset(, -35).Text)
Do
' 同步地排除原先在工作表 "TR排機&產出" 點選的 Package。(Customer、Package、Bodysize)
' 修正以 "Cus簡碼" Arr 之第一組 (Arr(1)(0)) 作為判斷依據。
tf = (c.Offset(, -40).Text = Arr(1)(0) And c.Offset(, -37) = Adt_Rng.Value And c.Offset(, -36) = Adt_Rng.Offset(, 1).Value)
If Ar2(ct2)(1) <> "" And tf = False Then
If IsEmpty(Ar3) Then ReDim Ar3(1 To 1) Else ReDim Preserve Ar3(1 To UBound(Ar3) + 1)
Ar3(UBound(Ar3)) = Array(Ar2(ct2)(1), c.Offset(, -37).Text, c.Offset(, -36).Text, c.Offset(, -35).Text, c.Text)
End If
Set c = .[BA:BA].FindNext(c)
Loop While Not c Is Nothing And c.Address <> frstAddr
End If
Next ct2
End If
Next cts
End With
If Not IsEmpty(Ar3) Then CustPkg (Ar3)
End If
Set Arr = Nothing
Set Ar2 = Nothing
Set Ar3 = Nothing
End Sub

複製代碼

作者: c_c_lai 時間: 2016-12-2 14:19

回復 57# starbox520
三支程式皆應放入到工作表單 "TR排機&產出" 內，
如不行妳將妳的程式上傳，我來幫妳整理。

作者: starbox520 時間: 2016-12-2 14:37

回復 58# c_c_lai

對啊我放在裡面耶><

[attach]25994[/attach]

作者: c_c_lai 時間: 2016-12-2 15:21

回復 59# starbox520
妳將 AuditCustPkg(Adt_Rng As Range) 重複貼置，
AuditCustPkg(Adt_Rng As Range) 內又有一個
AuditCustPkg(Adt_Rng As Range)。
[attach]25995[/attach]

作者: starbox520 時間: 2016-12-2 15:30

回復 60# c_c_lai

有跑出來了!!!
可是我後面的程式碼是不是就會出錯了QQ
[attach]25997[/attach]

不能貼上，第2個LISTBOX 也卡住了QQ
不過第一個結果對了!!!!

作者: c_c_lai 時間: 2016-12-2 15:39

回復 61# starbox520
第2個LISTBOX尚無時間調整，可能如妳說的可能會卡住，
別急！
重要的是先印證第一、二種的處理。這兩者是否指差別在
"AZ" 、"BA" 的資料抓取不同，其實過程都一樣呢？
如果資料一樣是否只取第一組？
能否再細說兩這間的實際差異？

作者: starbox520 時間: 2016-12-2 15:45

回復 62# c_c_lai

你說的講法跟我的想法是一樣的

重要的是第一、二種的處理。這兩者是否指差別在
"AZ" 、"BA" 的資料抓取不同，其實過程都一樣呢？
如果資料一樣是否只取第一組？
能否再細說兩這間的實際差異？

過程都一樣，差在"AZ" 、"BA" 的資料抓取不同
沒錯只取一組，因為篩出來可能第一種篩法跟第2種篩法結果會一樣
這時"類別"算是第一種

作者: c_c_lai 時間: 2016-12-2 17:10

回復 63# starbox520
妳把
Private Sub CustPkg(Ar3 As Variant)
裡的
         For ii = 1 To 8
            Ar(ii, UBound(Ar, 2)) = c.Offset(, ii).Text
         Next
改成
         For ii = 1 To 8
            Ar(ii, UBound(Ar, 2)) = c.Offset(, ii - 1).Text
         Next
執行第二個 LISTBOX 便正常了。

作者: starbox520 時間: 2016-12-2 20:27

回復 64# c_c_lai

改的部分可以幫我註解意思嗎，萬分感謝XD

作者: c_c_lai 時間: 2016-12-3 06:40

回復 65# starbox520
好吧！
幫人幫到底。
[attach]26005[/attach]

作者: c_c_lai 時間: 2016-12-3 07:09

回復 65# starbox520
目前已將第二種篩選加入了，
你再仔細檢查執行是否正確？
該讓我的眼睛好好休息一下了，
否則是無法恢復視力的。

作者: starbox520 時間: 2016-12-3 17:47

回復 67# c_c_lai

太感謝你><
假日還請大大休息您的眼睛啦:'(
先看懂您的程式碼XD..

作者: c_c_lai 時間: 2016-12-3 18:16

回復 68# starbox520
如果妳想單獨測試第 2 種 (Width) 選鈕，可予以修改如下：

' For nbr = 1 To 2 ' 第 1 種、以及第 2 種選鈕
For nbr = 2 To 2 ' 測試第 2 種選鈕

再看看是否執行正確，我視力不佳，無法仔細觀察。

作者: starbox520 時間: 2016-12-3 22:08

本帖最後由 starbox520 於 2016-12-3 22:10 編輯

回復 69# c_c_lai

C大我禮拜一再問一下是不是該呈現"自己"這一筆
假設我第1 . 2 類別都有篩到各自不一樣的資料
會呈現類別1，類別2排序下去嗎?

以這筆來說
經過找完CUS簡碼轉換後，找到這4個
                                                                                 Width          CARRIER1 P/N
ATM AT TQFP 14X14 64 32          4101149111
ATM AT TQFP 14X14 64         32          4101149111
ATM AT TQFP 14X14 64 32    4101132111
MRS                      TQFP      14X14 64       32             4101149111

  像第一種，會去篩4101149111跟4101132111

  然後最後跑出呈現的結果
  但是第2個條件，"32"去篩的結果，應該也要顯示ListBox上
  是因為程式碼的意思是，只要第一個篩選有找到資料，就不繼續往第2個篩選執行嗎?
  但我要呈現的應該要有，第一個篩選結果找完後，再去找第2個篩選
  之前我們講的優先順序是  如果1.2篩選方式資料結果是同一筆的話，只呈現第一種篩選的結果
  會不會這邊我們想的不一樣XD...  這邊意思是如果EX.第一種找到 ATM AT TQFP 14X14 64    第2種也找到 ATM AT TQFP 14X14 64
  這筆歸為的類別就為"1"，第2種篩選就不該再出現這筆

  但像現在兩筆資料不一樣，第2種篩選的資料為什麼沒有在ListBox上呢?

這筆是我測試看看第2種篩選會不會也呈現在上面在"工作表2"加上去的
  [attach]26020[/attach]
TSM 經由 CUS簡碼查到為TSMC

  TSMC LQFP    14X14 100 50178 50178

應該要這樣才對
  [attach]26021[/attach]
  下面點點點是若還有其他筆也是要列出來
第3-5種篩選也是要呈現在更下面

  感覺C大又得叫我去看MAMAMIA了...

作者: c_c_lai 時間: 2016-12-4 07:21

本帖最後由 c_c_lai 於 2016-12-4 07:33 編輯

回復 70# starbox520
妳的意思是：
篩選比對不能只過濾： CUST_CODE、 PKG、 BODY_SIZE 這三樣。
第一種還要再加判斷： "Width"；而
第二種還要再加判斷："CARRIER1 P/N"，
是麼？
                                                                                          Width       CARRIER1 P/N
ATM       AT             TQFP       14X14       64             32             4101149111
ATM       AT             TQFP       14X14       64             32             4101149111
ATM       AT             TQFP       14X14       64             32             4101132111
MRS                            TQFP       14X14       64             32             4101149111
以上四筆，
哪幾筆屏鳳中選？

作者: starbox520 時間: 2016-12-4 11:27

本帖最後由 starbox520 於 2016-12-4 11:28 編輯

回復 71# c_c_lai

C大誤解了XD
當然跟之說的一樣
"4101149111" ."4101132111"
先去找，找到結果後，再找第2種篩選，"32"
兩個找到的結果都要秀出
只是因前面有發生，第一種跟第二種，中途篩選過程不一樣，但找到的結果會有一樣的
在這種狀況下，因為同一筆不該出現兩次，因此以第一種的類別秀出，第二種就不該出現此筆，

第一種還要再加判斷： "Width"；而
第二種還要再加判斷："CARRIER1 P/N"，
是麼？

所以我的敘述，是C大妳說的要加判斷的意思嗎?
因為我希望ListBox秀出來的內容，是第一種 - 第五種都有資訊 (找不到的不算)
然後上面會照類別"1"，類別"2"，類別"3"，類別"4"，類別"5" 排下來~

[attach]26023[/attach]
我以為我畫的很精闢...

作者: c_c_lai 時間: 2016-12-4 18:11

本帖最後由 c_c_lai 於 2016-12-4 18:16 編輯

回復 72# starbox520
答非所問！

妳的  "4101149111"  ."4101132111"
究竟是指哪幾筆資料錄？
                                                                                          Width       CARRIER1 P/N
ATM       AT             TQFP       14X14       64             32             4101149111
ATM       AT             TQFP       14X14       64             32             4101149111
ATM       AT             TQFP       14X14       64             32             4101132111
MRS                            TQFP       14X14       64             32             4101149111

第一種如以 "4101149111"  來篩選當然只有
ATM       AT             TQFP       14X14       64             32             4101149111
接著以第二種 "32" 來篩選，則結論是哪幾筆？
妳要以妳本身是撰寫者立場來考量、與比較。

作者: c_c_lai 時間: 2016-12-4 19:31

本帖最後由 c_c_lai 於 2016-12-4 19:59 編輯

回復 72# starbox520
不兜圈子了！

第一種：
ATM       AT             TQFP       14X14       64             32             4101149111
ATM       AT             TQFP       14X14       64             32             4101149111
MRS                            TQFP       14X14       64             32             4101149111

妳只要明白確實地指出，是哪一個才是妳構思的正確答案：
1. (篩選比對： CUST_CODE、 PKG、 BODY_SIZE、LEAD_COUNT、 CARRIER1 P/N。)
  ATM       AT             TQFP       14X14       64             32             4101149111

2. (篩選比對： PKG、 BODY_SIZE、LEAD_COUNT、 CARRIER1 P/N。)
  ATM       AT             TQFP       14X14       64             32             4101149111
  MRS                            TQFP       14X14       64             32             4101149111

接著第二種：
ATM       AT             TQFP       14X14       64             32             4101149111
ATM       AT             TQFP       14X14       64             32             4101149111
ATM       AT             TQFP       14X14       64             32             4101132111
MRS                            TQFP       14X14       64             32             4101149111

妳只要明白確實地指出，是哪一個才是妳構思的正確答案：
1. (篩選比對： CUST_CODE、 PKG、 BODY_SIZE、LEAD_COUNT、 Width。)
ATM       AT             TQFP       14X14       64             32             4101149111
ATM       AT             TQFP       14X14       64             32             4101132111
2. (篩選比對： PKG、 BODY_SIZE、LEAD_COUNT、 Width。)
ATM       AT             TQFP       14X14       64             32             4101149111
ATM       AT             TQFP       14X14       64             32             4101132111
MRS                            TQFP       14X14       64             32             4101149111

作者: starbox520 時間: 2016-12-4 20:21

回復 73# c_c_lai

第一種如以 "4101149111"  來篩選當然只有
ATM       AT             TQFP       14X14       64             32             4101149111
接著以第二種 "32" 來篩選，則結論是哪幾筆？
妳要以妳本身是撰寫者立場來考量、與比較。

妳只要明白確實地指出，是哪一個才是妳構思的正確答案：
1. (篩選比對： CUST_CODE、 PKG、 BODY_SIZE、CARRIER1 P/N。)
  ATM       AT             TQFP       14X14       64             32             4101149111

2. (篩選比對： PKG、 BODY_SIZE、CARRIER1 P/N。)
  ATM       AT             TQFP       14X14       64             32             4101149111
  MRS                            TQFP       14X14       64             32             4101149111

這邊兩個都怪怪的，我一開始是使用"TR排機產出"以 CUST_CODE、 PKG、 BODY_SIZE    找到此筆
ATM       AT             TQFP       14X14       64             32             4101149111    沒錯

但是接下來 CUST_CODE、 PKG、 BODY_SIZE   都不用比(以人工的方式，我在篩選那邊會按清除)，然後在CARRIER1 P/N 欄位只搜尋  4101149111
出來的資料一個一個去跟"工作表2"比，這裡才會又用到CUST_CODE、 PKG、 BODY_SIZE
意思是幾千筆資料裡，CARRIER1 P/N 是 4101149111  就是第一種在"材料"篩到的數據

你的第一種是對的，只是還少一個步驟，我這邊要看的是，  CARRIER1 P/N 的數字是多少  ，  然後只篩選CARRIER1 P/N欄位而已

作者: c_c_lai 時間: 2016-12-5 07:29

本帖最後由 c_c_lai 於 2016-12-5 07:34 編輯

回復 75# starbox520
？？？？？
請直接針對 #74 的提問回答，答案分別是 1 或 2 (即指第一、二種篩選方式)，
#74 的提問是在比對 "工作表2" 之前的前置作業，
即指當進行到 By "Carrier1 PIN" 、或是 By "Width" 時的最後處理結果，
還尚未進行比對 "工作表2" 之前的答案。
(光是這答案已經等了一天)

作者: starbox520 時間: 2016-12-5 08:18

回復 76# c_c_lai

原來如此...
我想的太遠了= " =
是第2種

作者: c_c_lai 時間: 2016-12-5 09:32

本帖最後由 c_c_lai 於 2016-12-5 09:43 編輯

回復 77# starbox520
快沒力氣了！

#74

第一種篩選結果：答案？  (1 或 2)
第二種篩選結果：答案？  (1 或 2)

P.S.  應該是我的國文表達太差了！

作者: starbox520 時間: 2016-12-5 11:12

回復 78# c_c_lai

第一種篩選結果：答案？ (1 或 2)
第二種篩選結果：答案？ (1 或 2)

都是2喔~沒有啦是我邏輯太差
都答非所問，讓你難理解QQ

作者: c_c_lai 時間: 2016-12-5 11:43

本帖最後由 c_c_lai 於 2016-12-5 11:45 編輯

回復 79# starbox520
謝謝妳耐心地回答。再次求解答：
第一種 (By "Carrier1 PIN") 篩選後的內容假設是如下之組合情形？

ATM       AT             TQFP       14X14       64             32             4101149111
ATM       AT             TQFP       14X14       1000          32             4101149111
ATM       AT             TQFP       14X14       64             24             4101149111
ATM       AT             BGA       14X14       68             32             4101149111
AMD                         TQFP       14X20       44             16             4101149111
MRS                         TQFP       14X14       64             32             4101149111
如果有的話，答案內容會是如何  (有哪幾筆是正確答案)？

第二種 (By "Width") 篩選後的內容假設是如下之組合情形？

ATM       AT             TQFP       14X14       64             32             4101149111
ATM       AT             TQFP       14X14       1000          32             4101132111
ATM       AT             TQFP       14X14       64             32             4101149111
ATM       AT             BGA       14X14       68             32             4100080111
AMD                         TQFP       14X20       44             32             4100047112
MRS                         TQFP       14X14       64                32             4101149111
如果有的話，答案內容會是如何  (有哪幾筆是正確答案)？

因為程式篩選過程中，須考量多種不同因素之故。

作者: starbox520 時間: 2016-12-5 12:01

回復 80# c_c_lai

謝謝妳耐心地回答。再次求解答：
第一種 (By "Carrier1 PIN") 篩選後的內容假設是如下之組合情形？

ATM       AT             TQFP       14X14       64             32             4101149111
ATM       AT             TQFP       14X14       1000          32             4101149111
ATM       AT             TQFP       14X14       64             24             4101149111
ATM       AT             BGA       14X14       68             32             4101149111
AMD                         TQFP       14X20       44             16             4101149111
MRS                         TQFP       14X14       64             32             4101149111

回C大這裡是只篩選Carrier1 PIN的部分的話
每一個資訊都是正確答案!!! 只是因為對照到"工作表2"有些資料會在"工作表2"找不到
找不到的就當成在進行工作表2篩選時被淘汰了
所以人工方法，要一個一個對"CUS簡碼"，然後又要一個一個對"工作表2"

Width也是一樣

作者: stillfish00 時間: 2016-12-5 16:31

回復 81# starbox520
參考看看:

Sub Test()
Dim v
v = GetMyData("SYNAPTICS", "BGA", "17.3X7", 36)
Stop
End Sub

複製代碼

新增模組

Private arMaterial, arSh2
Private dResult As Object
Function GetMyData(cus, pkg, size, lc)
ReadFromSheet
Method1 cus, pkg, size, lc
Method2 cus, pkg, size, lc
Dim ar
If dResult.Count > 0 Then
ar = Application.Transpose(Application.Transpose(dResult.items))
End If
GetMyData = ar
Erase arMaterial
Erase arSh2
Set dResult = Nothing
End Function
Sub ReadFromSheet()
Set dResult = CreateObject("scripting.dictionary")
'讀到 array 中
With Sheets("工作表2")
arSh2 = .[a1].CurrentRegion.Value
End With
With Sheets("材料")
arMaterial = .[a1].CurrentRegion.Value
End With
'建立簡碼對應全名的字典
Dim ar, dCustCode As Object
Set dCustCode = CreateObject("scripting.dictionary")
With Sheets("Cus簡碼")
ar = .[a1].CurrentRegion.Value
End With
For i = 2 To UBound(ar): dCustCode(ar(i, 1)) = ar(i, 2): Next
' 將 arMaterial 中取代簡碼為全名
For i = 2 To UBound(arMaterial)
If dCustCode.exists(arMaterial(i, 13)) Then
arMaterial(i, 13) = dCustCode(arMaterial(i, 13))
End If
Next
End Sub
Function Method1(cus, pkg, size, lc)
'找出 match 的CARRIER1 P/N
Dim dPN As Object: Set dPN = CreateObject("scripting.dictionary")
For i = 2 To UBound(arMaterial)
'M、P、Q、R ， find BA
If StrComp(cus, arMaterial(i, 13), vbTextCompare) = 0 And _
StrComp(pkg, arMaterial(i, 16), vbTextCompare) = 0 And _
StrComp(size, arMaterial(i, 17), vbTextCompare) = 0 And _
StrComp(lc, arMaterial(i, 18), vbTextCompare) = 0 Then
dPN(arMaterial(i, 53)) = 0
End If
Next
Dim ar, key
For i = 2 To UBound(arMaterial)
If dPN.exists(arMaterial(i, 53)) Then
For j = 2 To UBound(arSh2)
'M、P、Q、R <-> A、B、C、D
If StrComp(arMaterial(i, 13), arSh2(j, 1), vbTextCompare) = 0 And _
StrComp(arMaterial(i, 16), arSh2(j, 2), vbTextCompare) = 0 And _
StrComp(arMaterial(i, 17), arSh2(j, 3), vbTextCompare) = 0 And _
StrComp(arMaterial(i, 18), arSh2(j, 4), vbTextCompare) = 0 Then
If Not dResult.exists(j) Then dResult.Add j, Array(arSh2(j, 1), arSh2(j, 2), arSh2(j, 3), arSh2(j, 4), arSh2(j, 5), arSh2(j, 6), arSh2(j, 7), arSh2(j, 8), "1")
End If
Next
End If
Next
End Function
Function Method2(cus, pkg, size, lc)
'找出 match 的 Width
Dim dPN As Object: Set dPN = CreateObject("scripting.dictionary")
For i = 2 To UBound(arMaterial)
'M、P、Q、R ， find AZ
If StrComp(cus, arMaterial(i, 13), vbTextCompare) = 0 And _
StrComp(pkg, arMaterial(i, 16), vbTextCompare) = 0 And _
StrComp(size, arMaterial(i, 17), vbTextCompare) = 0 And _
StrComp(lc, arMaterial(i, 18), vbTextCompare) = 0 Then
dPN(arMaterial(i, 52)) = 0
End If
Next
Dim ar, key
For i = 2 To UBound(arMaterial)
If dPN.exists(arMaterial(i, 52)) Then
For j = 2 To UBound(arSh2)
'M、P、Q、R <-> A、B、C、D
If StrComp(arMaterial(i, 13), arSh2(j, 1), vbTextCompare) = 0 And _
StrComp(arMaterial(i, 16), arSh2(j, 2), vbTextCompare) = 0 And _
StrComp(arMaterial(i, 17), arSh2(j, 3), vbTextCompare) = 0 And _
StrComp(arMaterial(i, 18), arSh2(j, 4), vbTextCompare) = 0 Then
If Not dResult.exists(j) Then dResult.Add j, Array(arSh2(j, 1), arSh2(j, 2), arSh2(j, 3), arSh2(j, 4), arSh2(j, 5), arSh2(j, 6), arSh2(j, 7), arSh2(j, 8), "2")
End If
Next
End If
Next
End Function

複製代碼

作者: c_c_lai 時間: 2016-12-5 18:42

回復 81# starbox520
試試看
[attach]26025[/attach]

作者: starbox520 時間: 2016-12-5 19:58

回復 83# c_c_lai

C大這筆還是沒有跑出來耶
"工作表2 "  TSMC LQFP 14X14 100 16278 16278
[attach]26026[/attach]
   第2種篩選找到的是"32"
我資料跑出來還未經過"工作表2"去比對，有72筆資料
應該不會一筆都沒有><"
我就在第2筆自己測試，直接對照CUS簡碼，自己手動在工作表2上打上TSMC LQFP 14X14 100 16278 16278
   但是沒有跑到ListBox上耶
[attach]26027[/attach]

作者: starbox520 時間: 2016-12-5 23:00

回復 80# c_c_lai

[attach]26035[/attach]

作者: c_c_lai 時間: 2016-12-7 08:16

回復 84# starbox520
何來 "工作表2 " TSMC LQFP 14X14 100 16278 16278 ？
在第幾筆？

作者: starbox520 時間: 2016-12-7 08:22

回復 86# c_c_lai

回C大，這筆是我為了測試地2種篩選，自行在工作表2加上去的!!
只是為了測試，是不是跑得出來

作者: c_c_lai 時間: 2016-12-7 10:10

本帖最後由 c_c_lai 於 2016-12-7 10:12 編輯

回復 87# starbox520
測試看看！
[attach]26045[/attach]

作者: starbox520 時間: 2016-12-7 10:36

回復 88# c_c_lai

對了!!!!!!!!
太謝謝C大了!!!!

作者: c_c_lai 時間: 2016-12-8 10:14

回復 89# starbox520
[attach]26052[/attach]
加入第 3、4、5 種篩選方式。
下課囉！

作者: starbox520 時間: 2016-12-8 16:32

回復 90# c_c_lai

謝謝C大!!

辛苦你的眼睛跟頭腦了XD

萬分感謝!!!!

真的太謝謝你了~~!!!

作者: starbox520 時間: 2016-12-8 16:40

回復 90# c_c_lai

C大別急著下課啦XD
一開始打開EXCEL到 TR排機&產出
如果沒點到指定位置就會出現偵測錯誤
有辦法過濾掉這項問題嗎~

作者: c_c_lai 時間: 2016-12-9 06:09

本帖最後由 c_c_lai 於 2016-12-9 06:10 編輯

回復 92# starbox520
不太明白，妳把畫面上傳。
是執行 TTS0000_Release.xlsm ？

作者: starbox520 時間: 2016-12-9 13:17

回復 93# c_c_lai

沒事了XD
我用IF判斷是簡潔了處理掉XD"
不想讓你下課而已XD

作者: c_c_lai 時間: 2016-12-9 15:51

回復 94# starbox520
[attach]26058[/attach]

作者: starbox520 時間: 2016-12-15 14:15

回復 95# c_c_lai

好像有奇怪的Bug
第一張圖我點完後
[attach]26102[/attach]
結果是對的
然後我去點另一個
他怎麼也顯示跟剛剛點的一樣的訊息
[attach]26103[/attach]
我測試的結果是
剛剛開Excel檔時會跳錯誤訊息"找不到"
到這邊都對
但後面篩選到有值的數後
反而找不到的訊息
直接顯示上一個篩選結果
我的判斷是對的嗎~

作者: c_c_lai 時間: 2016-12-15 17:37

回復 96# starbox520
我以最後之修正版本，執行出來的結果：
[attach]26104[/attach]
沒有妳說的問題呢！

作者: starbox520 時間: 2016-12-16 08:29

回復 97# c_c_lai

C大大可以幫我看一下嗎，我眼睛轉圈圈中
有幾個是我後來加進去的東西
不知道會不會影響到QQ
[attach]26108[/attach]

作者: c_c_lai 時間: 2016-12-16 11:05

回復 98# starbox520
仍有漏網之魚，還要過濾 "找不到五種篩選方法"。

If Not IsEmpty(Ar3) Then CustPkg (Ar3) ' 最後如有比對成功紀錄，則繼續往下去執行。

複製代碼

須改為

If Not IsEmpty(Ar3) Then
CustPkg (Ar3) ' 最後如有比對成功紀錄，則繼續往下去執行。
Else
Sh_Ar = Ar3 ' 找不到五種篩選方法
End If

複製代碼

如此才能正確過關。
[attach]26111[/attach]

作者: starbox520 時間: 2016-12-16 18:38

回復 99# c_c_lai

哈哈我想說為什麼我一直找不到原因= =

我還在努力研究你的寫法中QQ

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)