|
オートフィルターの処理についての質問です。
以下のように、セルに入力された条件でオートフィルターをかけたいのですが、
「実行時エラー'1004'
RangeクラスのAutoFilterメゾットが失敗しました。」と表示されます。
いろいろ試したのですが、うまくいく方法がありますか?
Sub 並び替え()
'
'選択したセルが0ならば、オートフィルターですべて表示させる
' 0で無いならば、選択したセルの条件でオートフィルターをかける。
'
Selection.AutoFilter
Rows("6:6").Select
Selection.AutoFilter
If [E2] = 0 Then
Selection.AutoFilter Field:=5
Else
Selection.AutoFilter Field:=5, Criteria1:=[E2]
End If
If [G2] = 0 Then
Selection.AutoFilter Field:=7
Else
Selection.AutoFilter Field:=7, Criteria1:=[G2]
End If
If [Q2] = 0 Then
Selection.AutoFilter Field:=17
Else
Selection.AutoFilter Field:=17, Criteria1:=[Q2]
End If
If [m2] = 0 Then
Selection.AutoFilter Field:=13
Else
Selection.AutoFilter Field:=13, Criteria1:=[m2]
End If
[f7].Select
End Sub
以上宜しくお願いします。
|
|