通勤認定エクセルツール対応19

src/sh/tuk/module/Common_Button.bas

@@ -196,7 +196,18 @@ Public Sub Validation_Button()
     End If
 
     Do_Fit_Internal ws
+
+    ' Clear previous error marks before validation
+    Dim lastRow As Long: lastRow = GetLastDataRowInRange(ws)
+    Dim sheetConfDict As Object: Set sheetConfDict = GetSheetConfig()
+    Dim sheetConf As Object: Set sheetConf = sheetConfDict(ws.CodeName)
+    Dim errCol As Long: errCol = ColNum(CStr(sheetConf("ErrorCol")))
+    Dim endCol As Long: endCol = ColNum(CStr(sheetConf("EndCol")))
+    ws.Range(ws.Cells(lastRow + 1, errCol), ws.Cells(1048576, errCol)).ClearContents
+    ws.Range(ws.Cells(lastRow + 1, errCol), ws.Cells(1048576, endCol)).Interior.Color = RGB(255, 255, 255)
+
     Application.EnableEvents = True
+    Do_Fit_Internal ws
     Exit Sub
 
 ErrorHandler:

src/sh/tuk/sheet/C1.cls

@@ -300,10 +300,10 @@ Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
             .AddDate "BF"
 
             ' Number columns (numeric check only, no digit limit)
-            .AddNumber "L", 2
+            .AddNumber "L", 2, 0
             .AddNumber "P", 4, 1
-            .AddNumber "Q", 6
+            .AddNumber "Q", 6, 0
-            .AddNumber "R", 6
+            .AddNumber "R", 6, 0
 
             ' G column o3Cache
             .AddCodeSelect "G", CACHE_O3

src/sh/tuk/sheet/M1.cls

@@ -141,10 +141,10 @@ Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
         .AddRequired "L"
         .AddCodeSelect "K", "renrakuList"
         .AddCodeSelect "L", "tokubetuList"
-        .AddNumber "H", 6,  1
+        .AddNumber "H", 6, 1
-        .AddNumber "I", 5
+        .AddNumber "I", 5, 0
-        .AddNumber "J", 6
+        .AddNumber "J", 6, 0
-        .AddNumber "N"
+        .AddNumber "N", 7, 0
         
     End With
 

src/sh/tuk/sheet/M2.cls

@@ -118,9 +118,9 @@ Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
         .AddRequired "K"
         .AddRequired "L"
         .AddRequired "M"
-        .AddNumber "L"
+        .AddNumber "L", 10, 3
-        .AddNumber "M"
+        .AddNumber "M", 7, 0
-        .AddNumber "N"
+        .AddNumber "N", 3, 0
         .AddNumber "O"
         .AddNumber "P"
         .AddNumber "Q"

src/sh/tuk/validation/ValidationRule.cls

@@ -71,6 +71,8 @@ Public Function ValidateRow(ws As Worksheet, rowNum As Long, Optional lastDataRo
                     If Left(intPart, 1) = "-" Then intPart = Mid(intPart, 2)
                     If Len(intPart) = 0 Then
                         result.SetFail ERR_NUMDIGITS, ColIndex, rowNum, "Number(" & NumberDigits & ", " & NumberDec & ")"
+                    ElseIf NumberDec = 0 And dotPos > 0 Then
+                        result.SetFail ERR_NUMDIGITS, ColIndex, rowNum, "Number(" & NumberDigits & ", " & NumberDec & ")"
                     ElseIf Len(intPart) > NumberDigits - NumberDec Then
                         result.SetFail ERR_NUMDIGITS, ColIndex, rowNum, "Number(" & NumberDigits & ", " & NumberDec & ")"
                     ElseIf NumberDec > 0 And Len(decPart) > NumberDec Then