add kenshuList

src/module/Common_Global_Cache.bas

@@ -29,6 +29,7 @@ Private tokubetuList As Object
 Private oufukuList As Object
 Private koutaiList As Object
 Private higaitouList As Object
+Private kenshuList As Object
 
 Private sheetConfDict As Object
 
@@ -277,7 +278,7 @@ Private Sub RefreshO1Cache()
         End If
         
         Set arr = innerDict(eVal)
-        If fVal <> "" And Not arr.Exists(fVal) Then
+        If Not arr.Exists(fVal) Then
             arr.Add fVal, True
         End If
         
@@ -377,6 +378,24 @@ RefreshError:
     Err.Raise 1001, "GetHigaitouList", "Failed to load Enum lookup cache: " & Err.Description
 End Sub
 
+' ============================================================
+' higaitouList
+' ============================================================
+Private Sub RefreshKenshuList()
+    On Error GoTo RefreshError
+    Set kenshuList = LoadLookup("Enum", keyCol:=3, valueCols:=Array(4), startRow:=3)
+    On Error GoTo 0
+
+    If kenshuList Is Nothing Or kenshuList.Count = 0 Then
+        Err.Raise 1003, "RefreshKenshuList", "Enum reference data is empty"
+    End If
+
+    Exit Sub
+
+RefreshError:
+    Err.Raise 1001, "RefreshKenshuList", "Failed to load Enum lookup cache: " & Err.Description
+End Sub
+
 Private Sub RefreshSheetDict()
     Set sheetConfDict = CreateObject("Scripting.Dictionary")
     Dim sheetConf As Object
@@ -612,4 +631,9 @@ End Function
 Public Function GetTokubetu() As Object
     If tokubetuList Is Nothing Then Call RefreshTokubetu
     Set GetTokubetu = tokubetuList
+End Function
+
+Public Function GetKenshuList() As Object
+    If kenshuList Is Nothing Then Call RefreshKenshuList
+    Set GetKenshuList = kenshuList
 End Function