可以利用VBA進行多條件篩選嗎? VBA條件篩選

Jared

想請問大大
雖然Office 2007有內建篩選功能
但如果我想要將篩選功能寫在一個表單裡面
可以一次進行多條件篩選資料嗎?(如圖)

下載 (91.63 KB)

2013-3-28 16:43

因為目前我只有寫一次輸入單筆資料以性名為搜尋目標
程式運行結果如圖

下載 (21.9 KB)

2013-3-28 16:47

但如果我想要將搜尋條件為兩筆以上(模糊搜尋)
甚至到完全符合
將篩選結果顯示在原來的表單(未符合條件的資料隱藏(折疊起來))
這樣的寫法就沒辦法了:Q
目前程式寫法如下(順帶附上表單)
測試檔(篩選條件).zip (53.77 KB)

下載次數: 68

2013-3-28 16:49

希望有大大能解決我的疑惑>"<

1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
2. 
   
3. With Sheet2
   
4. 
   
5. Set a = .Columns("A").Find(TextBox1.Text, lookat:=xlWhole, LookIn:=xlValues)
   
6. If a Is Nothing Then
   
7. MsgBox "查無此，請確認後再輸入！"
   
8. 
   
9. Exit Sub
   
10. End If
    
11. 
    
12. ComboBox1.Value = a.Offset(, 1) '年記
    
13. ComboBox2.Value = a.Offset(, 2) '身高
    
14. ComboBox3.Value = a.Offset(, 3) '體重
    
15. TextBox2.Value = a.Offset(, 4) '住址
    
16. 
    
17. 
    
18. End With
    
19. End Sub
    
20. Private Sub CommandButton2_Click()
    
21. Me.ComboBox1 = ""
    
22. Me.ComboBox2 = ""
    
23. Me.ComboBox3 = ""
    
24. Me.TextBox1 = ""
    
25. Me.TextBox2 = ""
    
26. End Sub
    
27. 
    
28. Private Sub CommandButton3_Click()
    
29. Test5.Hide
    
30. End Sub
    
31. 
    
32. Private Sub UserForm_Initialize() '一開始的設定
    
33. Dim i
    
34. For i = 10 To 18
    
35.     ComboBox1.AddItem i
    
36. Next
    
37. 
    
38. For i = 120 To 160
    
39.     ComboBox2.AddItem i
    
40. Next
    
41. 
    
42. For i = 30 To 70
    
43.     ComboBox3.AddItem i
    
44. Next
    
45. End Sub

複製代碼

Jared

回復 1# Jared


發現利用陸製巨集的方式
可以一次篩選一個條件
那如果是要兩個以上
要怎麼設定呢?

1. Private Sub CommandButton4_Click() '篩選條件
   
2. Dim a, b, c, d, e
   
3. a = Test5.TextBox1.Text
   
4. b = Test5.ComboBox1.Value
   
5. c = Test5.ComboBox2.Value
   
6. d = Test5.ComboBox3.Value
   
7. e = Test5.TextBox2.Text
   
8. If a <> "" Then
   
9. ActiveSheet.Range("$A$1:$E$12").AutoFilter Field:=1, Criteria1:=a: Exit Sub
   
10. End If
    
11. 
    
12. If b <> "" Then
    
13. ActiveSheet.Range("$A$1:$E$12").AutoFilter Field:=2, Criteria1:=b: Exit Sub
    
14. End If
    
15. 
    
16. If c <> "" Then
    
17. ActiveSheet.Range("$A$1:$E$12").AutoFilter Field:=3, Criteria1:=c: Exit Sub
    
18. End If
    
19. 
    
20. If d <> "" Then
    
21. ActiveSheet.Range("$A$1:$E$12").AutoFilter Field:=4, Criteria1:=d: Exit Sub
    
22. End If
    
23. 
    
24. If e <> "" Then
    
25. ActiveSheet.Range("$A$1:$E$12").AutoFilter Field:=5, Criteria1:=e: Exit Sub
    
26. End If
    
27. End Sub

