Mod90a_Err

Option Explicit
Option Base 1

'-----------------------------------------------
' プロシージャ名 : prcErr開始終了日付
' 概要           : 日付妥当性エラーのメッセージ表示
' 引数           : 工数データ（cls工数データ）、行番号、列番号、シート名
'-----------------------------------------------
Public Sub prcErr開始終了日付( _
    ByVal obj工数 As cls工数データ, _
    ByVal lngRow As Long, _
    ByVal lngCol As Long, _
    ByVal strシート名 As String, _
    ByVal ws対象 As Worksheet _
)

    MsgBox "エラー：日付の妥当性チェックに失敗しました。" & vbCrLf & _
           "氏名：" & obj工数.氏名 & vbCrLf & _
           "工程：" & obj工数.工程名 & vbCrLf & _
           "開始日：" & obj工数.開始日 & vbCrLf & _
           "終了日：" & obj工数.終了日 & vbCrLf & _
           "シート：" & strシート名 & vbCrLf & _
           "セル：" & ws対象.Cells(lngRow, lngCol).Address, vbExclamation

End Sub