私が変更したいようにできるか、ぜひお力添えをお願いします。

質問

Sub Prep_Calendar()

Dim 入力 As String
Dim 開始日 As Date, 日付 As Date
Dim 今月 As Integer
Dim i As Integer, j As Integer

入力 = InputBox("年月を yyyy/m の形式で入力")

If IsDate(入力) = True Then
開始日 = CDate(入力)
Else
MsgBox ("正しい日付を入力")
Exit Sub
End If
Range("B2").Value = Year(開始日)
Range("D2").Value = Month(開始日)

今月 = Month(開始日)
日付 = 開始日 - Weekday(開始日) + 1
For i = 1 To 11 Step 2
For j = 1 To 7
If 今月 = Month(日付) Then
Cells(i + 3, j + 1).Value = Day(日付)
Cells(i + 3, j + 1).Interior.ColorIndex = 2
Cells(i + 4, j + 1).Interior.ColorIndex = 2
Else
Cells(i + 3, j + 1).Value = ""
Cells(i + 3, j + 1).Interior.ColorIndex = 35
Cells(i + 4, j + 1).Interior.ColorIndex = 35
End If
日付 = 日付 + 1
Next
Next

End Sub

まず、インプットボックスにて2003/9と入力すると、B2に2003、D2に9と入力されます。
元から作成してあるエクセルの3列目には、B3からC3，D3…と、日月火…土と入っております。
B4からH5までがカレンダーになっており、当月分以外の欄は、緑色でセルに色がつきます。
１行飛ばしで日付が入力されるようになっているのですが、これを１行飛ばしではなく、３行飛ばしに変更したいです。
また、試験日が分かっていたら、その日から逆算させて日付の最終行に「試験まであと○日」などと表示ができたら文句ないです。
初心者です。
意味不明点など、補足要求をお願いします。

回答No.1

imogasi · ベストアンサー

Sub Prep_Calendar()
Dim 入力 As String
Dim 開始日 As Date, 日付 As Date
Dim 今月 As Integer
Dim i As Integer, j As Integer
Cells.Clear
入力 = InputBox("年月を yyyy/m の形式で入力")
s = InputBox("試験日yyyy/mm/dd＝")
試験日 = DateValue(s)
' MsgBox 試験日
If IsDate(入力) = True Then
開始日 = CDate(入力)
Else
MsgBox ("正しい日付を入力")
Exit Sub
End If
Range("B2").Value = Year(開始日)
Range("D2").Value = Month(開始日)

今月 = Month(開始日)
日付 = 開始日 - Weekday(開始日) + 1
For i = 1 To 16 Step 3
For j = 1 To 7
If 今月 = Month(日付) Then
Cells(i + 3, j + 1).Value = Day(日付)
Cells(i + 3, j + 1).Interior.ColorIndex = 2
Cells(i + 4, j + 1).Interior.ColorIndex = 2
Cells(i + 5, j + 1).Interior.ColorIndex = 2
d = DateSerial(Range("b2"), Range("d2"), Day(日付))
If 試験日 - d >= 0 Then
Cells(i + 5, j + 1) = 試験日 - d
Cells(i + 5, j + 1).Font.Color = vbRed
End If
Else
Cells(i + 3, j + 1).Value = ""
Cells(i + 3, j + 1).Interior.ColorIndex = 35
Cells(i + 4, j + 1).Interior.ColorIndex = 35
Cells(i + 5, j + 1).Interior.ColorIndex = 35
End If
日付 = 日付 + 1
Next
Next
End Sub

お礼

うまく行きました。
質問の意図もしっかり読み取っていただき、本当にありがとうございました。
またのご活躍を楽しみにしております。