20260515指摘対応3

src/sh/tuk/module/Common_Global_Cache.bas

@@ -573,15 +573,32 @@ Public Function GetSheetConfig() As Object
     Set GetSheetConfig = sheetConfDict
 End Function
 
-Public Function RefreshAllCache() As Boolean
-    ' refresh
-    Dim refreshCacheNames As Variant
-    refreshCacheNames = Array("Z1", "Z2", "Z3", "Z4", "T1", "T2", "T3", "M1", "M1KukanDCache", "M2", "O1","O2", _
+Public Function RefreshAllCache(Optional ByVal activeSheetName As String = "") As Boolean
+    ' Fixed cache names
+    Dim fixedCaches As Variant
+    fixedCaches = Array("Z1", "Z2", "Z3", "Z4", "T1", "T2", "T3", "O1", "O2", _
         "tokubetuList", "kenshuList", "oufukuList", "koutaiList", "higaitouList", "errorList")
-    Dim refreshCacheName As Variant
-    For Each refreshCacheName In refreshCacheNames
-        Call RefreshCache(refreshCacheName)
-    Next refreshCacheName
+    
+    ' Dynamic cache names based on activeSheet
+    Dim dynamicCaches As Variant
+    If activeSheetName = "C1" Then
+        dynamicCaches = Array("M1", "M1KukanDCache", "M2")
+    ElseIf activeSheetName = "M2" Then
+        dynamicCaches = Array("M1", "M1KukanDCache")
+    Else
+        dynamicCaches = Array()
+    End If
+    
+    ' Refresh fixed caches
+    Dim cacheName As Variant
+    For Each cacheName In fixedCaches
+        Call RefreshCache(CStr(cacheName))
+    Next cacheName
+    
+    ' Refresh dynamic caches
+    For Each cacheName In dynamicCaches
+        Call RefreshCache(CStr(cacheName))
+    Next cacheName
     
     RefreshAllCache = True
 End Function