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

1 2 3 4 567 8 9 10 下一頁

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

[發問] 多條件篩選&ListBox

c_c_lai

博士班 Rank: 6 Rank: 6

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

51^# 跳轉到 »

發表於 2016-12-23 19:44 | 顯示全部帖子

回復 103# starbox520

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

52^#

發表於 2016-12-23 20:25 | 顯示全部帖子

回復 105# starbox520
看不到圖表

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

53^#

發表於 2016-12-23 20:42 | 顯示全部帖子

回復 108# starbox520
非常難懂的經文？？？

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

54^#

發表於 2016-12-23 21:00 | 顯示全部帖子

回復 110# starbox520
我還是先讓眼睛休息一下吧，
不然連眼睛也會跟著錯亂的！

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

55^#

發表於 2016-12-23 21:03 | 顯示全部帖子

回復 110# starbox520
我還是先讓眼睛休息一下，
不然眼睛也會跟著錯亂的！

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

56^#

發表於 2016-12-24 08:18 | 顯示全部帖子

回復 114# starbox520
這是我為求確認，再次整理加註的你的回覆集。
須看了數番次後，始得恍然大悟 What are you talking about。
難怪我眼睛視力恢復地如此慢！

Txt.rar (913.16 KB)

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

57^#

發表於 2016-12-24 08:41 | 顯示全部帖子

回復 111# starbox520

Select Case cts
Case 3 ' 第 3 種篩選方式： TR排機&產出 E F G H (工作表2 A B C D)
' tf = arSh2(ct2, 1) = Adt_Rng.Offset(, -1) And arSh2(ct2, 2) = Adt_Rng.Value And arSh2(ct2, 3) = Adt_Rng.Offset(, 1) And arSh2(ct2, 4) = Adt_Rng.Offset(, 2)
tf = arSh2(ct2, 1) = Adt_Rng.Offset(, -1) And Right(arSh2(ct2, 2), 3) = Right(Adt_Rng.Value, 3) And arSh2(ct2, 3) = Adt_Rng.Offset(, 1) And arSh2(ct2, 4) = Adt_Rng.Offset(, 2)
Case 4 ' 第 4 種篩選方式： TR排機&產出 F G H (工作表2 B C D)
' tf = arSh2(ct2, 2) = Adt_Rng.Value And arSh2(ct2, 3) = Adt_Rng.Offset(, 1) And arSh2(ct2, 4) = Adt_Rng.Offset(, 2)
tf = Right(arSh2(ct2, 2), 3) = Right(Adt_Rng.Value, 3) And arSh2(ct2, 3) = Adt_Rng.Offset(, 1) And arSh2(ct2, 4) = Adt_Rng.Offset(, 2)
Case 5 ' 第 5 種篩選方式： TR排機&產出 F G (工作表2 B C )
' tf = arSh2(ct2, 2) = Adt_Rng.Value And arSh2(ct2, 3) = Adt_Rng.Offset(, 1)
tf = Right(arSh2(ct2, 2), 3) = Right(Adt_Rng.Value, 3) And arSh2(ct2, 3) = Adt_Rng.Offset(, 1)
End Select