出勤簿を作ってみよう

Option Explicit

'年の入力値のチェック
Private Function ExYearCheck(sy As String) As Boolean
    Dim s1 As String
    
    '1月1日
    s1 = sy & "/" & "01/01"
    'IsDate関数で確認
    If IsDate(s1) = False Then
        'NG
        ExYearCheck = False
        MsgBox "作成年度が不正です"
    Else
        'OK
        ExYearCheck = True
     End If
End Function

Private Sub CommandButton1_Click()
    Dim last As Long
    
    If Range("F7") = "" Then
        MsgBox "作成する年度を入力してください"
        Range("F7").Activate
        Exit Sub
    End If

    '作成年度をチェック
    If ExYearCheck(Range("F7")) = False Then
        Range("F7").Activate
        Exit Sub
    End If

    '名前の最終行を調べる
    last = Sheets("メニュー").Range("C65536").End(xlUp).Row

    '名前が入力されていない
    If last = 5 Then
        MsgBox "名前を入力してください。"
        Range("C6").Activate
        Exit Sub
    End If

End Sub