Excel/フィルターで「を含む」で絞り込むマクロ(2条件)

    1. Sub まめ録絞り込み()
    2. Dim mbTitle As String
    3. Dim varAns As Variant
    4. Dim strFilter1 As String, strFilter2 As String
    5.  
    6. mbTitle = "まめ録絞り込み/" & ThisWorkbook.Name
    7. 'フィルターをオンにする。
    8. If ActiveSheet.AutoFilterMode = False Then Range("A1").AutoFilter
    9. 'クリアする。
    10. If ActiveSheet.AutoFilter.FilterMode Then ActiveSheet.ShowAllData
    11.  
    12. strFilter1 = InputBox("絞り込むキーワードを入力してください。", mbTitle)
    13. If strFilter1 = "" Then Exit Sub
    14. strFilter2 = InputBox("or 条件のキーワードを入力してください。", mbTitle)
    15.  
    16. If strFilter2 = "" Then
    17. Range("A1").CurrentRegion.AutoFilter Field:=7, Criteria1:="=*" & strFilter1 & "*"
    18. Else
    19. Range("A1").CurrentRegion.AutoFilter Field:=7, Criteria1:="=*" & strFilter1 & "*" _
    20. , Operator:=xlOr, Criteria2:="=*" & strFilter2 & "*"
    21. End If
    22.  
    23. End Sub
§オートフィルタの状況を調べる (Office TANAKA)より引用

Office TANAKA のコードを参考に、Excel2010で確認した。

  1. オートフィルタを設定する。
    • Range("A1").AutoFilter
  2. オートフィルタを解除するには、もう一度 AutoFilterメソッドを実行する。
    • Range("A1").AutoFilter
  3. オートフィルタが設定されているか否かの判定
    • ActiveSheet.AutoFilterMode が True であれば設定されている。
  4. G列を“Word”を含む で絞り込む
    • Range("A1").CurrentRegion.AutoFilter Field:=7, Criteria1:="=*Word*"
  5. G列を“Word”または“ワード”を含む で絞り込む
    • Range("A1").CurrentRegion.AutoFilter Field:=7, Criteria1:="=*Word*", Operator:=xlOr, Criteria2:="=*ワード*"
  6. オートフィルターで絞り込まれているか否かの判定
    • ActiveSheet.AutoFilter.FilterMode が True であれば絞り込まれている。
  7. 絞り込みを[クリア]する
    • ActiveSheet.ShowAllData