通勤認定エクセルツール対応12 表示しない対応

src/sh/tuk/module/Common_Global_Cache.bas

@@ -399,6 +399,7 @@ Private Sub RefreshSheetDict()
     sheetConf("StartCol") = "C"
     sheetConf("EndCol") = "H"
     sheetConf("ErrorCol") = "B"
+    sheetConf("DisplayCol") = "H"
     sheetConf("StartRow") = 7
     sheetConf("HeaderRow") = 5
     sheetConf("CSV_Encoding") = "utf-8"
@@ -589,15 +590,27 @@ Private Sub RefreshSheetDict()
 End Sub
 
 Public Function GetSheetConfig() As Object
-    If sheetConfDict Is Nothing Then Call RefreshSheetDict
+    If sheetConfDict Is Nothing Then 
+        Call RefreshSheetDict
+        Call RefreshEnumCache
+    End If
     Set GetSheetConfig = sheetConfDict
 End Function
 
+Public Sub RefreshEnumCache()
+    Dim fixedEnumCaches As Variant
+    fixedEnumCaches = Array("tokubetuList", "kenshuList", "renrakuList", "oufukuList", "koutaiList", "higaitouList", "errorList")
+    
+    Dim cacheName As Variant
+    For Each cacheName In fixedEnumCaches
+        Call RefreshCache(CStr(cacheName))
+    Next cacheName
+End Sub
+
 Public Sub RefreshMasterCache()
     ' Fixed cache names
     Dim fixedCaches As Variant
-    fixedCaches = Array(CACHE_Z1, CACHE_Z2, CACHE_Z3, CACHE_T1, CACHE_T2, CACHE_T3, CACHE_O1, CACHE_O2, CACHE_O3, _
-        "tokubetuList", "kenshuList", "renrakuList", "oufukuList", "koutaiList", "higaitouList", "errorList")
+    fixedCaches = Array(CACHE_Z1, CACHE_Z2, CACHE_Z3, CACHE_T1, CACHE_T2, CACHE_T3, CACHE_O1, CACHE_O2, CACHE_O3)
     
     ' Refresh fixed caches
     Dim cacheName As Variant
@@ -605,6 +618,8 @@ Public Sub RefreshMasterCache()
         Call RefreshCache(CStr(cacheName))
         Call WriteCachesSheet(CStr(cacheName))
     Next cacheName
+
+    Call RefreshEnumCache
 End Sub
 
 Public Sub RefreshKukanCache(ByVal sheetName As String)