update C1

src/module/Global_Cache.bas

@@ -126,7 +126,7 @@ Public Sub RefreshM2Cache()
         Dim kukanCode As String: kukanCode = Trim(wsM2.Cells(r, 3).Value)  ' C column
         Dim kanshu As String: kanshu = Trim(wsM2.Cells(r, 9).Value)       ' I column
         Dim code As String: code = Trim(wsM2.Cells(r, 10).Value)         ' J column
-        Dim kValue As String: kValue = Trim(wsM2.Cells(r, 11).Value)      ' K column
+        Dim name As String: name = Trim(wsM2.Cells(r, 11).Value)      ' K column
         
         If kukanCode = "" Or kanshu = "" Or code = "" Then GoTo NextRow
         
@@ -143,10 +143,10 @@ Public Sub RefreshM2Cache()
             innerDict.Add kanshu, innermostDict
         End If
         
-        ' Inner level: code -> kValue
+        ' Inner level: code -> name
         Set innermostDict = innerDict(kanshu)
         If Not innermostDict.Exists(code) Then
-            innermostDict.Add code, kValue
+            innermostDict.Add code, name
         End If
         
 NextRow:

src/module/Module_Common.bas

@@ -237,3 +237,8 @@ Sub AutoFitColumnWidth(ByVal fitColumnStart As Long, ByVal fitColumnEnd As Long)
         ws.Range(ws.Columns(fitColumnStart), ws.Columns(fitColumnEnd)).AutoFit
     End If
 End Sub
+
+' Format: code:value (no space around colon)
+Function MakeSelect(ByVal code As String, ByVal value As String) As String
+    MakeSelect = Trim(code) & ":" & Trim(value)
+End Function