• ベストアンサー

エクセルのオートフィルターをマクロで記録

エクセルのマクロ記録でオートフィルター機能を記録したのですが フィルターのボタンを押して各項目を選択するのに (すべて) (トップテン) (オプション) (空白セル) (空白以外のセル)があるのですが (空白セル)を選択すると , Criteria1:"=" (空白以外のセル)だと , Criteria1:"<>" のようにマクロ記録されます (すべて)を選択した場合 , Criteria1:が記録されないのですが これをあえて構文として書くと、どのようになるのでしょう 他のマクロで引用したいので困っています よろしくお願いいたします

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

With Sheets("sheet1").Range("B5:O1000") .AutoFilter Field:=1, Criteria1:="<>" End With こんな感じで記録されているのかと思いますが Sheets("データ入力").Range("B5:O1000").AutoFilter と記述すればいいかと思います。 VBAをなさるなら専門の所に聞く方がよろしいかと

参考URL:
http://www.fuji.ne.jp/~excelyou/exrounge.htm
JOX
質問者

お礼

マクロを記述することがあまり無いので 訳の分からないことを質問してしまいました 参考URLでもう少し勉強します ありがとうございました

その他の回答 (1)

  • zap35
  • ベストアンサー率44% (1383/3079)
回答No.2

>これをあえて構文として書くと、どのようになるのでしょう 意味が分かりません。マクロでどのような動作をさせたいか書いていただく方が分かると思います。 シート内でオートフィルタが設定されているとき全列のオートフィルタを「全て表示」にしたいなら ActiveSheet.AutoFilterMode が True のとき ActiveSheet.AutoFilter.Filters.Count の数だけ ActiveSheet.AutoFilter Field:=n を繰り返す(nはfield番号) のような方法をとりますが…

JOX
質問者

お礼

自分のエクセルシートをどのように分かりやすく 説明するかに腐心して意味不明なことを書いてしまいました もう少し勉強してから質問いたします 貴重な時間を無駄にしてしまったようで申し訳ございません ありがとうございました

関連するQ&A