Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12500 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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のＡ列に日付が入っている一覧表があるとします。（例 2004/1/11）

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

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

ここのCriteriaの指定方法について、日付の場合どのようにすればいいのでしょうか。
いろいろと試しましたが、うまく抽出できません。
【10197】Re:オートフィルタによる日付の抽出方法
回答  かみちゃん  - 04/1/11(日) 16:07 -
引用なし
パスワード
   こんちには。かみちゃんです。

>オートフィルタでＡ列から日付を指定し、いつからいつまでと条件を指定し抽出する場合、
>
>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 -
引用なし
パスワード
   ご回答ありがとうございます。

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

もう一つ質問ですが、たとえば１月１１日、１日だけを抽出する場合、
Criteria1:="=2004/1/11"
にしても抽出できませんでした。
ほかに、やり方があるのでしょうか。
【10199】Re:オートフィルタによる日付の抽出方法
回答  かみちゃん  - 04/1/11(日) 18:17 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

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

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

#m/d/yyyy# については、日付リテラルに基づく表現でして、Excel2002で確認しています。
たしか、Excel2000では使えなかったかもしれません。
日付リテラルについては、次のＵＲＬを参照してください。
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"
の方法がいいかと思います。バージョンにも依存しないでしょうし。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12500 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free