オートフィルターでユーザー定義を曖昧検索

色々試したのですができなかったので質問させてください。

エクセルのオートフィルターで月を条件にフィルターをかけたいのです

ユーザー定義の書式でdd.mmm.yyyyと入れているので
でたとえば「Aug」を「含む」でフィルターをかけたいのです。
フル指定以外でできないものでしょうか？

よろしくお願いします。

Sub Filter()
'dd.mmm.yyyy
Cells(1, 1).AutoFilter Field:=1, Criteria1:="=*Aug*", Operator:=xlAnd
End Sub

No.2 ベストアンサー 回答者： hige_082 回答日時： 2009/09/03 23:48

Excelは日付をシリアル値で管理しているので文字列では希望の結果は得られない

したがって
＞たとえば「Aug」を「含む」でフィルターをかけたいのです。
は無理
それでもやりたいのであれば、日付をすべて文字列で入力しなおすか
作業列を設けてTEXT関数で文字列に変更すれば可能

＞Cells(1, 1).AutoFilter Field:=1, Criteria1:="=*Aug*", Operator:=xlAnd
を
Cells(1, 1).AutoFilter Field:=1, Criteria1:=">=2009/8/1", Operator:=xlAnd, Criteria2:="<=2009/8/31"
に変更
日付部分（">=2009/8/1"）を
">=1/Aug/2009"
と変更しても
">=40026"
に変更しても結果は同じ

参考までに

この回答へのお礼

重要なヒントをありがとうございました
おかげで満足のできるものになりました。

お礼日時：2009/09/22 00:25

No.1 回答者： hana-hana3 回答日時： 2009/09/03 23:41

適当な作業列に”Aug”を計算する式を設定してフィルターを設定して下さい。