Excelで日程表を作ってみよう：Step3 作成条件部分の作成

'開始セルのチェック
Private Function StartCellCheck() As Boolean
    Dim s As String
    
    StartCellCheck = False
    On Error GoTo ErrSub
    s = Range("C2")
    Range(s).Select
    StartCellCheck = True
    Exit Function
ErrSub:
    'エラーが出れば正しくない
    Beep
    MsgBox "開始セル位置が不正です。修正してください。", , "日程表作成"
    Range("C2").Select
End Function
 
'設定値のチェック
Private Function SetDataCheck() As Boolean
    SetDataCheck = False
    
    '開始セルのチェック
    If Not StartCellCheck Then
        Exit Function
    End If
    
    '作成方向
    If Range("C3") < 1 Or Range("C3") > 2 Then
        Beep
        MsgBox "横方向：1　か　縦方向：2　かを選択してください。", , "日程表作成"
        Range("C3").Select
    End If
    
    '作成 行/列 数
    If Range("C4") = "" Then
        Range("C4") = 0
    End If
    If Range("C4") < 0 Or Range("C4") > 100 Then
        Beep
        MsgBox "行数 / 列数 を0～100の範囲で入力してください。", , "日程表作成"
        Range("C4").Select
    End If
    
     SetDataCheck = True
End Function

■下のプロシージャを下記に変更してください。

Private Sub CommandButton1_Click()
    Range("B11").Select
    If Not SetDataCheck Then
        Exit Sub
    End If
    Range("B11").Select
    MakeNitteiBook
End Sub