オートフィルターの結果でIF関数を使う

オートフィルターで抽出した結果からIF関数を使い他の列にさらにオートフィルターをかけたい。

『もし18列目に”W"がある場合は、7列目のフィルターは"2","3","4","5"でかけて
そうでない場合は"2","3","5"でかける。
もし7列目に"4"がある場合は、8列目のフィルターは"ABC"を含まないものにかけて
そうでない場合はなにもしない。』
という内容を追加したら動かなくなりました。

Sub AutoFilter()
  Dim Ws As Worksheet
　　For Each Ws In Worksheets
　　　　Ws.Activate

    With ActiveSheet
        'オートフィルター設定済を考慮して
        '一旦オートフィルターを解除
        .AutoFilterMode = False

    Rows("2:2").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$CP$718").AutoFilter Field:=18, Criteria1:=Array( _
        "A", "M", "W"), Operator:=xlFilterValues
    ActiveWindow.SmallScroll Down:=-12
    ActiveSheet.Range("$A$2:$CP$718").AutoFilter Field:=15, Criteria1:="3"
    ActiveWindow.SmallScroll Down:=-12
    If Columns(18)="W" Then
    	ActiveSheet.Range("$A$2:$CP$718").AutoFilter Field:=7, Criteria1:=Array("2" _
        , "3", "4", "5"), Operator:=xlFilterValues
    Else ActiveSheet.Range("$A$2:$CP$718").AutoFilter Field:=7, Criteria1:=Array("2" _
        , "3", "5"), Operator:=xlFilterValues
    End If
    If Columns(7)="4" Then
    	ActiveSheet.Range("$A$2:$CP$718").AutoFilter Field:=8, Criteria1:="<>*ABC*", _
	Operator:=xlFilterValues
    End If
   End With
 Next Ws
End Sub```

ExcelVBAer

2018/05/22 07:41

コードが見難いです。<code>ボタンを使ってコードを記載してください。

ExcelVBAer

2018/05/22 09:46

ご提示のコードは見やすくなってますか？　それとも、元のコードがご提示通りのコードなのでしょうか？

ayapre

2018/05/23 00:11

投稿時<code>ボタンを使って記入したほうが見にくく思ったので使わなかったのですが、他の人には見やすくなるのかなと<code>ボタンを押して、そこに記入してみました。記入するところではキレイに改行できているのですが、プレビューは改行されてません・・・

行動規範の内容に同意します

回答2件

自己解決

いろいろ試したけどIFがうまく使えなかったので
IFは使わずにマクロの記録でオートフィルタをかけました。

Sub
1  Dim Ws As Worksheet
2　　For Each Ws In Worksheets
3　　　　Ws.Activate
4
5    With ActiveSheet
6        'オートフィルター設定済を考慮して
7        '一旦オートフィルターを解除
8        .AutoFilterMode = False
9
10        Rows("2:2").Select
11    Selection.AutoFilter
12    ActiveSheet.Range("$A$2:$CP$18059").AutoFilter Field:=18, Criteria1:=Array( _
13        "A", "M", "W"), Operator:=xlFilterValues
14    ActiveWindow.SmallScroll Down:=-18
15    ActiveSheet.Range("$A$2:$CP$18059").AutoFilter Field:=15, Criteria1:="3"
16    ActiveWindow.SmallScroll Down:=-6
17    ActiveSheet.Range("$A$2:$CP$18059").AutoFilter Field:=7, Criteria1:=Array( _
18        "2", "3", "4", "5"), Operator:=xlFilterValues
19    ActiveWindow.SmallScroll Down:=-12
20    ActiveSheet.Range("$A$2:$CP$18059").AutoFilter Field:=9, Criteria1:= _
21        "<>*ABC*", Operator:=xlAnd
22   End With
23 Next Ws
24End Sub
25