カレンダー特定データをコピー２

質問

Excel VBA　で日程自動作成プログラムを考えております。
何方か、ご指導のほどお願いします。
内容に関し、ファイルを添付いたしました。

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.4

n-jun

＃３です。

カレンダーコントロールに、決められたデータを書き入れていくと言う事を
差しているのでしょうか？

もしそうだとしたら、
カレンダーによる日付入力
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_100_100.html
カレンダーコントロールそのものを自作しないと、出来ない感じがしますけど。

シート上にあるカレンダーならともかく、上記の場合なら私は完全にお手上げなので
他の方の回答をお待ち下さい。

補足

おはようございます。
http://sunrise2001.dip.jp/coo/fncCalen.html
上記サイトで紹介されている、関数によるカレンダーへ
他シート上の曜日毎データ（名前）を貼り付ける方法でしたら可能でしょうか。その結果、年と月を入力することにより（例）2009年１０月１日は、第一週目の木曜日だから他シート上の第１木データを自動で貼り付けてくる、その他の日も同様に自動で貼り付け動作が繰り返され一ヶ月単位でスケジュールを作りたいのです。　以上、宜しくお願いします。

回答No.3

n-jun

＃１です。

元の質問にある
＞カレンダー作成ＶＢＡは見つかり
がどのようなカレンダーを作るのか（セル配置など）にもよるでしょうし、
＞他sheet（何週目何曜日用データと決まっている）からデータの入った連続したセル
がどんなデータ並びになっているのか具体的に表示する必要があるでしょうし、
その結果としてどんな表示（セル配置など）を期待しているのかがわかりにくいかなって思いました。

補足

Excel vba ユーザーフォーム　→　コントロール　→　Microsoftカレンダーコントロール11.0　で得られたカレンダーへ、他シートに用意された１週目用、月、火、水、木、金、土データ（日曜なし）同様に２週目用・３週目用・４週目用・５週目用を自動で貼り付けたいのです。その結果、ＢＯＸ型カレンダーをベースにしたスケジュール表を作成したいのです。
宜しくお願いします。

回答No.2

imogasi

前の質問に関連するなら、前の質問番号なりを参考に挙げておくこと。
ーー
この質問は添付画像が見難い上に、しつもん図が何を意図しているかわかりにくい。
画像から読者・回答者に読み解かすようなことはしないでほしい。
きちんと、文章でも、内容を表現できるよう、質問者は文章表現の訓練や推敲をすること。読者にわかっても荒れるかという観点が大切。このことのほうが、こんな質問の結果を得るより、人生ではよっぽど役立つよ。
ーーー
普通にカレンダーを作成するプログラムでどこがいけないの？
色々やり方はあるが
（１）月の一日の曜日コードを知る。Weekday関数を使う。
木曜は５だ、だから左から５列目に１をセット
以下繰り返して、１がでたら、行数を＋１して勝つ左端からセット。
あとは、その月の月末日を知る方法をしればしまい。
標準モジュールに
Sub test01()
dt = DateSerial(2009, 12, 1) '指定月の１日
tuki = Month(dt) '月を得る
l = DateSerial(2009, tuki + 1, 1) - 1 '月末日を得る
matu = Day(l)
MsgBox matu
i = 3 '３行目からカレンダー日付開始とする
For d = 1 To matu
c = Weekday(DateSerial(2009, tuki, d))
If c = 1 And d <> 1 Then '１日の日曜日以外の日曜日は
i = i + 1
End If
Cells(i, c) = d
Next
End Sub
ーー
このカレンダーから、何か別の表を作りたいのか？。
添付画像の３番目（太い矢印の指している下）の表は、何の意味を示しているのか？

お礼

ありがとうございました。

回答No.1

n-jun

カレンダーへ日程データをコピーしたいのですが
http://okwave.jp/qa5343978.html

アドバイスを受けて試してみた結果はどうだったのでしょう？
⇒質問を立て直す場合は、元の質問は閉じておきましょう。

お礼

ありがとうございました。