返回列表 上一主題 發帖

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

Jared

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

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

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


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


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

希望有大大能解決我的疑惑>"<
  1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

  3. With Sheet2

  5. Set a = .Columns("A").Find(TextBox1.Text, lookat:=xlWhole, LookIn:=xlValues)
  6. If a Is Nothing Then
  7. MsgBox "查無此，請確認後再輸入！"

  9. Exit Sub
  10. End If

  12. ComboBox1.Value = a.Offset(, 1) '年記
  13. ComboBox2.Value = a.Offset(, 2) '身高
  14. ComboBox3.Value = a.Offset(, 3) '體重
  15. TextBox2.Value = a.Offset(, 4) '住址


  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

  28. Private Sub CommandButton3_Click()
  29. Test5.Hide
  30. End Sub

  32. Private Sub UserForm_Initialize() '一開始的設定
  33. Dim i
  34. For i = 10 To 18
  35.     ComboBox1.AddItem i
  36. Next

  38. For i = 120 To 160
  39.     ComboBox2.AddItem i
  40. Next

  42. For i = 30 To 70
  43.     ComboBox3.AddItem i
  44. Next
  45. End Sub
複製代碼
收藏 分享
Jared

Jared

帖子
103 
主題
30 
精華
0 
積分
139 
點名
0  
作業系統
wondows XP 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
彰化 
註冊時間
2013-2-21 
最後登錄
2015-6-26 
2#
發表於 2013-3-29 13:16 | 顯示全部帖子
回復 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

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

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

  20. If d <> "" Then
  21. ActiveSheet.Range("$A$1:$E$12").AutoFilter Field:=4, Criteria1:=d: Exit Sub
  22. End If

  24. If e <> "" Then
  25. ActiveSheet.Range("$A$1:$E$12").AutoFilter Field:=5, Criteria1:=e: Exit Sub
  26. End If
  27. End Sub
複製代碼
Jared

TOP

Jared

帖子
103 
主題
30 
精華
0 
積分
139 
點名
0  
作業系統
wondows XP 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
彰化 
註冊時間
2013-2-21 
最後登錄
2015-6-26 
3#
發表於 2013-3-29 14:03 | 顯示全部帖子
回復 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

  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

  17. End With
  18. End If
  19. End Sub
複製代碼
但卻變成要每個條件都符合才會篩選出東西>"<
看了大大的解答
原來是要分開進行

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

TOP

Jared

帖子
103 
主題
30 
精華
0 
積分
139 
點名
0  
作業系統
wondows XP 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
彰化 
註冊時間
2013-2-21 
最後登錄
2015-6-26 
4#
發表於 2014-7-18 14:59 | 顯示全部帖子
回復 5# jeffrey628litw


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

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題