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

質問

お世話になります。

以前にも同じ様な質問をさせていただきましたが、うまく値が持ってこれませんでしたため、あらためて質問させていただきました。

売上.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

tom04 · ベストアンサー

こんばんは！

画像が小さくて詳細がよく判りませんが、おそらくこういうコトであろうと思い・・・

＞[データ]シートに[計算]というボタンを設置してこのボタンがクリックされたら
「データ」Sheetにコマンドボタンを挿入してのコードです。

Private Sub CommandButton1_Click()
Dim i As Long, j As Long, k As Long, wS As Worksheet
Set wS = Worksheets("カレンダー")

For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
k = WorksheetFunction.Match(Cells(i, "A"), wS.Range("A:A"), False)
For j = 2 To wS.Cells(1, Columns.Count).End(xlToLeft).Column Step 3
If Cells(i, "B") >= wS.Cells(k, j) And Cells(i, "B") <= wS.Cells(k, j + 1) Then
Cells(i, "C") = wS.Cells(k, j + 2)
End If
Next j
Next i
MsgBox "処理完了"
End Sub

※　データ量が10000程度あるというコトですので、
そこそこ時間を要すると思います。m(_ _)m

お礼

tom04さん、ご連絡ありがとうございました！
ご教授いただきました方法で完璧に実現できました！
何度も申し訳ありません。

本当にいつもご丁寧なご説明をいただきまして本当にありがとうございます！！！