複製代碼

GBKEE

回復 2# Jared

1. Option Explicit
   
2. Private Sub CommandButton4_Click() '篩選條件
   
3. Dim a, b, c, d, e
   
4. a = Test5.TextBox1.Text
   
5. b = Test5.ComboBox1.Value
   
6. c = Test5.ComboBox2.Value
   
7. d = Test5.ComboBox3.Value
   
8. e = Test5.TextBox2.Text
   
9. With ActiveSheet.Range("$A$1:$E$12")
   
10.     .Parent.AutoFilterMode = False   '顯示全部資料 ->新的 多重篩選 才會確.
    
11.     '多重篩選  ..........
    
12.     If a <> "" Then .AutoFilter Field:=1, Criteria1:=a
    
13.     If b <> "" Then .AutoFilter Field:=2, Criteria1:=b
    
14.     If c <> "" Then .AutoFilter Field:=3, Criteria1:=c
    
15.     If d <> "" Then .AutoFilter Field:=4, Criteria1:=d
    
16.     If e <> "" Then .AutoFilter Field:=5, Criteria1:=e
    
17.     '多重篩選  ..........
    
18. End With
    
19. End Sub

複製代碼

Jared

回復 3# GBKEE


感謝大大解除了我的疑惑
原本的程式碼是寫成獨立式

1. If a <> "" Then
   
2. ActiveSheet.Range("$A$1:$E$12").AutoFilter Field:=1, Criteria1:=a: Exit Sub
   
3. End If

複製代碼

後來有修改成

1. Private Sub CommandButton4_Click()
   
2. Dim a, b, c, d, e
   
3. a = Test5.TextBox1.Text
   
4. b = Test5.ComboBox1.Value
   
5. c = Test5.ComboBox2.Value
   
6. d = Test5.ComboBox3.Value
   
7. e = Test5.TextBox2.Text
   
8. 
   
9. If a <> "" Or b <> "" Or c <> "" Or d <> "" Or e <> "" Then
   
10. With Sheet2.Range("$A$1:$E$12")
    
11. .AutoFilter Field:=1, Criteria1:=a
    
12. .AutoFilter Field:=2, Criteria1:=b
    
13. .AutoFilter Field:=3, Criteria1:=c
    
14. .AutoFilter Field:=4, Criteria1:=d
    
15. .AutoFilter Field:=5, Criteria1:=e
    
16. 
    
17. End With
    
18. End If
    
19. End Sub

複製代碼

但卻變成要每個條件都符合才會篩選出東西>"<
看了大大的解答
原來是要分開進行

看來我又學到一課了^口^
非常感謝！！

jeffrey628litw

2位大大，小弟剛在學習VBA，可以將您們討論的結果，檔案上傳供我們下載嗎?感恩

Jared

回復 5# jeffrey628litw


你可以把樓頂問題的測試檔下載下來
在把程式碼替換掉就可以了
介面上應該是沒什麼改到
只有在程式碼的部分

bsofsoratest

謝謝分享。

Qektyyrwp

回復 4# Jared


   a = Test5.TextBox1.Text
b = Test5.ComboBox1.Value
c = Test5.ComboBox2.Value
d = Test5.ComboBox3.Value。大大請問test5。這個地方是怎麼設計的。小弟權限不足不能下載來看。抱歉

Qektyyrwp

回復 3# GBKEE


    發現這是幾年前的帖子了。換問問版主。
a = Test5.TextBox1.Text
b = Test5.ComboBox1.Value
c = Test5.ComboBox2.Value
d = Test5.ComboBox3.Value。大大請問test5。這個地方是怎麼設計的。小弟權限不足不能下載來看。抱歉

Michelle-W

回復 3# GBKEE

版主大大您好，
我的多條件篩選功能總是失敗...可否協助幫忙看看哪邊錯了
而且應該如何將篩選完的資料貼到介面上(依據不同欄的名稱)
先謝謝您了!
疑問..rar (34.68 KB)

下載次數: 1

2017-7-20 09:13