想請問各位大大
我現在想要利用表單來篩選資料
下拉式選擇資料還可以執行
但如果想要利用勾選資料的方式
不曉得問題點在哪裡 ><
 測試.zip (18.57 KB)
- Dim a, b, c, d, e, f, g, h, i, j, k, l, m
- Private Sub CommandButton1_Click() '篩選條件
- a = Test.ComboBox1.Value '季節
- b = Test.ComboBox2.Value '月份
- d = CheckBox1.Value
- e = CheckBox2.Value
- f = CheckBox3.Value
- g = CheckBox4.Value
- h = CheckBox5.Value
- i = CheckBox6.Value
- j = CheckBox7.Value
- k = CheckBox8.Value
- l = CheckBox9.Value
- m = CheckBox10.Value
- c = Array(d, e, f, g, h, i, j, k, l, m)
- With ActiveSheet.Range("$A$1:$K$121")
- .Parent.AutoFilterMode = False '顯示全部資料 ->新的 多重篩選
-
- '多重篩選 ..........
- If a <> "" Then .AutoFilter Field:=1, Criteria1:=a
- If b <> "" Then .AutoFilter Field:=2, Criteria1:=b
- If c <> "" Then .AutoFilter Field:=3, Criteria1:=c, Operator:=xlFilterValues
- '多重篩選 ..........
- End With
- End Sub
- Private Sub CommandButton2_Click() '清除內容
- Me.ComboBox1 = ""
- Me.ComboBox2 = ""
- Me.CheckBox1 = ""
- Me.CheckBox2 = ""
- Me.CheckBox3 = ""
- Me.CheckBox4 = ""
- Me.CheckBox5 = ""
- Me.CheckBox6 = ""
- Me.CheckBox7 = ""
- Me.CheckBox8 = ""
- Me.CheckBox9 = ""
- Me.CheckBox10 = ""
- End Sub
- Private Sub CommandButton3_Click() '取消
- Test.Hide
- End Sub
- Private Sub CommandButton4_Click() '展開
- ActiveSheet.Range("$A$1:$K$121").AutoFilter Field:=1
- ActiveSheet.Range("$A$1:$K$121").AutoFilter Field:=2
- ActiveSheet.Range("$A$1:$K$121").AutoFilter Field:=3
- End Sub
- Private Sub UserForm_Initialize()
- ComboBox1.List = Array("Q1", "Q2", "Q3", "Q4") '季
-
- ComboBox2.List = Array("一月", "二月", "三月", "四月", "五月", "六月", "七月", "八月", "九月", "十月", "十一月", "十二月") '月
- End Sub
|
發表於 2015-6-8 16:44
| 
