20260515指摘対応6

src/sh/tuk/sheet/T3.cls

@@ -17,7 +17,8 @@ End Sub
 
 ' 
 Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As Long)
-
+    On Error GoTo ErrHandler
+    
     Dim sheetConfDict As Object: Set sheetConfDict = GetSheetConfig()
     Dim sheetConf As Object: Set sheetConf = sheetConfDict(ws.CodeName)
 
@@ -82,4 +83,8 @@ Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
     If checkResult = False Then Exit Sub
     
     ws.Cells(rowNum, errorCol).ClearContents
+    Exit Sub
+
+ErrHandler:
+    lastErrorMsg = Err.Description
 End Sub