20260515指摘対応10

src/sh/tuk/module/Common_Button.bas

@@ -411,6 +411,4 @@ End Function
 Public Sub HandleError(Optional ByVal sourceProcedure As String = "")
     Dim shortCode As String: shortCode = Right("0000" & CStr(Err.Number - vbObjectError), 4)
     MsgBox "[ERROR] " & shortCode & " : " & Err.Description, vbExclamation
-    
-   
 End Sub

src/sh/tuk/module/Common_Global_Cache.bas

@@ -596,8 +596,8 @@ Public Sub WriteCachesSheet(ByVal cacheName As String)
         Case "T1": colLetter = "E"
         Case "T2": colLetter = "F"
         Case "T3": colLetter = "G"
-        Case "O1": colLetter = "H"
-        Case "O2": colLetter = "I"
+        Case "O2": colLetter = "H"
+        Case "M1": colLetter = "I"
         Case Else: Exit Sub
     End Select