Excel VBA質問箱 IV

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

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


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

【22650】日付検索について ねこ 05/2/25(金) 14:24 質問[未読]
【22651】Re:日付検索について G-Luck 05/2/25(金) 14:52 回答[未読]
【22652】Re:日付検索について Jaka 05/2/25(金) 14:58 回答[未読]

【22650】日付検索について
質問  ねこ  - 05/2/25(金) 14:24 -

引用なし
パスワード
   はじめまして。マクロについては初心者です。売掛管理をしているのですが、
月末に処理するとき、○月△日〜□月×日までに売り上げたものだけを表示し、印刷したいと思っているのですが、どうやったらよいでしょうか?
オートフィルタとマクロを組み合わせてできれば、その方法をどなたか教えてください。お願いいたします。

【22651】Re:日付検索について
回答  G-Luck  - 05/2/25(金) 14:52 -

引用なし
パスワード
   ▼ねこ さん:
>はじめまして。マクロについては初心者です。売掛管理をしているのですが、
>月末に処理するとき、○月△日〜□月×日までに売り上げたものだけを表示し、印刷したいと思っているのですが、どうやったらよいでしょうか?
>オートフィルタとマクロを組み合わせてできれば、その方法をどなたか教えてください。お願いいたします。

G-Luckといいます。
作業セルを設けて、
そのセルでオートフィルタをかけてはいかがですか?
作業セルに
 =If(and(開始日<売上日,売上日<=締め日),"表示","非表示")
みたいな感じで

【22652】Re:日付検索について
回答  Jaka  - 05/2/25(金) 14:58 -

引用なし
パスワード
   こんにちは。

日付をオートフィルタする時は、1日でも始めと終わりを指定しないと出来ません。
今回の場合、何日〜何日までとしているので
Date1に始め
Date2に終わりの日付を入れれば良いです。

Date1 = "2005/1/8" '←1日だけの指定でも
Date2 = "2005/1/8" '←2つ指定する。
Range("A1:A23").AutoFilter Field:=1, Criteria1:=">=" & CDbl(CDate(Date1)), _
   Operator:=xlAnd, Criteria2:="<=" & CDbl(CDate(Date2))

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