多條件篩選&ListBox - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 多條件篩選&ListBox

1 ... 10 11 12 13 14 15 16 171819 下一頁

返回列表下一主題上一主題發帖

[發問] 多條件篩選&ListBox

中學生 Rank: 2

帖子: 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 欄所有資訊欄後保留剩下的+空白資訊嗎

博士班 Rank: 6 Rank: 6

帖子: 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

For i = 2 To UBound(Arr) ' UBound(Arr) = 1249 : Long
' 執行 "WIP" 時，先行過濾 "TR排機&產出"，檢核該 "機台" 是否已被使用，
' 如果已被使用則予以排除在外，不再重複選用。
If IsEmpty(Arr(i, 15)) Then
Set c = Nothing
Else
Set c = Sheets("TR排機&產出").[B:B].Find(Arr(i, 15), , , 1)
End If

複製代碼

tx00001223U.rar (766.86 KB)

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

中學生 Rank: 2

帖子: 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大的答案是對的

中學生 Rank: 2

帖子: 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

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

博士班 Rank: 6 Rank: 6

帖子: 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
妳一下要加 "*"，一下又要加 "急貨"，到底哪一個是好？

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

複製代碼

中學生 Rank: 2

帖子: 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

博士班 Rank: 6 Rank: 6

帖子: 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 ？？？

中學生 Rank: 2

帖子: 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

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

179^#

發表於 2016-12-30 17:09 | 只看該作者

回復 45# starbox520
被妳打敗了！

那再改回來：

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

複製代碼

博士班 Rank: 6 Rank: 6

帖子: 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)

靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。

1 ... 10 11 12 13 14 15 16 171819 下一頁

返回列表下一主題上一主題