12
返回列表 上一主題 發帖

可以利用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

Michelle-W

帖子
63 
主題
13 
精華
0 
積分
122 
點名
0  
作業系統
Windows 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2015-4-22 
最後登錄
2019-7-19 
18#
發表於 2017-7-24 18:02 | 只看該作者
回復 17# GBKEE

謝謝版主大大一直指導
我比較少接觸這類程式碼，需要花點時間消化
非常感謝^^

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
17#
發表於 2017-7-24 08:55 | 只看該作者
本帖最後由 GBKEE 於 2017-7-24 09:01 編輯

回復 16# Michelle-W
試試看

選擇篩選.zip (87.05 KB)
  1. Do
  2.             If .Cells(R, i) <> "" Then  'i 為欄的位置
  3.                 d(.Cells(R, i).Value) = ""
  4.             Else
  5.                 d("=") = ""
  6.             End If
  7.             R = R + 1
  8.         Loop Until .Cells(R - 1, i).End(xlDown).Row = Rows.Count
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

Michelle-W

帖子
63 
主題
13 
精華
0 
積分
122 
點名
0  
作業系統
Windows 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2015-4-22 
最後登錄
2019-7-19 
16#
發表於 2017-7-21 17:19 | 只看該作者
回復 15# GBKEE


真的很感謝版主，還修改成能選填時能即時顯示
但目前我的資料量比較多，會稍微卡卡的...(
還是想說選擇什麼，再執行會好一點
如果以昨晚您回復的UserForm_Initialize寫法，也是可以加"="來做Listbox的讀取嗎?(能讀取空格以後的)

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
15#
發表於 2017-7-21 15:46 | 只看該作者
本帖最後由 GBKEE 於 2017-7-21 15:48 編輯

回復 14# Michelle-W
[想說迴圈可以加一個條件   B欄<>""&A欄<>""] 好像沒有必要吧

[若是剛好有空格的話，空格以下的文字並不會顯示於ListBox] 已修改了,篩選 空格 需用 "="

疑問.zip (28.05 KB)
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

Michelle-W

帖子
63 
主題
13 
精華
0 
積分
122 
點名
0  
作業系統
Windows 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2015-4-22 
最後登錄
2019-7-19 
14#
發表於 2017-7-21 11:14 | 只看該作者
回復 12# GBKEE


   版主您好   
   資料方面A欄肯定一定有資料，BCD欄就不一定了
   想說迴圈可以加一個條件   B欄<>""&A欄<>""
   我嘗試修改，還是改不出來...
   若您有空，可以再麻煩您指點一下嗎? 謝謝

TOP

Michelle-W

帖子
63 
主題
13 
精華
0 
積分
122 
點名
0  
作業系統
Windows 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2015-4-22 
最後登錄
2019-7-19 
13#
發表於 2017-7-21 10:10 | 只看該作者
回復 12# GBKEE


  謝謝版主大大的指點
  另外有個問題想請教您，若是剛好有空格的話，空格以下的文字並不會顯示於ListBox
  請問應該如何調整code呀?

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
12#
發表於 2017-7-20 20:35 | 只看該作者
回復 11# Michelle-W
試試看


疑問.zip (937.33 KB)
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

Michelle-W

帖子
63 
主題
13 
精華
0 
積分
122 
點名
0  
作業系統
Windows 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2015-4-22 
最後登錄
2019-7-19 
11#
發表於 2017-7-20 09:22 | 只看該作者
本帖最後由 Michelle-W 於 2017-7-20 09:23 編輯

回復 3# GBKEE


不好意思..這個才是正確檔案(上個回覆已超過時間，無法編輯...
麻煩了，謝謝
疑問-正確檔.rar (34.91 KB)

TOP

Michelle-W

帖子
63 
主題
13 
精華
0 
積分
122 
點名
0  
作業系統
Windows 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2015-4-22 
最後登錄
2019-7-19 
10#
發表於 2017-7-20 09:03 | 只看該作者
本帖最後由 Michelle-W 於 2017-7-20 09:13 編輯

回復 3# GBKEE

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

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
12
返回列表 上一主題