対象月を抽出して必要項目だけを表示させるには

質問

下図【ワークシート１】のようなリストから、対象月をワークシート２に抽出させたいのですが、ワークシート２は即印刷可能な形式とするため、対象月を単純に抽出するのではなく、必要な項目だけを抜き取りリスト化させるマクロを実現させたいと考えています。
　高度なマクロはまるっきり分からないので、ご教示願います。

　なお、対象月は下図例では２月分を抽出させるため「2009/2/？」と記載してありますが、抽出させるために入力する形式は拘りません。
（例えば「<2009/2/1,>2009/2/28」と言った表現でも結構です）

【ワークシート１】
　A列　　B列　　　C列　　　D列　　E列　　F列　　 ・・　 X列
1 Ａ店　商品ａ　2009/1/10　承認　山田　2009/1/11　・・　鈴木
2 Ｂ店　商品ｂ　2009/2/5　 否認　田中　　　　　　　 ・・　松田
3 Ｃ店　商品ｃ　2009/2/20　否認　鈴木　　　　　　 　・・　本田
4 Ｂ店　商品ａ　2009/2/25　承認　田中　2009/2/27　・・　山本
5 Ａ店　商品ｃ　2009/3/1　 承認　加藤 2009/3/2　 ・・　大石

【ワークシート２】上の任意の場所　　（例えばA1）
2009/2/?

【ワークシート２】出力例
　　A列　　B列　　C列　　D列　　　 E列
10 Ｂ店　商品ｂ　否認　　　　　　 松田
11 Ｃ店　商品ｃ　否認　　　　　　 本田
12 Ｂ店　商品ａ　承認　2009/2/27　山本

回答No.4

web2525 · ベストアンサー

No2の処理をそのままマクロ化したものです

Sub test()
dd = Worksheets("Sheet2").Range("A1") '抽出月データを変数ddに収納（月データはその月に該当するシリアル値で指定してくださ）
d = Year(dd) & Month(dd) '抽出月データを比較用のデータ文字列に変換
Set sc = Worksheets("Sheet2").Range("A10") '出力先のセル番地を変数scへ収納
Worksheets("Sheet1").Range("c1").Select
While ActiveCell <> "" 'シート2のC列データ最終行までの繰り返し
With ActiveCell
If Year(.Value) & Month(.Value) = d Then 'C列の日付が抽出月かどうかを確認
'----ここから----
sc.Offset(i, 0) = .Offset(0, -2)
sc.Offset(i, 1) = .Offset(0, -1)
sc.Offset(i, 2) = .Offset(0, 1)
sc.Offset(i, 3) = .Offset(0, 3)
sc.Offset(i, 4) = .Offset(0, 21)
'----ここまでで必要なデータを対象のセルに貼り付け----
i = i + 1 'データの貼り付け先を行を1つ下げるための処理
End If
.Offset(1).Activate 'C列の参照データ行を一つ下げる処理を
End With
Wend 'ループします
End Sub

お礼

回答ありがとうございます。
イメージどおりの動作が出来ました。

>sc.Offset(i, 0) = .Offset(0, -2)
マクロが良く分かっていないので、変なコメントを入れて
しまいましたが、これで必要な分だけ貼り付けができるの
で非常に便利です。

>dd = Worksheets("Sheet2").Range("A1")
シリアル値にしないとダメなんですね。
これは素人目に認識しにくいので、年と月を別セルに入力
させて、date関数で引っ張りだすようにしました。これな
らシリアル値を意識させる事なく使えそうです。。。。

なんとか、目的の処理を実行させることができました。
ありがとうございます。

回答No.3

tortue2009

回答番号：No.1の者です
≫ところで、これって正常に動作します？
はい、もちろん　試験で何度も出されましたから

データベースと別のシートに　抽出する時の方法
注意したのは、
［抽出範囲］の下に　データのないこと
これで　全列が　抽出されても　不必要な列を　削除するところまで
マクロに記録したらいいのかなと思いましたが

お礼

回答ありがとうございます。

>［抽出範囲］の下に　データのないこと
なるほど、余分なゴミが入っていました。
単純ミスでした。

回答No.2

web2525

マクロでなく関数式のみでも可能ですが、どうしてもマクロがご希望?

1.シート1のC列を上から取り出しシート２のA１セルと比較
（比較時に年と月のみを取り出して比較）
2.比較結果が同じであればその列のデータをシート2の該当セルに代入
3.シート1のC列のデータが””になるまで繰り返す

この流れをマクロで組めば良いだけですよね

そのままコードを載せても良いのですが、ある程度ご自分でやってみてうまく動作しないようであればご自身で作成したマクロを補足してみた方がよいと思いますよ。

人の作ったマクロをそのままコピー貼り付けを行った場合修正が必要になっても対応できない可能性が高いですし。

お礼

回答ありがとうございます。

マクロでやりたい第一の理由は、他人も操作することから
簡単に処理を行わせたいということなんです。

処理の流れは概ね合っていますが、
2項は比較が合っていればその行のデータをコピー
4項として、必要な列をシート２の指定列をコピー
って感じです。

マクロ記録を取って多少修正するぐらいしか経験がなく、
マクロ記録で対応できれば何とか出来そうですが、まず
日付の比較で躓きました。。。

事例があると助かります。

回答No.1

tortue2009

フィールド名（項目欄）を作ってはいけませんでしょうか？
もし　作ってよろしければ
Ａ列～Ｘ列まで項目名（Ａ～Ｘでも）つけて
Sheet２
Ａ１セルに、「Ｃ」　Ｂ１セルに「Ｃ」（日付の列に付けた項目名）
Ａ２セルに、「>=2009/2/1」・Ｂ２セルに、「<2009/03/1」
と、入力して
周りにデータのない　Ｓｈｅet2　の（例えば）Ｄ５セルをクリック　アクティブにしてから
［データ］→［フィルタ］→［フィルタオプションの設定］
【○指定した範囲】にチェックを入れ
［リスト範囲］に、Sheet１の項目を含めたデータセル範囲をドラッグ
［検索条件範囲］に、Sheet2の　Ａ１：Ｂ２セル範囲をドラッグSheet2!$A$1:$B$2
［抽出範囲］に、抽出したい場所の左上のセル　Ａ４セルクリック
［ＯＫ］クリック　
セルの列幅を調整して　いかがでしょうか？

お礼

回答ありがとうございます。

>フィールド名（項目欄）を作ってはいけませんでしょうか？
説明が不十分ですみません。項目欄は当然ですが必須です。

フィルタオプション設定方式は、私も検討したのですが、
基本的に必要な列だけを抽出することが出来ないので、検討から
除外しました。
個人的に利用する分には問題ないのですが、他人も使用する
となると「一発で処理できる」と言う方法が必要なんです。

　ところで、これって正常に動作します？
　私も最初に検討したときに、何度か操作したのですが正常に
　抽出できなかったような気がします。
　やり方が悪かったのかな。。。