20260515指摘対応

src/sh/tuk/module/Common_Button.bas

@@ -141,6 +141,8 @@ Private Sub Do_Validation(ws As Excel.Worksheet)
         MsgBox "Validation complete. Errors: 0", vbInformation
     End If
 
+    Do_Fit ws
+
     Exit Sub
 
 ErrorHandler:
@@ -288,7 +290,8 @@ Private Sub Do_Fit(ws As Excel.Worksheet)
     Dim sheetConfDict As Object: Set sheetConfDict = GetSheetConfig()
     Dim sheetConf As Object: Set sheetConf = sheetConfDict(ws.CodeName)
 
-    Dim startCol As String: startCol = sheetConf("StartCol")
+    ' 2026-05-15 adjust width function contains error column
+    Dim startCol As String: startCol = sheetConf("ErrorCol")
     Dim endCol As String: endCol = sheetConf("EndCol")
 
     ws.Columns(startCol & ":" & endCol).AutoFit