Excel VBA質問箱 IV

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

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


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

【10196】初心者です。教えてください miyake 04/1/11(日) 15:33 発言
【10197】Re:オートフィルタによる日付の抽出方法 かみちゃん 04/1/11(日) 16:07 回答
【10198】Re:オートフィルタによる日付の抽出方法 miyake 04/1/11(日) 17:32 お礼
【10199】Re:オートフィルタによる日付の抽出方法 かみちゃん 04/1/11(日) 18:17 回答

【10196】初心者です。教えてください
発言  miyake  - 04/1/11(日) 15:33 -

引用なし
パスワード
   VBAでプログラムに挑戦中の初心者ですが、うまくいかないことがあり困っています。
たとえば、sheet1のA列に日付が入っている一覧表があるとします。(例 2004/1/11)

オートフィルタでA列から日付を指定し、いつからいつまでと条件を指定し抽出する場合、

sheet1.AutoFilter field:=1, Criteria1:=?,Operator:=xlAnd,Criteria2:=?,

ここのCriteriaの指定方法について、日付の場合どのようにすればいいのでしょうか。
いろいろと試しましたが、うまく抽出できません。

【10197】Re:オートフィルタによる日付の抽出方法
回答  かみちゃん  - 04/1/11(日) 16:07 -

引用なし
パスワード
   こんちには。かみちゃんです。

>オートフィルタでA列から日付を指定し、いつからいつまでと条件を指定し抽出する場合、
>
>sheet1.AutoFilter field:=1, Criteria1:=?,Operator:=xlAnd,Criteria2:=?,
>
>ここのCriteriaの指定方法について、日付の場合どのようにすればいいのでしょうか。

「マクロの記録」で記録すると、わかると思いますが・・・
たとえば、2004/1/1から2004/1/31までを抽出する場合は、次のようにします。
sheet1.AutoFilter field:=1, Criteria1:=">=2004/1/1", Operator:=xlAnd, Criteria2:="<=2004/1/31"

【10198】Re:オートフィルタによる日付の抽出方法
お礼  miyake  - 04/1/11(日) 17:32 -

引用なし
パスワード
   ご回答ありがとうございます。

期間を指定し抽出した場合、抽出することができました。

もう一つ質問ですが、たとえば1月11日、1日だけを抽出する場合、
Criteria1:="=2004/1/11"
にしても抽出できませんでした。
ほかに、やり方があるのでしょうか。

【10199】Re:オートフィルタによる日付の抽出方法
回答  かみちゃん  - 04/1/11(日) 18:17 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>もう一つ質問ですが、たとえば1月11日、1日だけを抽出する場合、
>Criteria1:="=2004/1/11"
>にしても抽出できませんでした。

Criteria1:=">=2004/1/1", Operator:=xlAnd, Criteria2:="<=2004/1/1"
または、
Criteria1:=#1/11/2004#
としてください。

#m/d/yyyy# については、日付リテラルに基づく表現でして、Excel2002で確認しています。
たしか、Excel2000では使えなかったかもしれません。
日付リテラルについては、次のURLを参照してください。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vblr7/html/vadatDate.asp

しかし、私でしたら、期間抽出する場合と特定抽出(期間開始日と期間終了日が同一)する場合があるのであれば、
Criteria1:=">=2004/1/1", Operator:=xlAnd, Criteria2:="<=2004/1/1"
の方法がいいかと思います。バージョンにも依存しないでしょうし。

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