Excelで日程表を作ってみよう：Step4 作成年月部分の作成

'設定値のチェック
Private Function SetDataCheck() As Boolean
    SetDataCheck = False
    
    '開始セルのチェック
    If Not StartCellCheck Then
        Exit Function
    End If
    
    '作成方向
    If Range("C3") < 1 Or Range("C3") > 2 Then
        Range("C3").Select
        Beep
        MsgBox "横方向：1　か　縦方向：2　かを選択してください。", , "日程表作成"
        Exit Function
    End If
    
    '作成 行/列 数
    If Range("C4") = "" Then
        Range("C4") = 0
    End If
    If Range("C4") < 0 Or Range("C4") > 100 Then
        Range("C4").Select
        Beep
        MsgBox "行数 / 列数 を0～100の範囲で入力してください。", , "日程表作成"
        Exit Function
    End If
    
    '作成年のチェック
    If Range("C10") < 2000 Or Range("C10") > 2100 Then
        Range("C10").Select
        Beep
        MsgBox "作成年を2000～2100の範囲で入力してください。", , "日程表作成"
        Exit Function
    End If
    
    '作成月のチェック
    If Range("C11") < 1 Or Range("C11") > 12 Then
        Range("C11").Select
        Beep
        MsgBox "作成月を1～12の範囲で入力してください。", , "日程表作成"
        Exit Function
    End If
    
     SetDataCheck = True
End Function