通勤認定エクセルツール対応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: