日付で抽出 VBA マクロ処理

日付でその日から１ヶ月の間の購入した図書データを
抽出したいのですが、マクロ初心者なのでなにも分かりません；；
オートフィルタではない方法でやらなければなりません；；

日付でデータを抽出するにはどの関数を使えばいいでしょうか。
また、その日から1ヶ月の間というとこに
さらにわからなくなります；；

また、抽出されたデータを違うシートへとコピー
しなければなりません；；

詳しく教えていただけると幸いです；；
よろしくお願いいたします；；

No.4 ベストアンサー 回答者： nayuta_lot 回答日時： 2011/07/07 21:37

こんにちは

＞オートフィルタではない方法でやらなければなりません；；

理由がわかりません。　個人的に使うのか、仕事で使うのかわかりませんが
もし、仕事で使うなら、このくらいの作業はマクロ化しないで手作業でやったほうが
いいですよ。

マクロ化すると便利である反面、手作業でもできるのに、内容がブラックボックス化
して仕事が属人化します。　大抵の人はマクロに拒絶反応を示します。


＞また、その日から1ヶ月の間というとこに

指定日から一カ月というのは、何日間のことでしょうか？
３０日を基準として、日数を求めるのであれば、ＤＡＹＳ３６０という関数があります。
３０日で割り切ってもよさそうですが・・

DAYS360（開始日,終了日,方式）　※１年を360（30×12）とする。

参考ＵＲＬ
　　↓↓↓
http://maglog.jp/excel/Article274649.html


開始日と終了日を指定すると、1年を360日、つまり１カ月を３０日として、その間の日数
を返してくれます。　方式はＵＲＬ参照。

この数値が、０以上３０以下であれば、フラグとして１をどこかの列にたてて、
オートフィルターで１の行のみ抽出して、コピペすれば簡単にできます。

以上

この回答へのお礼

詳しいご説明ありがとうございます；；
言葉足らずの点が多かったと思うのですが
詳しい説明を頂けたのでなんとか出来ました＾＾
ありがとうございます＾＾

お礼日時：2011/07/27 19:12

No.3 回答者： imogasi 回答日時： 2011/07/07 15:54

オートフィルターの操作をして、マクロの記録を採ってどういうコードになるかまず勉強すること。

またその操作は、フィルタオプションの設定などでもできる(マクロの記録が取れる）。
そして望みの日日を指定する方法を勉強して決める。
＞オートフィルタではない方法でやらなければなりません
なぜ。
ーーー
該当のセルを見つけるのには
FINDメソッド
残セル総当り判別
などあるが、初心者はFindFindNextは難しいと思う。
やるならWEBでも「エクセルVBA　Find」で照会すれば、沢山のコード例が出てくる。
（１）まずマクロの記録も採ってない
（２）WEB照会もしてない
（３）WEBの質問コーナーなど人に聞いてから考える？
ということが問題だ。
もっと試行して、問題点を絞ってここへ質問すれば、このコーナーの仕組みが生きてくる。

この回答へのお礼

すみません・・・

お礼日時：2011/07/27 19:13

No.2 回答者： keithin 回答日時： 2011/07/07 15:31

オートフィルタを使うのが一番簡単で高速ですが，何故使いたくないのですか。

でもま，次のような一番遅いマクロが「判りやすい」といって好まれる方が多いです。

Sub macro1()
　Dim d As Date, de As Date
　Dim i As Long

’所定の日付を指定する。具体的にどうしたいのか不明。
　d = DateSerial(2011, 7, 7)
　de = DateAdd("M", 1, d)

’日付はシート１のＡ列にあるとすると
　With Worksheets("Sheet1")
　For i = 2 To .Range("A65536").End(xlUp).Row
　　If d <= .Cells(i, "A") And .Cells(i, "A") <= de Then
　　.Cells(i, "A").EntireRow.Copy _
　　　Destination:=Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1)
　　End If
　Next i
　End With
End Sub



＃判らないなら勉強して下さい。後出し後出しで「あれもシタイこれもシタカッタ」の追加は無しで。
「日付の指定の仕方をこうしたい」とか「どこからどこにコピーしたい」とかいったテクニカルな（今のご質問で抜けている）部分は，判らない箇所を明確にして別途ご相談を投稿してみて下さい。

この回答へのお礼

言葉足らずですよね・・・
すみません；；

参考になりました＾＾
ありがとうございます＾＾

お礼日時：2011/07/27 19:14

No.1 回答者： mt2008 回答日時： 2011/07/07 14:54

フィルタオプションで、別シートに結果を抽出する操作をマクロ記録してみましょう。

この回答へのお礼

参考になりました＾＾
ありがとうございました＞＜

お礼日時：2011/07/27 19:14