返回列表 上一主題 發帖

如何利用勾選方塊來篩選資料

Jared

帖子
103 
主題
30 
精華
0 
積分
139 
點名
0  
作業系統
wondows XP 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
彰化 
註冊時間
2013-2-21 
最後登錄
2015-6-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-6-8 16:44 | 只看該作者

如何利用勾選方塊來篩選資料

勾選方塊篩選
想請問各位大大
我現在想要利用表單來篩選資料

下拉式選擇資料還可以執行
但如果想要利用勾選資料的方式
不曉得問題點在哪裡 ><
測試.zip (18.57 KB)
  1. Dim a, b, c, d, e, f, g, h, i, j, k, l, m
  2. Private Sub CommandButton1_Click() '篩選條件

  4. a = Test.ComboBox1.Value '季節
  5. b = Test.ComboBox2.Value '月份

  7. d = CheckBox1.Value
  8. e = CheckBox2.Value
  9. f = CheckBox3.Value
  10. g = CheckBox4.Value
  11. h = CheckBox5.Value
  12. i = CheckBox6.Value
  13. j = CheckBox7.Value
  14. k = CheckBox8.Value
  15. l = CheckBox9.Value
  16. m = CheckBox10.Value

  18. c = Array(d, e, f, g, h, i, j, k, l, m)


  21. With ActiveSheet.Range("$A$1:$K$121")
  22.     .Parent.AutoFilterMode = False   '顯示全部資料 ->新的 多重篩選
  23.    
  24.     '多重篩選  ..........
  25.     If a <> "" Then .AutoFilter Field:=1, Criteria1:=a
  26.     If b <> "" Then .AutoFilter Field:=2, Criteria1:=b
  27.     If c <> "" Then .AutoFilter Field:=3, Criteria1:=c, Operator:=xlFilterValues
  28.     '多重篩選  ..........
  29. End With
  30. End Sub

  32. Private Sub CommandButton2_Click() '清除內容
  33. Me.ComboBox1 = ""
  34. Me.ComboBox2 = ""
  35. Me.CheckBox1 = ""
  36. Me.CheckBox2 = ""
  37. Me.CheckBox3 = ""
  38. Me.CheckBox4 = ""
  39. Me.CheckBox5 = ""
  40. Me.CheckBox6 = ""
  41. Me.CheckBox7 = ""
  42. Me.CheckBox8 = ""
  43. Me.CheckBox9 = ""
  44. Me.CheckBox10 = ""
  45. End Sub

  47. Private Sub CommandButton3_Click() '取消
  48. Test.Hide
  49. End Sub

  51. Private Sub CommandButton4_Click() '展開
  52. ActiveSheet.Range("$A$1:$K$121").AutoFilter Field:=1
  53. ActiveSheet.Range("$A$1:$K$121").AutoFilter Field:=2
  54. ActiveSheet.Range("$A$1:$K$121").AutoFilter Field:=3
  55. End Sub
  56. Private Sub UserForm_Initialize()

  58.     ComboBox1.List = Array("Q1", "Q2", "Q3", "Q4") '季
  59.    
  60.     ComboBox2.List = Array("一月", "二月", "三月", "四月", "五月", "六月", "七月", "八月", "九月", "十月", "十一月", "十二月") '月

  62. End Sub
複製代碼
收藏 分享
Jared

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2015-6-11 23:35 | 只看該作者
本帖最後由 luhpro 於 2015-6-11 23:43 編輯
想請問各位大大
我現在想要利用表單來篩選資料
下拉式選擇資料還可以執行
但如果想要利用勾選資料的方 ...
Jared 發表於 2015-6-8 16:44

看起來自動篩選同一欄好像不能同時滿足超過一個條件. (即不能在同一欄中同時顯示出來小華與小明)

所以我這裡採用逐列篩選,
未能同時滿足所有條件的列則將其隱藏,
留下的就是我們要的資料了.

也因為採用的是隱藏列的方式,
所以 "按鈕1" 位置要上移到 第 1 列 以免被隱藏而無法點選.

首先, 因應程式調整, 全域變數的宣告內容也做調整:
  1. Dim a, b, s, lRow
