update C1

src/module/Build_Select.bas

@@ -0,0 +1,159 @@
+' ============================================================
+' Module Name: Build_Select
+' Module Desc: Commuter allowance editing sheet (no CSV import)
+' Module Methods:
+'   - Tukin_ValidateRow
+'   - FillTransportFromM1KukanD
+'   - FillDepartureFromM1KukanD
+'   - FillArrivalFromM1KukanD
+'   - FillKukanFromM1
+'   - FillKanshuFromM2
+'   - FillCodeFromM2
+'   - FillAddressFromO1
+'   - FillZ1Dropdown
+' ============================================================
+
+' Create transport (T) dropdown from Z1 cache
+Public Function BuildTransportList()
+    If z1Cache Is Nothing Then Call RefreshZ1Cache
+
+    Dim dropdownList As String
+    Dim key As Variant
+    For Each key In z1Cache.Keys
+        Dim displayText As String
+        displayText = MakeSelect(key, z1Cache(key)(0))
+        If dropdownList = "" Then
+            dropdownList = displayText
+        Else
+            dropdownList = dropdownList & "," & displayText
+        End If
+    Next key
+
+    BuildTransportList = dropdownList
+End Function
+
+' Create todoke (G) dropdown
+Public Function BuildTodokeList()
+    If z4Cache Is Nothing Then Call RefreshZ4Cache
+
+    Dim dropdownList As String
+    Dim key As Variant
+    For Each key In z4Cache.Keys
+        Dim displayText As String
+        displayText = MakeSelect(key, z4Cache(key)(0))
+        If dropdownList = "" Then
+            dropdownList = displayText
+        Else
+            dropdownList = dropdownList & "," & displayText
+        End If
+    Next key
+    BuildTodokeList = dropdownList
+End Function
+
+' Create oufuku (M) dropdown
+Public Function BuildOufukuList()
+    If oufukuList Is Nothing Then Call GetOufukuList
+
+    Dim dropdownList As String
+    Dim key As Variant
+    For Each key In oufukuList.Keys
+        Dim displayText As String
+        displayText = MakeSelect(key, oufukuList(key)(0))
+        If dropdownList = "" Then
+            dropdownList = displayText
+        Else
+            dropdownList = dropdownList & "," & displayText
+        End If
+    Next key
+    BuildOufukuList = dropdownList
+End Function
+
+' Create Koutai (N) dropdown
+Public Function BuildKoutaiList()
+    If koutaiList Is Nothing Then Call GetKoutaiList
+
+    Dim dropdownList As String
+    Dim key As Variant
+    For Each key In koutaiList.Keys
+        Dim displayText As String
+        displayText = MakeSelect(key, koutaiList(key)(0))
+        If dropdownList = "" Then
+            dropdownList = displayText
+        Else
+            dropdownList = dropdownList & "," & displayText
+        End If
+    Next key
+    BuildKoutaiList = dropdownList   
+End Function
+
+' Create Kettei (AU) dropdown
+Public Function BuildKetteiList()
+    If z2Cache Is Nothing Then Call RefreshZ2Cache
+
+    Dim dropdownList As String
+    Dim key As Variant
+    For Each key In z2Cache.Keys
+        Dim displayText As String
+        displayText = MakeSelect(key, z2Cache(key)(0))
+        If dropdownList = "" Then
+            dropdownList = displayText
+        Else
+            dropdownList = dropdownList & "," & displayText
+        End If
+    Next key
+    BuildKetteiList = dropdownList
+End Function
+
+' Create Higaitou (AW) dropdown
+Public Function BuildHigaitouList()
+    If higaitouList Is Nothing Then Call GetHigaitouList
+
+    Dim dropdownList As String
+    Dim key As Variant
+    For Each key In higaitouList.Keys
+        Dim displayText As String
+        displayText = MakeSelect(key, higaitouList(key)(0))
+        If dropdownList = "" Then
+            dropdownList = displayText
+        Else
+            dropdownList = dropdownList & "," & displayText
+        End If
+    Next key
+    BuildHigaitouList = dropdownList
+End Function
+
+' Create MonthAmountKbn (AX) dropdown
+Public Function BuildMonthAmountKbnList()
+    If z3Cache Is Nothing Then Call RefreshZ3Cache
+
+    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()
+    If o2Cache Is Nothing Then Call RefreshO2Cache
+
+    Dim dropdownList As String
+    Dim key As Variant
+    For Each key In o2Cache.Keys
+        Dim displayText As String
+        displayText = MakeSelect(key, o2Cache(key)(0))
+        If dropdownList = "" Then
+            dropdownList = displayText
+        Else
+            dropdownList = dropdownList & "," & displayText
+        End If
+    Next key
+    BuildKanshokuList = dropdownList
+End Function

src/module/Validate_Common.bas

@@ -0,0 +1,10 @@
+'=============================================================================
+'=============================================================================
+
+Option Explicit
+
+'-----------------------------------------------------------------------------
+'-----------------------------------------------------------------------------
+Public Function IsDateString(ByVal inputStr As String) As Boolean
+
+End Function