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

src/sh/tuk/sheet/Z4.cls

@@ -13,11 +13,10 @@ Private Sub Worksheet_Change(ByVal Target As Range)
     Dim HasHeaderEdit As Boolean: HasHeaderEdit = CheckHeaderEdit(Me, Target)
     If HasHeaderEdit = True Then Exit Sub
 
-    ' Check if cache is loaded
     Application.EnableEvents = False
     On Error GoTo Finally
 
-    ' === Column C changes: Create L column dropdown ===
+    ' === Column C changes: Create H column dropdown ===
     If Target.Column = 3 And Target.Row >= 7 Then
         Dim cell As Range
         For Each cell In Target
@@ -29,7 +28,7 @@ Private Sub Worksheet_Change(ByVal Target As Range)
         Next
     End If
 
-    ' === Column D changes: Fill E column ===
+    ' === Column H changes: Fill E column ===
     If Target.Column = 8 And Target.Row >= 7 Then
         Dim cellH As Range
         For Each cellH In Target
@@ -60,21 +59,23 @@ Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
     End If
 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)
 
     Dim startCol As String: startCol = sheetConf("StartCol")
     Dim endCol As String: endCol = sheetConf("EndCol")
     Dim errorCol As String: errorCol = sheetConf("ErrorCol")
-    
-    ' clear C~I columns background color
+
+    ' clear C~H columns background color
     Dim clearRange As Range: Set clearRange = ws.Range(ws.Cells(rowNum, startCol), ws.Cells(rowNum, endCol))
     clearRange.Interior.Color = vbWhite
-    
+
+    Dim checkResult As Boolean: checkResult = False
+
     ' C column check
     checkResult = CheckRequired(ws, rowNum, 3, errorCol)
     If checkResult = False Then Exit Sub
@@ -87,7 +88,7 @@ Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
 
     checkResult = CheckDuplicate(ws, rowNum, 3, errorCol)
     If checkResult = False Then Exit Sub
-    
+
     ' D column check
     checkResult = CheckRequired(ws, rowNum, 4, errorCol)
     If checkResult = False Then Exit Sub
@@ -98,7 +99,7 @@ Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
     ' E column check
     checkResult = CheckVarcharOver(ws, rowNum, 5, 80, errorCol)
     If checkResult = False Then Exit Sub
-    
+
     ' F column check
     checkResult = CheckVarcharOver(ws, rowNum, 6, 80, errorCol)
     If checkResult = False Then Exit Sub
@@ -106,7 +107,7 @@ Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
     ' G column check
     checkResult = CheckVarcharOver(ws, rowNum, 7, 80, errorCol)
     If checkResult = False Then Exit Sub
-    
+
     ' H column check
     checkResult = Check01(ws, rowNum, 8, errorCol)
     If checkResult = False Then Exit Sub
@@ -116,4 +117,4 @@ Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
 
 ErrHandler:
     lastErrorMsg = Err.Description
-End Sub
+End Sub