EXCEL VBAについて

質問

VBAでCSVファイルをテンプレートのBBOKに読込むコードを
作り、CSVファイルから読込んだBOOK1データを集計する
BOOK2を作成しています。

BOOK1・11/21・・・11/21・・・11/22・・・11/23と続きます　　
　　　A　　　　　B　　　　　C　　　　　　D
1　　ID　　　　　店名　　　売上　　　　日付
2　1104567　　　渋谷店　　190,809　　　11/21
3　1102031　　　新宿店　　209,808　　　11/21
4　1103450　　　横浜店　　108,765　　　11/21

BOOK2・集計
　　　　　A　　　　B　　　　C　　　　　　　D　　　　　　　E
1　　ID　　　店名　　　11/21　　　　11/22　　　　　11/23
2　1104567　　渋谷店　　190,809　　　203,487
3　1102031　　新宿店　　209,808　　　340,876
4　1103450　　横浜店　　108,765　　　547,627
※BOOK1とBOOK2のIDの並び順は一致していません。

上記のBOOK1のデータをBOOK2に読込ませたいと考えています。
VLOOKUPやINDEX関数を使用しようかと考えたのですが、日付毎に
ファイル名が違うのと、集計のファイルには外部参照をさせたくないと
考えています。

VBAで作成したいコードはBOOK1からBOOK2の日付のセルにIDを検索条件として日付毎のファイルを読込ませたいです。
フォームで日付を入力し、コピーするBOOK2のセルを指定後、BOOK1を選択するためにダイアログボックスを出したいです。
BOOK2のIDを検索条件としてBOOK1から一致する売上セルを抽出するコードだけでもわかれば何とか作成できそうなのですが、
ご教授いただけませんでしょうか？

回答No.1

imogasi · ベストアンサー

＞VBAでCSVファイルをテンプレートのBBOKに読込むコードを
作り、CSVファイルから読込んだBOOK1データを集計する
BOOK2を作成しています。
質問には書く必要なし。
ーー
＞上記のBOOK1のデータをBOOK2に読込ませたいと考えています。
「読み込ませたい」とは普通そのまま読み込んで表示するときに使う表現ですので不適
ーーーー
＞集計する
加算していますか。してないのでは。
寄せ集めはしているようだが
BOOK１で、同じ日付で例えば渋谷店は２行に出現する場合ありますか
？そこがコードを考える上で決定的に大事。
どうも無いような雰囲気？
ーーー
結局、日付的に考えて縦に表示されるデータを横の日付流れに置き換えているだけか。
（ただし、同じ日の中で、並び順はBOOK２の並び順と同じようには出現しないようだが。
ーーー
BOOK１に１日分データを追加されて、BOOK"にその１日分だけ追加すればよいように読めるがそれでよいか。
ーーー
下記はBook1、Book2のシートが同じブックのSheet1、Sheet2（結果を出すシート）にしてやってみたもの。
使うなら別ブックの例に修正のこと。
小数例なのでテストは十分でなく、上記から、質問の意図も十分把握
できているか心配だが、参考にしてください。
あくまでもMATCH関数など使った特殊１方法です。コード行数は他と比べ少ないはず。
ーーー
例データ　Sheet１
ID 店名 売上 日付
1104567 渋谷店 190,809 11月21日
1102031 新宿店 209,808 11月21日
1103450 横浜店 108,765 11月21日
1104567 渋谷店 203,487 11月22日
1102031 新宿店 340,876 11月22日
1103450 横浜店 547,627 11月22日
1104567 渋谷店 122,333 11月23日
1102031 新宿店 223,455 11月23日
1103450 横浜店 355,556 11月23日
ーー
Sheet2
ID 店名 11月21日
1104567 渋谷店
1102031 新宿店
1103450 横浜店
のように日付だけ第１行に入れて書きコードを実行する。
結果は
ID 店名 11月21日
1104567 渋谷店 190809
1102031 新宿店 209808
1103450 横浜店 108765
次ぎの日は
ID 店名 11月21日 11月22日
1104567 渋谷店 190809
1102031 新宿店 209808
1103450 横浜店 108765
の状態で（日付だけD2セルに入れて）実行する。
第２行E列以右にはデータなど一切入れ無いこと。
ーー
日付は日付シリアル値の入力になっていること。
Sheet2のC列以右の書式は（カンマ区切りなど）別途設定のこと。
標準モジュールに
Sub test01()
Dim sh1, sh2 As Worksheet
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
d = sh1.Range("A65536").End(xlUp).Row
'MsgBox d
c = sh2.Range("iv1").End(xlToLeft).Column
'MsgBox c
dt = sh2.Cells(1, c)
For i = 2 To d
If sh1.Cells(i, "D") = dt Then
'MsgBox i
r = WorksheetFunction.Match(sh1.Cells(i, "B"), sh2.Range("B1:B1000"), 0)
'MsgBox r
sh2.Cells(r, c) = sh1.Cells(i, "c")
End If
Next i
End Sub
あえてMSGBOXはコメント化して残してます。
コメント化の’をはずして、実行時の動きを理解してください。

お礼

sheet1のIDの列を昇順にした所、教えていただいたコードでうまくいきました！

ただ、希望がありまして、
1、sheet1のデータを昇順にしなくて出来る方法はありますか？

2、SET sh1 =の部分をファイルを選択させるダイアログボックスを表示させて選択できますか？

3、日付を入力するセルを入力ボックスを表示させて入力させたいです。

無理を言ってすみませんが、ご教授お願いします。

補足

ご回答ありがとうございます。
コードを実行してみたのですが、d=1566 c=3
I=emptyになっています。
コードの記述が違っていますでしょうか？