[發問] 多條件篩選&ListBox

starbox520

此為ListBox  以CARRIER為條件的按鈕

下載 (16.3 KB)

2016-11-12 16:19

以圖示說明為例

下載 (9.35 KB)

2016-11-12 16:18

若以附檔中工作表"TR排機&產出"
紅線圈起的位置，要對應到工作表"Cus簡碼""材料"
Package跟 Bodysize對到工作表"材料"的"P""Q"欄位

下載 (39.52 KB)

2016-11-12 16:18

Customer對應到工作表"CUS簡碼"，會在B欄位找到相同資料對應到A欄(如下圖找到UM9)

下載 (9.13 KB)

2016-11-12 16:18

之後再以A欄的簡碼找到工作表"材料"的 M欄位

下載 (32.37 KB)

2016-11-12 16:18

找到此筆後，在對應到工作表"材料"的"BA"欄(4101129111)
再來找出現在BA欄相同的資料(都是4101129111)
去對應到M欄的簡碼(依下圖找到5筆資料(排除原先找的UM9))

下載 (25.98 KB)

2016-11-12 16:18

再以這5筆資料的"M""P""Q"欄位對應到 工作表2的"A""B""C"欄位
最後找到此筆(顯示在LISTBOX上)

下載 (23.88 KB)

2016-11-12 16:18

第2個按鈕和第一個按鈕差異在找到"CUS簡碼"後
對應到工作表"材料"的"AZ"欄位(都是16的)

下載 (36.28 KB)

2016-11-12 16:18

例如圖示多了一筆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筆資料，第一筆剛好是按鈕一的結果，第二筆為按鈕二的結果..以此類推
當然資料會有好多筆...

下載 (61.68 KB)

2016-11-12 16:19

TTS00002.rar (843.31 KB)

下載次數: 12

2016-11-12 16:24

starbox520

回復 183# c_c_lai


目前測試出來  都正常了XD
哎呀... 我真的 不是想拿來考人阿....
小誌版大的幫忙！
版大也有加入喔!!!??

謝謝你們，真的真的很謝謝!!!!
祝你們新年快樂^^
事事順利


相信上面的就不是達文西密碼了Q0Q

c_c_lai

回復 181# starbox520
測試網頁是否正常。

下載 (38.71 KB)

2017-1-2 08:49

謝謝小誌版大的幫忙！
Happy New Year !

c_c_lai

回復 48# starbox520
就是因為明瞭這一點，所以我才不斷地試著
與推敲妳的設計思考方向與想法。
不過說真格的，妳的出題的解說
相信應該會考倒一些人。

starbox520

回復 47# c_c_lai


    我多試幾次檢查在跟你確認哈哈...
    別這樣我真的不知道怎麼表達比較讓別人懂QQ

c_c_lai

回復 45# starbox520
無誤吧？ 請仔細檢查一遍！

下載 (51.26 KB)

2016-12-30 17:40

tx00001223U.rar (765.32 KB)

下載次數: 14

2016-12-30 17:41

c_c_lai

回復 45# starbox520
被妳打敗了！

那再改回來：

1.                 If IsDate(Arr(i, 14)) Then
   
2.                     If Arr(i, 14) >= Now And Arr(i, 14) < DateAdd("h", 4, Now) Then    ' 當下時間 +4Hrs
   
3.                         '  "U" 欄 (急貨單號)，有任何值，在 "I" 欄 (Schedule) 加上 * 號， 之後再寫到 Sheet1
   
4.                         '  4. "U" 欄 (急貨單號)，有任何值，在 "I" 欄 (Schedule) 加上 "急貨"， 之後再寫到 Sheet1
   
5.                         If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "急貨" Then
   
6.                         '  If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
   
7.                             .Cells(i, 9) = .Cells(i, 9) & "急貨"       '  確認是否為急貨單號
   
8.                             '  .Cells(i, 9) = .Cells(i, 9) & "*"             '  確認是否為急貨單號
   
9.                         End If
   
10.                         
    
11.                         Set rng = Union(rng, .Rows(i))
    
12.                     End If
    
13.                     '  N 欄內空白無資料的篩出來寫在此
    
14.                 ElseIf Len(Arr(i, 14)) = 0 Then
    
15.                     '  如果 "U" 欄 (急貨單號)，有任何值，在 "I" 欄 (Schedule) 加上 * 號
    
16.                     '  4. "U" 欄 (急貨單號)，有任何值，在 "I" 欄 (Schedule) 加上 "急貨"， 之後再寫到 Sheet1
    
17.                     If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "急貨" Then
    
18.                     '  If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
    
19.                         .Cells(i, 9) = .Cells(i, 9) & "急貨"       '  確認是否為急貨單號
    
20.                         '  .Cells(i, 9) = .Cells(i, 9) & "*"       '  確認是否為急貨單號
    
21.                     End If
    
22.                     
    
23.                     Set rng = Union(rng, .Rows(i))
    
24.                 End If

複製代碼

starbox520

回復 44# c_c_lai
回C大4的部分是我一開始的寫法
後來改成您的+"急貨"
所以變成4. U"欄急貨單號，有任何值，在"I"欄Schedule加上"急貨"， 之後再寫到Sheet1

c_c_lai

回復 43# starbox520
4."U"欄急貨單號，有任何值，在"I"欄Schedule加上*號， 之後再寫到Sheet1 ？？？

starbox520

回復 42# c_c_lai


    回C大  是加"急貨"
    我列出的是我當初設計的模式
    急貨與C大幫忙新增的2. "機台" 是否已被使用   '  如果已被使用則予以排除在外，不再重複選用
    我是懷疑問題出在我之前設計的程式碼QQ