cache refactor2

src/module/Common_Global_Cache.bas

@@ -537,7 +537,7 @@ Private Sub RefreshSheetDict()
     Set sheetConf = CreateObject("Scripting.Dictionary")
     sheetConf("StartRow") = 3
     sheetConf("KeyCol") = 6
-    sheetConf("ValueCols") = Array(6)
+    sheetConf("ValueCols") = Array(7)
     Set sheetConfDict("oufukuList") = sheetConf
     Debug.Print "RefreshSheetDict oufukuList ok."
 
@@ -574,20 +574,14 @@ Public Function GetSheetConfig() As Object
 End Function
 
 Public Function RefreshAllCache() As Boolean
-    
     ' refresh
     Dim refreshCacheNames As Variant
-    refreshCacheNames = Array("M1", "M1KukanDCache", "M2", "Z1", "Z2", "Z3", "Z4", "T1", "T2", "T3", "O1","O2")
+    refreshCacheNames = Array("Z1", "Z2", "Z3", "Z4", "T1", "T2", "T3", "M1", "M1KukanDCache", "M2", "O1","O2", _
+        "tokubetuList", "kenshuList", "oufukuList", "koutaiList", "higaitouList", "errorList")
     Dim refreshCacheName As Variant
     For Each refreshCacheName In refreshCacheNames
         Call RefreshCache(refreshCacheName)
     Next refreshCacheName
-
-    Call RefreshTokubetu
-    Call RefreshOufukuList
-    Call RefreshKoutaiList
-    Call RefreshHigaitouList
-    Call RefreshKenshuList
-    Call RefreshErrorList
-    RefreshCache = True
+    
+    RefreshAllCache = True
 End Function