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

[發問] 多條件篩選&ListBox

c_c_lai

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

回復 41# 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.                         '  If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "急貨" Then
  5.                         If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
  6.                             '  .Cells(i, 9) = .Cells(i, 9) & "急貨"       '  確認是否為急貨單號
  7.                             .Cells(i, 9) = .Cells(i, 9) & "*"             '  確認是否為急貨單號
  8.                         End If
  9.                         
  10.                         Set rng = Union(rng, .Rows(i))
  11.                     End If
  12.                     '  N 欄內空白無資料的篩出來寫在此
  13.                 ElseIf Len(Arr(i, 14)) = 0 Then
  14.                     '  如果 "U" 欄 (急貨單號)，有任何值，在 "I" 欄 (Schedule) 加上 * 號
  15.                     '  If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "急貨" Then
  16.                     If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
  17.                         '  .Cells(i, 9) = .Cells(i, 9) & "急貨"       '  確認是否為急貨單號
  18.                         .Cells(i, 9) = .Cells(i, 9) & "*"       '  確認是否為急貨單號
  19.                     End If
  20.                     
  21.                     Set rng = Union(rng, .Rows(i))
  22.                 End If
複製代碼

TOP

starbox520

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

論壇榮譽勳章論壇贊助勳章
174#
發表於 2016-12-30 15:45 | 只看該作者
回復 36# c_c_lai


    C大您給的程式
    跟我手動篩的答案好像有差異??
    感覺好像哪裡有問題

