20260515指摘対応4

src/sh/tuk/sheet/M1.cls

@@ -7,34 +7,6 @@
 '   - Validate
 ' ============================================================
 
-' Create dropdown for L column
-Private Sub CreateEnumDropdown(ByVal rowNum As Long)
-    Dim tokubetuList As Object: Set tokubetuList = GetCache("tokubetuList")
-    ' Build dropdown list from tokubetuList
-    Dim dropdownList As String
-    dropdownList = ""
-
-    Dim key As Variant
-    For Each key In tokubetuList.Keys
-        If dropdownList = "" Then
-            dropdownList = key
-        Else
-            dropdownList = dropdownList & "," & key
-        End If
-    Next key
-
-    With Me.Range("L" & rowNum).Validation
-        .Delete
-        .Add Type:=xlValidateList, Formula1:=dropdownList
-        .IgnoreBlank = True
-        .InCellDropdown = True
-        .InputTitle = ""
-        .InputMessage = ""
-    End With
-
-End Sub
-
-'
 Private Sub Worksheet_Change(ByVal Target As Range)
     Dim HasHeaderEdit As Boolean: HasHeaderEdit = CheckHeaderEdit(Me, Target)
     If HasHeaderEdit = True Then Exit Sub
@@ -47,7 +19,7 @@ Private Sub Worksheet_Change(ByVal Target As Range)
                 Me.Cells(cell.Row, 12).Validation.Delete
                 Call ClearDataRow(Me, START_COL + 1, END_COL, cell.Row, ERROR_COL)
             Else
-                Call CreateEnumDropdown(cell.Row)
+                Call BuildTokubetuDropdown(Me, "L", cell.Row)
             End If
         Next
     End If