複製代碼
"篩選條件" 按鈕程式修改如下:
  1. Private Sub CommandButton1_Click() '篩選條件

  3. ActiveSheet.Rows.Hidden = False

  5. a = Test.ComboBox1.Value '季節
  6. b = Test.ComboBox2.Value '月份

  8. s = ""
  9. s = s & IIf(CheckBox1, CheckBox1.Caption & ",", "")
  10. s = s & IIf(CheckBox2, CheckBox2.Caption & ",", "")
  11. s = s & IIf(CheckBox3, CheckBox3.Caption & ",", "")
  12. s = s & IIf(CheckBox4, CheckBox4.Caption & ",", "")
  13. s = s & IIf(CheckBox5, CheckBox5.Caption & ",", "")
  14. s = s & IIf(CheckBox6, CheckBox6.Caption & ",", "")
  15. s = s & IIf(CheckBox7, CheckBox7.Caption & ",", "")
  16. s = s & IIf(CheckBox8, CheckBox8.Caption & ",", "")
  17. s = s & IIf(CheckBox9, CheckBox9.Caption & ",", "")
  18. s = s & IIf(CheckBox10, CheckBox10.Caption & ",", "")

  20. lRow = 2
  21. With ActiveSheet
  22.   While .Cells(lRow, 1) <> ""
  23.     If Not (.Cells(lRow, 1) = a And .Cells(lRow, 2) = b And _
  24.         InStr(1, s, .Cells(lRow, 3)) <> 0) Then .Rows(lRow).Hidden = True
  25.     lRow = lRow + 1
  26.   Wend
  27. End With
  28. End Sub
複製代碼
"清除內容" 按鈕程式中,
CheckBox 的值在此不能設為 "" 而應設為 False 或 true ,
另外既然篩選的條件已經被清除了,
篩選結果自然應該一併做還原.
故修改如下:
  1. Private Sub CommandButton2_Click() '清除內容
  2. Me.ComboBox1 = ""
  3. Me.ComboBox2 = ""
  4. Me.CheckBox1 = False
  5. Me.CheckBox2 = False
  6. Me.CheckBox3 = False
  7. Me.CheckBox4 = False
  8. Me.CheckBox5 = False
  9. Me.CheckBox6 = False
  10. Me.CheckBox7 = False
  11. Me.CheckBox8 = False
  12. Me.CheckBox9 = False
  13. Me.CheckBox10 = False
  14. ActiveSheet.Rows.Hidden = False
  15. End Sub
複製代碼
"展開" 按鈕程式也要跟著做調整:
  1. Private Sub CommandButton4_Click() '展開
  2.   ActiveSheet.Rows.Hidden = False
  3. End Sub
複製代碼
另外你的檔案  ComboBox2.List 內容並不能與 B 欄對應, (例如 : "一" 不能對應 "一月"),
同時可以考慮一併都賦與初值,
所以我做了以下的修改:
  1. Private Sub UserForm_Initialize()

  3.     With ComboBox1
  4.       .List = Array("Q1", "Q2", "Q3", "Q4") '季
  5.       .Value = "Q1"
  6.     End With
  7.     With ComboBox2
  8.       .List = Array("一", "二", "三") '月
  9.       .Value = "一"
  10.     End With
  11. End Sub
複製代碼
最後 Q1 不會有 "一","二","三" 以外的月份,
故可以在變更 ComboBox1 內容時一併把 ComboBox2 的選單調整好:
  1. Private Sub ComboBox1_Change()
  2.   Select Case ComboBox1
  3.   
  4.     Case "Q1"
  5.       ComboBox2.List = Array("一", "二", "三") '月
  6.    
  7.     Case "Q2"
  8.       ComboBox2.List = Array("四", "五", "六")  '月
  9.    
  10.     Case "Q3"
  11.       ComboBox2.List = Array("七", "八", "九") '月
  12.    
  13.     Case "Q4"
  14.       ComboBox2.List = Array("十", "十一", "十二")  '月
  15.   End Select
  16.   
  17. End Sub
複製代碼
當然, 程式還有簡化的空間,
且 CheckBox 也可以考慮做物件陣列,
不過因為程式並不複雜,
所以這部份我就先不考慮了.
測試-a.zip (18.13 KB)

TOP

Jared

帖子
103 
主題
30 
精華
0 
積分
139 
點名
0  
作業系統
wondows XP 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
彰化 
註冊時間
2013-2-21 
最後登錄
2015-6-26 
3#
發表於 2015-6-26 09:30 | 只看該作者
回復 2# luhpro


    謝謝大大 :)
Jared

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題