EXCELVBA 別シート カレンダーを条件付参照

質問

お世話になります。

質問させていただきます。

売上.xlsというブックがあります。
この中に[カレンダー]と[データ]という2つのシートがあります。(イメージを添付しました)

やりたい事は
[データ]シートに[計算]というボタンを設置してこのボタンがクリックされたら以下のアクションを実行
したいのです。

[データ]シートをA2からREADしてA??の年月と[カレンダー]シートのA??の値が同じであれば、次に同データの売上日(B??)を[カレンダー]シートの該当年月の期間1(B?-C?)、期間2(B?-C?)、期間3(B?-C?)、期間4(B?-C?)と照らし合わせて、存在する期間の週(黄色セル)を、[データ]シートのC??の売上週フィールドに表示、させたいのです。

例)売上日が130510のデータの場合

(1)[データ]シートの年月と[カレンダー]シートのA3が合致
(2)売上日が130510なので[カレンダー]シートの期間2(E3-F3)に該当するので"6～12"（G3)という表示を[データ]シートのC6に表示

以上です。
お忙しいところ恐れ入りますが、どなたかお知恵をお貸しいただけますでしょうか。
よろしくお願い致します。

補足
1年ごとにブックを分けるのでカレンダーは2013年4月～2014年3月(1304～1403)まで作成します。
[データ]シートのデータは変動ですが10,000件ほどです。

環境
Windows XP SP3
Excel2003

回答No.1

mt2008 · ベストアンサー

手抜きのサンプルを作ってみました。
エラー処理等一切入っていませんので、ご自分で入れて下さい。

Sub Sample()
　　nMaxRow = Sheets("データ").Cells(Rows.Count, 1).End(xlUp).Row
　　With Sheets("カレンダー")
　　　　For i = 2 To nMaxRow
　　　　　　nYearMonth = Sheets("データ").Cells(i, 1)
　　　　　　nDay = Sheets("データ").Cells(i, 2)
　　　　　　nCalRow = WorksheetFunction.Match(nYearMonth, .Range("A:A"))
　　　　　　nCalCol1 = WorksheetFunction.Match(nDay, .Range(nCalRow & ":" & nCalRow))
　　　　　　nCalCol2 = 4 + 3 * Int(nCalCol1 / 3)
　　　　　　Sheets("データ").Cells(i, 3) = .Cells(nCalRow, nCalCol2).Value
　　　　Next i
　　End With
End Sub

お礼

mt2008さん、早速のご連絡ありがとうございました!

ご教授いただきましたコードで実現できました！！

詳細なコードのご教授誠にありがとうございます。
この度は本当にありがとうございました!