Excelで巡回ソフトを作ってみよう

'数値の入力値のチェック
Private Function ExNumChek(rg As String) As Boolean
    Dim ln As Long
    
    ExNumChek = False
On Error GoTo errexit
    ln = Range(rg)
    If ln >= 1 Or ln <= 100 Then
        ExNumChek = True
    End If
    Exit Function
errexit:
End Function

'開始ボタン
Private Sub CommandButton1_Click()
    If Range("D12") = "" Then
        MsgBox "巡回間隔を入力してください。"
        Exit Sub
    End If
    If ExNumChek("D12") = False Then
        MsgBox "巡回間隔は1～100の数値を入力してください。"
        Exit Sub
    End If
    
    If Range("D13") = "" Then
        MsgBox "巡回回数を入力してください。"
        Exit Sub
    End If
    If ExNumChek("D13") = False Then
        MsgBox "巡回回数は1～100の数値を入力してください。"
        Exit Sub
    End If
End Sub