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

src/sh/tuk/module/Common_Selector.bas

@@ -10,7 +10,6 @@ Option Explicit
 '   - BuildKoutaiList
 '   - BuildKetteiList
 '   - BuildHigaitouList
-'   - BuildMonthAmountKbnList
 '   - BuildKanshokuList
 '   - BuildKenshuList
 ' ============================================================
@@ -127,24 +126,6 @@ Public Function BuildHigaitouList()
     BuildHigaitouList = dropdownList
 End Function
 
-' Create MonthAmountKbn (AX) dropdown
-Public Function BuildMonthAmountKbnList()
-    Dim z3Cache As Object: Set z3Cache = GetCache("Z3")
-
-    Dim dropdownList As String
-    Dim key As Variant
-    For Each key In z3Cache.Keys
-        Dim displayText As String
-        displayText = MakeSelect(key, z3Cache(key)(0))
-        If dropdownList = "" Then
-            dropdownList = displayText
-        Else
-            dropdownList = dropdownList & "," & displayText
-        End If
-    Next key
-    BuildMonthAmountKbnList = dropdownList
-End Function
-
 ' Create Kanshoku (BC) dropdown
 Public Function BuildKanshokuList()
     Dim o2Cache As Object: Set o2Cache = GetCache("O2")