字典键运算匹配后，重新赋值item 值不准确。

linwanglian

《原始数据区》（特征1&特征2），匹配《标准件》里面的K列&M列，如果相同，判断1，《原始数据》库存数>《标准件》数量；判断2，《原始数据》长度>《标准件》长度，把《原始数据》代码，填写到D列。同时《原始数据》库存数-《标准件》数量，再返回《原始数据》N列。

编写目的：用原始数据区库存零件，长改短后，使用。同时把改造的库存数更新。
文件里面代码是VB6代码。
遇到的问题是，标准件里面填写的改造数量<库存数减去的数量。感觉是字典重新赋值的时候，重复扣减了。找不到原因。

1. 
   
2. Sub 匹配()
   
3.     Dim ar, arr, I, J, R1, Y1, S
   
4.     Set XL = GetObject(, "Excel.Application")
   
5.     Set XLB = XL.Workbooks("清单工具.XLSX")
   
6.     Set XLS = XLB.Worksheets("原始数据区")
   
7.     Set XLSB = XLB.Worksheets("标准件")
   
8.     RR1 = XLS.[C65536].End(xlUp).Row
   
9.     arr = XLS.Range("A1:z" & RR1)
   
10.     R1 = XLSB.[C65536].End(xlUp).Row
    
11.     ar = XLSB.Range("A1:AJ" & R1)
    
12.     XL.ScreenUpdating = False
    
13.     Set d = CreateObject("Scripting.Dictionary")
    
14. 
    
15.     For I = 1 To UBound(arr)
    
16.         KM = arr(I, 3) & "|" & arr(I, 10) & arr(I, 12) & "|" & arr(I, 11)
    
17.         d(KM) = arr(I, 13)
    
18.     Next I
    
19.     K = d.KEYS
    
20.     For I = 2 To R1
    
21.         BM = ar(I, 11) & ar(I, 13)
    
22.         BC = ar(I, 12)
    
23.         BS = ar(I, 6)
    
24.         For S = 0 To UBound(K)
    
25.             t = Split(K(S), "|")
    
26.             If ar(I, 13) = "普通模板" And IsEmpty(ar(I, 5)) Then   '---------------------------------普板----------------------------------------------------1
    
27.                 If BC <= 1100 Then     '------------------------------------------------1100以内不能拼接----------------------2
    
28.                     If t(1) = BM Then     '------------------------匹配字典----------------------------------------3
    
29.                         NU = d((K(S)))
    
30.                         If NU > BS Then  '-----------------------------库存数大于改制数------------------4
    
31.                             If t(2) - BC < 50 And t(2) - BC > 0 Then    '-------------去50以内---5
    
32.                                 XLSB.Cells(I, 4) = t(0)
    
33.                                 XLSB.Cells(I, 5) = BS
    
34.                                 d(K(S)) = NU - BS    '字典库存-出库数
    
35.                             ElseIf t(2) - BC >= 50 And t(2) - BC < 100 Then    '--------去100以内---5
    
36.                                 XLSB.Cells(I, 4) = t(0)
    
37.                                 XLSB.Cells(I, 5) = BS
    
38.                                 d(K(S)) = NU - BS    '字典库存-出库数
    
39.                             ElseIf t(2) - BC >= 100 And t(2) - BC < 150 Then    '-------去150以内---5
    
40.                                 XLSB.Cells(I, 4) = t(0)
    
41.                                 XLSB.Cells(I, 5) = BS
    
42.                                 d(K(S)) = NU - BS    '字典库存-出库数
    
43.                             ElseIf t(2) - BC >= 150 And t(2) - BC < 200 Then    '-------去200以内---5
    
44.                                 XLSB.Cells(I, 4) = t(0)
    
45.                                 XLSB.Cells(I, 5) = BS
    
46.                                 d(K(S)) = NU - BS    '字典库存-出库数
    
47.                             End If
    
48.                         ElseIf NU > BS * 2 Then    '--------------------库存数大于改制数*2----------------4
    
49.                             If t(2) - BC * 2 < 100 And t(2) - BC >= 50 Then    '-----------去100以内---5
    
50.                                 XLSB.Cells(I, 4) = t(0)
    
51.                                 XLSB.Cells(I, 5) = BS / 2
    
52.                                 d(K(S)) = NU - BS / 2  '字典库存-出库数
    
53.                             ElseIf t(2) - BC * 2 < 150 And t(2) - BC >= 100 Then    '------去150以内---5
    
54.                                 XLSB.Cells(I, 4) = t(0)
    
55.                                 XLSB.Cells(I, 5) = BS / 2
    
56.                                 d(K(S)) = NU - BS / 2  '字典库存-出库数
    
57.                             ElseIf t(2) - BC * 2 < 200 And t(2) - BC >= 150 Then    '------去200以内---5
    
58.                                 XLSB.Cells(I, 4) = t(0)
    
59.                                 XLSB.Cells(I, 5) = BS / 2
    
60.                                 d(K(S)) = NU - BS / 2  '字典库存-出库数
    
61.                             End If
    
62.                         End If    '------------------------------------------------------------4
    
63.                     End If    '--------------------------------------------------------------------3
    
64.                 End If    '------------------------------------------------------------------------------2
    
65.             End If
    
66.         Next
    
67.     Next
    
68.     For J = 1 To RR1
    
69.         If d.Exists(arr(J, 3) & "|" & arr(J, 10) & arr(J, 12) & "|" & arr(J, 11)) Then
    
70.             t = d(arr(J, 3) & "|" & arr(J, 10) & arr(J, 12) & "|" & arr(J, 11))
    
71.             XLS.Cells(J, 14) = t
    
72.         End If
    
73.     Next J
    
74. 
    
75.     Set d = Nothing
    
76. 
    
77.     XL.ScreenUpdating = True
    
78.     Set XL = Nothing
    
79.     Set XLB = Nothing
    
80.     Set XLS = Nothing
    
81.     Erase arr
    
82.     Erase ar
    
83. End Sub

复制代码