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

質問

エクセルのマクロ記録でオートフィルター機能を記録したのですが
フィルターのボタンを押して各項目を選択するのに
（すべて）
（トップテン）
（オプション）
（空白セル）
（空白以外のセル）があるのですが

（空白セル）を選択すると　, Criteria1:"="
（空白以外のセル）だと　, Criteria1:"<>"
のようにマクロ記録されます

（すべて）を選択した場合　, Criteria1:が記録されないのですが

これをあえて構文として書くと、どのようになるのでしょう
他のマクロで引用したいので困っています
よろしくお願いいたします

回答No.1

HERO TKS（@HERO_TKS） · ベストアンサー

With Sheets("sheet1").Range("B5:O1000")
.AutoFilter Field:=1, Criteria1:="<>"
End With
こんな感じで記録されているのかと思いますが

Sheets("データ入力").Range("B5:O1000").AutoFilter
と記述すればいいかと思います。
ＶＢＡをなさるなら専門の所に聞く方がよろしいかと

参考URL：

http://www.fuji.ne.jp/~excelyou/exrounge.htm

お礼

マクロを記述することがあまり無いので
訳の分からないことを質問してしまいました

参考URLでもう少し勉強します
ありがとうございました

回答No.2

zap35

＞これをあえて構文として書くと、どのようになるのでしょう
意味が分かりません。マクロでどのような動作をさせたいか書いていただく方が分かると思います。

シート内でオートフィルタが設定されているとき全列のオートフィルタを「全て表示」にしたいなら
ActiveSheet.AutoFilterMode　が　True　のとき
ActiveSheet.AutoFilter.Filters.Count　の数だけ
ActiveSheet.AutoFilter Field:=ｎ　を繰り返す（ｎはfield番号）
のような方法をとりますが…

お礼

自分のエクセルシートをどのように分かりやすく
説明するかに腐心して意味不明なことを書いてしまいました

もう少し勉強してから質問いたします
貴重な時間を無駄にしてしまったようで申し訳ございません

ありがとうございました