updsv7/vba
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update C1

Browse Source
This commit is contained in:
updsv7
2026-04-17 12:30:18 +09:00
parent 0ef1b45031
commit 8b894ada0a
5 changed files with 63 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/module/Global_Cache.bas
View File

@@ -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: