Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

19567 / 76732

←次へ　｜　前へ→


	【62595】Ｃａｌｅｎｄａｒの制作に関して

yamamiti - 09/8/4(火) 20:02 -


	引用なし

	パスワード

エクセルの天地に２月分のカレンダーを作成したく
コードを作成しました。2ケ月単位に更新して印刷
したく考えています。
とりあえず、1ヶ月分(例えば9月分…Ｅ１に9/１と入力して）
のコードを作成しました。
このコードを動作させると一応、曜日別に日にちが入ります。
しかし、日にちの下にメモ(当番）を書きたく一行空けたいのですが
Ｌｏｏｐの中で空けるコードを作成したいのですが、その
方法を教えてください。
現在のコードですと、上と下の月別カレンダーの位置が、
どんどん離れて行き、印刷に耐えません。
よろしく、お願いします。

Sub test()

Dim 日付 As Date
Dim 今月 As Integer
Dim 曜日数 As Integer
Dim 行 As Integer

　日付 = Range("Ｅ1").Value
　今月 = Month(日付)
　曜日数 = Weekday(日付)

Range("B4:H14").ClearContents
　
Do While 今月 = Month(日付)
　　 Range("B4:H9").Cells(Day(日付) + 曜日数 - 1).Value = Day(日付)
　　日付 = 日付 + 1　　
Loop
　　　　　 '　　'←ここから４行をLoopの中に組み込みたいのですが
For 行 = 5 To 13 Step 2　
　　Rows(行).Insert Shift:=xlDown
Next
　　Rows("4:15").RowHeight = 40
　　
End Sub

75 hits

▼

【62595】Ｃａｌｅｎｄａｒの制作に関して yamamiti 09/8/4(火) 20:02

≪