通勤認定エクセルツール対応12 Z4マスタ追加

src/sh/tuk/sheet/M1.cls

@@ -30,7 +30,7 @@ Private Sub Worksheet_Change(ByVal Target As Range)
 
     ' === Column D changes: Fill E column ===
     If Target.Column = 4 And Target.Row >= 7 Then
-        Dim z1Cache As Object: Set z1Cache = GetCache("Z1")
+        Dim z1Cache As Object: Set z1Cache = GetCache(CACHE_Z1)
 
         Dim cellD As Range
         For Each cellD In Target
@@ -109,7 +109,7 @@ Private Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
     End If
 
     ' Check D and E column in the cache
-    Dim z1Cache As Object: Set z1Cache = GetCache("Z1")
+    Dim z1Cache As Object: Set z1Cache = GetCache(CACHE_Z1)
 
     Dim dValue As String: dValue = Trim(ws.Range("D" & rowNum).Value)
     Dim eValue As String: eValue = Trim(ws.Range("E" & rowNum).Value)
@@ -157,7 +157,7 @@ End Sub
 
 ' obtain z1 master data, and update column E
 Private Sub Refresh(ws As Worksheet, ByVal startRow As Long, ByVal lastDataRow As Long)
-    Dim z1Cache As Object: Set z1Cache = GetCache("Z1")
+    Dim z1Cache As Object: Set z1Cache = GetCache(CACHE_Z1)
     
     Application.EnableEvents = False
     On Error GoTo ErrorHandler