|
お世話になります。
koukaです。
疑問があります。
Dim 日付 As Date
日付 = Now() - 60
Sheets("明細").Select
Selection.AutoFilter Field:=1, Criteria1:="<" & 日付 & "", Operator:=xlAnd
上記のようにシステム日付-60日を変数『日付』に格納した後、
明細シートA列に日付書式で『2006/07/25』とかはいっている所を、
オートフィルタで単純に2ヶ月前の明細を抜き出して、
削除しようとしたのですが、
WIN2000、EXCEL2000だとうまくいくのですが、
WIN95、EXCEL2000だと変数に格納する所までは日付が合っているのですが、
オートフィルタで抜き出す日付が、2022年とかになってしまい、
うまく機能しません。
何が原因なのでしょうか?
OSのせい??
気持ちが悪いので原因がわかる方がいましたら、教えてください。
とりあえず、
Dim 日付 As String
日付 = Format(Now() - 60, "YYYY/MM/DD")
と、いうふうにFORMATを使って、検索文字をそろえてあげれば、
うまくいったので、これで逃げましたが・・・。
|
|