1.S欄篩出LS1T|LS1N|TR|BK|VQ 字串，其餘的不要
2.找到TR排機&產出的"B"欄  資訊，在來把抓到的資訊拿去比對WIP的"O"欄(執行 "WIP" 時，先行過濾 "TR排機&產出"， 檢核該 "機台" 是否已被使用   '  如果已被使用則予以排除在外，不再重複選用。)
2.將J欄的"G"R欄的"R"篩出來，其餘的不要
3.'N欄的時間，以當前系統時間 + 4HRS 內 篩出來，空白無時間資料的篩出來，其餘的不要(其餘的指不在這4HRS以內的資料)
4."U"欄急貨單號，有任何值，在"I"欄Schedule加上*號， 之後再寫到Sheet1

錄製過程中，因怕檔案太大
所以一開始就有先整理每個條件剩下的資訊

8851.gif

TOP

starbox520

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

論壇榮譽勳章論壇贊助勳章
173#
發表於 2016-12-29 16:54 | 只看該作者
回復 39# c_c_lai


    白話文就是
    C大的答案是對的

TOP

c_c_lai

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

回復 38# starbox520
  1.         For i = 2 To UBound(Arr)      '  UBound(Arr) = 1249 : Long
  2.             '  執行 "WIP" 時，先行過濾 "TR排機&產出"， 檢核該 "機台" 是否已被使用，
  3.             '  如果已被使用則予以排除在外，不再重複選用。
  4.             If IsEmpty(Arr(i, 15)) Then
  5.                 Set c = Nothing
  6.             Else
  7.                 Set c = Sheets("TR排機&產出").[B:B].Find(Arr(i, 15), , , 1)
  8.             End If
複製代碼
tx00001223U.rar (766.86 KB)

妳那砍掉 (白話文)，指的是？

TOP

starbox520

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

論壇榮譽勳章論壇贊助勳章
171#
發表於 2016-12-29 14:49 | 只看該作者
回復 36# c_c_lai
C大您這部分是只砍掉  TR排機&產出  B 欄所有資訊  欄後保留剩下的+空白 資訊嗎

TOP

starbox520

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

論壇榮譽勳章論壇贊助勳章
170#
發表於 2016-12-29 13:05 | 只看該作者
回復 35# c_c_lai


    空白的要留著
   我的這一欄裡面還是有很多資料的捏
    WIP裡面有1900多筆資料

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
169#
發表於 2016-12-29 12:51 | 只看該作者
回復 34# starbox520
妳的想法是這樣嗎？
  1. Sub WIP()
  2.     Dim r%, i%, Arr As Variant, c As Variant
  3.     Dim rng As Range, reg As New RegExp
  4.    
  5.     With reg                                 '  reg :  : RegExp/IRegExp2
  6.         .IgnoreCase = True                   '  IgnoreCase = True : Boolean
  7.         '  S 欄 (Recipe) 篩 出 LS1T | LS1N | TR | BK | VQ 字串，其餘的不要
  8.         .Pattern = "LS1T|LS1N|TR|BK|VQ"      '  Pattern = "LS1T|LS1N|TR|BK|VQ" : String
  9.     End With
  10.    
  11.     With Worksheets("WIP")
  12.         Set rng = .Rows(1)
  13.         Arr = .[A1].CurrentRegion.Value   '  Arr :  : Variant/Variant(1 to 1249, 1 to 27)
  14.         
  15.         For i = 2 To UBound(Arr)      '  UBound(Arr) = 1249 : Long
  16.             If IsEmpty(Arr(i, 15)) Then
  17.                 Set c = Nothing
  18.             Else
  19.                 Set c = Sheets("TR排機&產出").[B:B].Find(Arr(i, 15), , , 1)
  20.             End If

  22.             '  將 J 欄 (Bin Code) 的 "G"、 R 欄 (Close Type) 的 "R" 篩出來，其餘的不要
  23.             '  將 S 欄 (Recipe) 篩出 LS1T | LS1N | TR | BK | VQ 字串，其餘的不要
  24.             '  (reg.test(Arr(i, 19)) : Arr(i, 19) = "TR1T0.03" (True) / = "PK1T0" (False)) : Boolean
  25.             If Arr(i, 10) = "G" And Arr(i, 18) = "R" And reg.test(Arr(i, 19)) And c Is Nothing Then
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
168#
發表於 2016-12-29 09:21 | 只看該作者
回復 34# starbox520
"WIP" 的 "MA code" 幾乎全為白，要篩甚麼？

TOP

starbox520

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

論壇榮譽勳章論壇贊助勳章
167#
發表於 2016-12-29 08:50 | 只看該作者
回復 33# c_c_lai


    就是我在這裡的程式碼
  1. Sub WIP()

  3.     Dim r%, i%, Arr As Variant

  5.     Dim rng As Range, reg As New RegExp

  7.    

  9.     With reg                                 '  reg :  : RegExp/IRegExp2

  11.         .IgnoreCase = True                   '  IgnoreCase = True : Boolean

  13.         '  S 欄 (Recipe) 篩 出 LS1T | LS1N | TR | BK | VQ 字串，其餘的不要

  15.         .Pattern = "LS1T|LS1N|TR|BK|VQ"      '  Pattern = "LS1T|LS1N|TR|BK|VQ" : String

  17.     End With

  19.    

  21.     With Worksheets("WIP")

  23.         Set rng = .Rows(1)

  25.         Arr = .[A1].CurrentRegion.Value   '  Arr :  : Variant/Variant(1 to 1249, 1 to 27)

  27.         

  29.         For i = 2 To UBound(Arr)      '  UBound(Arr) = 1249 : Long

  31.            

  33.             '  (reg.test(Arr(i, 19)) : Arr(i, 19) = "TR1T0.03" (True) / = "PK1T0" (False)) : Boolean

  35.             If Arr(i, 10) = "G" And Arr(i, 18) = "R" And reg.test(Arr(i, 19)) Then

  37.                 '  N 欄 (Trackin time) 的時間，以當前系統時間 + 4HRS

  39.                 If IsDate(Arr(i, 16)) Then

  41.                     If Arr(i, 16) >= Now And Arr(i, 16) < DateAdd("h", 4, Now) Then    ' 當下時間 +4Hrs

  43.                         If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "急貨" Then

  45.                             .Cells(i, 9) = .Cells(i, 9) & "急貨"       '  確認是否為急貨單號

  47.                         End If

  49.                         

  51.                         Set rng = Union(rng, .Rows(i))

  53.                     End If

  55.                     '  N 欄內空白無資料

  57.                 ElseIf Len(Arr(i, 16)) = 0 Then

  59.                     '  如 "U" 欄 (急貨單號)，有任何值，在 "I" 欄 (Schedule) 加上 * 號

  61.                     If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "急貨" Then

  63.                                   .Cells(i, 9) = .Cells(i, 9) & "急貨"       '  確認是否為急貨單號

  65.                      End If

  67.                       '  Cells(i, 9) = .Cells(i, 9) & "急貨"

  69.                     '  .Cells(i, 9) = Left(.Cells(i, 9), Len(.Cells(i, 9)) - 1) & "急貨"       '  確認是否為急貨單號

  71.                   '  End If

  73.                     

  75.                     Set rng = Union(rng, .Rows(i))

  77.                 End If

  79.             End If

  81.         Next

  83.     End With

  85.    

  87.     With Worksheets("Sheet1")

  89.         .[A1].CurrentRegion.ClearContents      '  清除上一次的畫面

  91.         rng.Copy .Range("A1")

  93.     End With

  95. End Sub
複製代碼
現在的步驟是
     篩選J欄塞選只有G的資料
     R欄塞選只有R的資料
     S欄塞選有LS1T。 LS1N。 TR。 BK。 VQ的字串
     N欄有時間資料的以現在時間+ 4小時以外都去除掉（EX現在12點，12-16的資料留下，因WIP頁面每天會更新），空白資料留下
     若U欄有字在I欄顯內容後面+上*號
   
要多加一項篩選
現在想加一個就是，前幾篇說明的
變成我篩完
J欄塞選只有G的資料
R欄塞選只有R的資料後
在來篩選我要新增的條件
在篩S欄塞選有LS1T。 LS1N。 TR。 BK。 VQ的字串
.......(後面不變)

要新增的條件為:
WIP的"O"欄內容會有TR排機&產出的"B"欄  資訊
現在要做的就是先去找到TR排機&產出的"B"欄  資訊，資訊意指(SQH011 . SQH021...............SQ10A1) 這些字串  
在來把抓到的資訊拿去比對WIP的"O"欄
找到相同的字串那一整列都去除掉，換句話說就是要保留除了這些字串以外的部分

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
166#
發表於 2016-12-29 06:52 | 只看該作者
回復 32# starbox520
謝謝你的詳細地說明；但我依然抓不到妳指的 Key Point。
我要的是：
我打算從 "哪裡" 到 "那裏" 將 "花種" 栽植，等長大 "開花" 後拿來賣到 "花市" 去。
而不是：
我今天打算清晨 5:00 鐘從 "哪裡" 用走的走到 "那裏" 將一些朋友那兒要來的栽培種植的 "花種"
將它們予以栽植，等它們長大 "開花" 後，再將它們採下，拿來賣到 "花市" 去。

結果是 "不知道答案"，能否白話點，扼要地表述。
譬如：
在執行 "WIP" 時， 與 "TR排機&產出" 有何關聯性？
不要籠統地說一堆，請一筆記錄對一筆記錄是如何處理？
"WIP" 寫到 "Sheet1" 又有何額外注意事項？

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
12345678910... 19
返回列表 上一主題