エクセルで一日の予定表を作っています

質問

エクセルで一日の予定表を作っています
今は１日づつ日付を入れて印刷していますが

１ヶ月分を連続して印刷、日付を印刷するたびに進ませ１か月分をボタン１つで印刷したいのですが
良い方法をご指南ください。

回答No.1

ziziwa1130 · ベストアンサー

一例です。まず、セルA1に日付（日付シリアル値）が入っているものとします。以下のマクロを実行すれば良いですよ。
Sub Macro1()
Dim I As Integer, Y As Integer, D As Integer
Range("A1").Select
Y = Year(ActiveCell)
M = Month(ActiveCell)
If M = 2 Then
If Y Mod 400 = 0 Then
D = 29
Else
If Y Mod 100 = 0 Then
D = 28
Else
If Y Mod 4 = 0 Then
D = 29
Else
D = 28
End If
End If
End If
Else
If M = 4 Or M = 6 Or M = 9 Or M = 11 Then
D = 30
Else
D = 31
End If
End If
For I = 1 To 12
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveCell.FormulaR1C1 = ActiveCell + 1
Next
End Sub

お礼

ありがとうございました
色々と試行錯誤、悩んでいましたが　
おかげさまですっきり解決いたしました