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