カレンダーへ日程データをコピーしたいのですが

質問

Excel vba　関数　で困ってます。
ＢＯＸ型月表（カレンダータイプ）作成で、その日（例：１日、８日）は何週目の何曜日か識別してくれて他sheet（何週目何曜日用データと決まっている）からデータの入った連続したセルをコピーさせたいのですが。　Excel VBAでなにか良い方法はありませんか。
カレンダー作成ＶＢＡは見つかり、そこのセルに張付けたいのです。
何方か宜しくお願いします。
///////////////////////////////////////////////
　　　　　１０月
　　月　火　水　木　金　土
　　　　　　　　1　 2 　3 第１週目
5 6 7 8 9 第２週目
～
　　　　　　～　　　　　31
//////////////////////////////////////////////　　　
１日は、第１週の木曜日です。　５日は、月曜日としては第１週目に
相当すると考えます。　８日は、第２週目の木曜日です。

回答No.1

うぃず（@Wizard_Zero）

> その日（例：１日、８日）は何週目の何曜日か識別

日付から「第○週△曜日」の○週を求めるには、単に日を７で割り小数点を切り上げすれば求められます。ただプログラム的にには、日に６を足して７で割った商を求めたほうがスマートですね。

Dim dt As Date
Dim weeks As Integer
Dim dayname As String

dt = #10/6/2009#
weeks = (Day(dt) + 6) \ 7
dayname = weekdayname(weekday(dt, vbMonday), True, vbMonday)

MsgBox "第" & weeks & dayname & "曜日" ' 結果：第1火曜日

ここから先はどのようにしたいのかよく分からなかったので、ひとまずここまで。

お礼

回答ありがとうございます。
早速試してみます。
次回は、図を添付して質問（同じ内容）いたしますので
引続きご教授をお願いします。
宜しくお願いします。