通勤認定エクセルツール対応12 表示しない対応

src/sh/tuk/sheet/Z4.cls

@@ -13,6 +13,39 @@ 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 ===
+    If Target.Column = 3 And Target.Row >= 7 Then
+        Dim cell As Range
+        For Each cell In Target
+            If Trim(cell.Value) = "" Then
+                Call ClearDataRow(Me, cell.Row)
+            Else
+                Call BuildDisplayDropdown(Me, cell.Row)
+            End If
+        Next
+    End If
+
+    ' === Column D changes: Fill E column ===
+    If Target.Column = 8 And Target.Row >= 7 Then
+        Dim cellH As Range
+        For Each cellH In Target
+            Dim displayValue As String: displayValue = Trim(cellH.Value)
+            If displayValue <> "" Then
+                cellH.Value = GetCode(displayValue)
+            End If
+        Next
+    End If
+
+    Application.EnableEvents = True
+    Exit Sub
+
+Finally:
+    HandleError "Worksheet_Change"
+    Application.EnableEvents = True
 End Sub
 
 ' Prevent insert/delete row in header area
@@ -46,10 +79,10 @@ Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
     checkResult = CheckRequired(ws, rowNum, 3, errorCol)
     If checkResult = False Then Exit Sub
 
-    checkResult = CheckChar(ws, rowNum, 3, 2, errorCol)
+    checkResult = CheckChar(ws, rowNum, 3, 6, errorCol)
     If checkResult = False Then Exit Sub
 
-    checkResult = CheckAlphanumeric(ws, rowNum, 3, 2, errorCol)
+    checkResult = CheckAlphanumeric(ws, rowNum, 3, 6, errorCol)
     If checkResult = False Then Exit Sub
 
     checkResult = CheckDuplicate(ws, rowNum, 3, errorCol)