Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57830 / 76734

←次へ　｜　前へ→


	【23638】オートフィルターの処理でエラーがでる

かおりん - 05/3/31(木) 18:32 -


	引用なし

	パスワード

オートフィルターの処理についての質問です｡
以下のように､セルに入力された条件でオートフィルターをかけたいのですが､
「実行時エラー'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

以上宜しくお願いします｡

0 hits

▼

【23638】オートフィルターの処理でエラーがでる かおりん 05/3/31(木) 18:32

≪