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

src/sh/tuk/sheet/T3.cls

@@ -13,6 +13,38 @@ Private Sub Worksheet_Change(ByVal Target As Range)
     Dim HasHeaderEdit As Boolean: HasHeaderEdit = CheckHeaderEdit(Me, Target)
     If HasHeaderEdit = True Then Exit Sub
 
+    Application.EnableEvents = False
+    On Error GoTo Finally
+
+    ' === Column C changes: Create D 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 G changes: Fill E column ===
+    If Target.Column = 7 And Target.Row >= 7 Then
+        Dim cellG As Range
+        For Each cellG In Target
+            Dim displayValue As String: displayValue = Trim(cellG.Value)
+            If displayValue <> "" Then
+                cellG.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
@@ -42,6 +74,8 @@ Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
     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
@@ -99,4 +133,4 @@ Public Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
 
 ErrHandler:
     lastErrorMsg = Err.Description
-End Sub
+End Sub