Excel VBA質問箱 IV

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

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


57834 / 76738 ←次へ | 前へ→

【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 質問
【23642】Re:オートフィルターの処理でエラーがでる IROC 05/3/31(木) 20:51 回答
【23643】Re:オートフィルターの処理でエラーがでる ponpon 05/3/31(木) 21:10 発言
【23650】Re:作り直して見ましたがエラーがでます。 かおりん 05/4/1(金) 10:03 発言
【23685】Re:作り直して見ましたがエラーがでます。 ponpon 05/4/1(金) 20:33 発言
【23790】Re:作り直して見ましたがエラーがでます。 かおりん 05/4/4(月) 16:33 お礼

57834 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free