12345678910... 19
返回列表 上一主題 發帖

[發問] 多條件篩選&ListBox

starbox520

帖子
192 
主題
15 
精華
0 
積分
194 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
女 
註冊時間
2016-9-22 
最後登錄
2020-8-28 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-11-12 16:25 | 只看該作者

[發問] 多條件篩選&ListBox

此為ListBox  以CARRIER為條件的按鈕

以圖示說明為例

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

Customer對應到工作表"CUS簡碼"，會在B欄位找到相同資料對應到A欄(如下圖找到UM9)
3.jpg
之後再以A欄的簡碼找到工作表"材料"的 M欄位

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

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


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

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

TTS00002.rar (843.31 KB)
收藏 分享

starbox520

帖子
192 
主題
15 
精華
0 
積分
194 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
女 
註冊時間
2016-9-22 
最後登錄
2020-8-28 

論壇榮譽勳章論壇贊助勳章
184#
發表於 2017-1-3 10:59 | 只看該作者
回復 183# c_c_lai


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

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


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

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
183#
發表於 2017-1-2 08:50 | 只看該作者
本帖最後由 c_c_lai 於 2017-1-2 08:52 編輯

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


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

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
182#
發表於 2016-12-30 18:44 | 只看該作者
本帖最後由 c_c_lai 於 2016-12-30 18:53 編輯

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

TOP

starbox520

帖子
192 
主題
15 
精華
0 
積分
194 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
女 
註冊時間
2016-9-22 
最後登錄
2020-8-28 

論壇榮譽勳章論壇贊助勳章
181#
發表於 2016-12-30 17:58 | 只看該作者
回復 47# c_c_lai


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

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
180#
發表於 2016-12-30 17:41 | 只看該作者
回復 45# starbox520
無誤吧？ 請仔細檢查一遍！

tx00001223U.rar (765.32 KB)

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
179#
發表於 2016-12-30 17:09 | 只看該作者
回復 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
複製代碼

TOP

starbox520

帖子
192 
主題
15 
精華
0 
積分
194 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
女 
註冊時間
2016-9-22 
最後登錄
2020-8-28 

論壇榮譽勳章論壇贊助勳章
178#
發表於 2016-12-30 16:50 | 只看該作者
回復 44# c_c_lai
回C大4的部分是我一開始的寫法
後來改成您的+"急貨"
所以變成4. U"欄急貨單號，有任何值，在"I"欄Schedule加上"急貨"， 之後再寫到Sheet1

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
177#
發表於 2016-12-30 16:44 | 只看該作者
回復 43# starbox520
4."U"欄急貨單號，有任何值，在"I"欄Schedule加上*號， 之後再寫到Sheet1 ？？？

TOP

starbox520

帖子
192 
主題
15 
精華
0 
積分
194 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
女 
註冊時間
2016-9-22 
最後登錄
2020-8-28 

論壇榮譽勳章論壇贊助勳章
176#
發表於 2016-12-30 16:31 | 只看該作者
回復 42# c_c_lai


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

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
12345678910... 19
返回列表 上一主題