
'日付フォーマットチェック

'変数をチェックする場合、対象項目は文字型になります

'正しい日付であるか確認
If Not IsDate(Sheet2.Range("C50").Value) Then
        MsgBox "[開始日付: " & Sheet2.Range("C50").Value & " ] 形式エラーです"
 End If
