熱門Ptt文章

[爆卦]VBA Select Case 多條件是什麼？優點缺點精華區懶人包

為什麼這篇VBA Select Case 多條件鄉民發文收入到精華區：因為在VBA Select Case 多條件這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者home0303 (Blue night)看板Office標題[算表] Excel VBA多重模...

作者home0303 (Blue night)
看板Office
標題[算表] Excel VBA多重模糊篩選
時間Tue Nov 15 15:45:32 2016

軟體:EXCEL

版本:2010

想設計一種可以一次進行多條件的模糊篩選功能

編了以下的碼

Sub 多重模糊篩選()
MM = InputBox("條件有幾個?")
ActiveCell.EntireColumn.Select
Select Case MM
Case 1
MM1 = InputBox("條件一")
Selection.AutoFilter Field:=1, Criteria1:="*" & MM1 & "*"
Case 2
MM1 = InputBox("條件一")
MM2 = InputBox("條件二")
Selection.AutoFilter Field:=1, Criteria1:="*" & MM1 & "*",
Operator:=xlOr, Criteria2:="*" & MM2 & "*"
Case 3
MM1 = InputBox("條件一")
MM2 = InputBox("條件二")
MM3 = InputBox("條件三")
Selection.AutoFilter Field:=1, Criteria1:="=*" & MM1 & "*",
Operator:=xlOr, Criteria2:="=*" & MM2 & "*", Operator:=xlOr, Criteria3:="=*"
& MM3 & "*"
Case 4
MM1 = InputBox("條件一")
MM2 = InputBox("條件二")
MM3 = InputBox("條件三")
MM4 = InputBox("條件四")
Selection.AutoFilter Field:=1, Criteria1:="*" & MM1 & "*",
Operator:=xlOr, Criteria2:="*" & MM2 & "*", Operator:=xlOr, Criteria3:="*" &
MM3 & "*", Operator:=xlOr, Criteria4:="*" & MM4 & "*"
Case 5
MM1 = InputBox("條件一")
MM2 = InputBox("條件二")
MM3 = InputBox("條件三")
MM4 = InputBox("條件四")
MM5 = InputBox("條件五")
Selection.AutoFilter Field:=1, Criteria1:="*" & MM1 & "*",
Operator:=xlOr, Criteria2:="*" & MM2 & "*", Operator:=xlOr, Criteria3:="*" &
MM3 & "*", Operator:=xlOr, Criteria4:="*" & MM4 & "*", Operator:=xlOr,
Criteria5:="*" & MM5 & "*"
Case 6
MM1 = InputBox("條件一")
MM2 = InputBox("條件二")
MM3 = InputBox("條件三")
MM4 = InputBox("條件四")
MM5 = InputBox("條件五")
MM6 = InputBox("條件六")
Selection.AutoFilter Field:=1, Criteria1:="*" & MM1 & "*",
Operator:=xlOr, Criteria2:="*" & MM2 & "*", Operator:=xlOr, Criteria3:="*" &
MM3 & "*", Operator:=xlOr, Criteria4:="*" & MM4 & "*", Operator:=xlOr,
Criteria5:="*" & MM5 & "*", Operator:=xlOr, Criteria6:="*" & MM6 & "*"
End Select
End Sub


目前暫定條件在6個以內 由使用者自己決定

但這如果條件3個以上就錯誤失敗了

請問能做怎樣的修正讓他運作嗎

謝謝


--



--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.136.230.175
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1479195935.A.014.html
→ soyoso: 如可用輔助欄的話，改以range.advancedfilter試試 11/15 16:21
→ home0303: 懂了 謝謝S大 11/15 22:01

你可能也想看看

搜尋相關網站