出勤簿を作ってみよう

Option Explicit

'月の末日を計算
Private Function MonthLastDay(yy As Integer, mm As Integer) As Integer
    Dim i As Integer
    Dim tdate As Date
    
    tdate = Format(yy & "/" & mm & "/1", "yyyy/mm/dd")
    i = 28
    Do
        i = i + 1
    Loop Until Day(tdate + i - 1) = 1
    MonthLastDay = i - 1
End Function

'日付を表示
Private Sub ExDispDate()
    Dim i As Integer
    Dim j As Integer
    Dim nlast As Integer
    Dim lrow As Long
    Dim lcol As Long
    
    lcol = 2
    '4月～12月
    For i = 4 To 12
        lrow = 7
        '月の末日を計算
        nlast = MonthLastDay(Range("F7"), i)
        '日付をセット
        For j = 1 To nlast
            Sheets("原紙").Cells(lrow, lcol) = j
            lrow = lrow + 1
        Next
        '末日から31日までクリア
        For j = nlast + 1 To 31
            Sheets("原紙").Cells(lrow, lcol) = ""
            lrow = lrow + 1
        Next
        lcol = lcol + 2
    Next
    
    '1月～3月
    For i = 1 To 3
        lrow = 7
        nlast = MonthLastDay(Range("F7"), i)
        For j = 1 To nlast
            Sheets("原紙").Cells(lrow, lcol) = j
            lrow = lrow + 1
        Next
        For j = nlast + 1 To 31
            Sheets("原紙").Cells(lrow, lcol) = ""
            lrow = lrow + 1
        Next
        lcol = lcol + 2
    Next
    
End Sub