20260515指摘対応6

src/sh/tuk/sheet/C1.cls

@@ -590,7 +590,8 @@ End Sub
 
 ' Validation logic
 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)
 
@@ -843,4 +844,8 @@ Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
     End If
 
     Me.Cells(rowNum, errorCol).ClearContents
+    Exit Sub
+
+ErrHandler:
+    lastErrorMsg = Err.Description
 End Sub