1 ...10111213141516171819
返回列表 上一主題 發帖

[發問] 多條件篩選&ListBox

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

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 

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


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

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

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 

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


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

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 

論壇榮譽勳章論壇贊助勳章
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 
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

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

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
1 ...10111213141516171819
返回列表 上一主題