生産管理 年間シートを作ってみよう

Option Explicit

'年が正しい日付か確認
Private Function ExDateCheck(sy As String) As Boolean
    Dim s1 As String
    
    '年1月1日で確認
    s1 = sy & "/" & "01/01"
    'IsDate関数で、式を日付に変換できるかどうかを調べる
    If IsDate(sy) = False Then
        '有効
        ExDateCheck = False
        MsgBox "作成年度が不正です"
        Range("C7").Activate
    Else
        '無効
        ExDateCheck = True
     End If
End Function

Private Sub CommandButton1_Click()
    
    '作成年度の入力チェック
    If Range("C7") = "" Then
        MsgBox "作成年度を入力してください。"
        Range("C7").Activate
        Exit Sub
    End If
    
    '作成年度の入力が正しいかどうかチェック
    If ExDateCheck(Range("C7")) = False Then
        '正しくない場合は抜ける
        Exit Sub
    End If
    
End Sub