Excel VBA質問箱 IV

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

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


6846 / 13644 ツリー ←次へ | 前へ→

【42732】NOWを変数に入れた後・・・ kouka 06/9/20(水) 11:32 質問[未読]
【42743】Re:NOWを変数に入れた後・・・ Jaka 06/9/20(水) 13:51 発言[未読]
【42767】Re:NOWを変数に入れた後・・・ kouka 06/9/21(木) 11:19 お礼[未読]

【42732】NOWを変数に入れた後・・・
質問  kouka  - 06/9/20(水) 11:32 -

引用なし
パスワード
   お世話になります。
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を使って、検索文字をそろえてあげれば、
うまくいったので、これで逃げましたが・・・。

【42743】Re:NOWを変数に入れた後・・・
発言  Jaka  - 06/9/20(水) 13:51 -

引用なし
パスワード
   >とりあえず、
>Dim 日付 As String
>
>日付 = Format(Now() - 60, "YYYY/MM/DD")
>と、いうふうにFORMATを使って、検索文字をそろえてあげれば、
>うまくいったので、これで逃げましたが・・・。
これが正解だと思いますが...。

Dim 日付 As Date が悪いんだと思います。
ここの下の方みたいなこともあるし。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=28381;id=excel

【42767】Re:NOWを変数に入れた後・・・
お礼  kouka  - 06/9/21(木) 11:19 -

引用なし
パスワード
   こんにちは、Jakaさん。
お世話になります。

>>Dim 日付 As String
>>
>>日付 = Format(Now() - 60, "YYYY/MM/DD")
>>と、いうふうにFORMATを使って、検索文字をそろえてあげれば、
>>うまくいったので、これで逃げましたが・・・。
>これが正解だと思いますが...。
ですよね・・・。
本来は略してちゃダメですよね。

>Dim 日付 As Date が悪いんだと思います。
>ここの下の方みたいなこともあるし。
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=28381;id=excel
やっぱり、古いOSだとダメなのですかね・・・。
どっちにしても、勉強になりました。

ありがとうございました。

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