关于数据转换取值

吴中泉

aifeiqi 发表于 2023-5-18 08:44
1、老师，测试过了完全达到要求，谢谢；
2、还要再麻烦一下，请帮忙看附件里模块1年度汇总表代码，之前 ...

看图中出错原因,因你新加入入库表和出库表,那行代码没有排除掉,导致代码出错,

吴中泉

aifeiqi 发表于 2023-5-18 08:44
1、老师，测试过了完全达到要求，谢谢；
2、还要再麻烦一下，请帮忙看附件里模块1年度汇总表代码，之前 ...

如图中解释

吴中泉

1. Sub test()
   
2. Dim arr, brr
   
3. Dim sht As Worksheet
   
4. Dim dic, key
   
5. Set dic = CreateObject("scripting.dictionary")
   
6. j = 1
   
7. For Each sht In Sheets
   
8. If Val(sht.Name) > 0 Then 'If InStr(sht.Name, "汇总表") = 0 Then
   
9. arr = sht.[a2].CurrentRegion 'a1改成了a2,因为你12个月的分表改成了从第二行开始的
   
10.     For x = 2 To UBound(arr)
    
11.     If Not dic.exists(arr(x, 1)) Then
    
12.     Set dic(arr(x, 1)) = CreateObject("scripting.dictionary")
    
13.     End If
    
14.     For y = 2 To 5
    
15.     dic(arr(x, 1))(arr(1, y)) = arr(x, y)
    
16.     dic(arr(x, 1))(sht.Name & Replace(arr(1, y), "本月", "")) = arr(x, y)
    
17.     Next
    
18.     Next
    
19.    
    
20.     For x = 2 To UBound(arr)
    
21.     For i = 3 To 4
    
22.     If Not dic.exists(arr(x, 1)) Then
    
23.     Set dic(arr(x, 1)) = CreateObject("scripting.dictionary")
    
24.     End If
    
25.     dic(arr(x, 1))(Replace(arr(1, i), "本月", "本年") & "合计") = dic(arr(x, 1))(Replace(arr(1, i), "本月", "本年") & "合计") + arr(x, i)
    
26.     Next
    
27.     Next
    
28. End If
    
29. Next
    
30. 
    
31. Sheets("年度汇总表").[a2:ac1000].ClearContents
    
32. For Each k In dic.keys
    
33. j = j + 1
    
34. Sheets("年度汇总表").Cells(j, 1) = k
    
35. Next
    
36. 
    
37. brr = Sheets("年度汇总表").[a1].CurrentRegion
    
38. For m = 2 To UBound(brr)
    
39. key = brr(m, 1)
    
40.     For n = 2 To UBound(brr, 2)
    
41.     If dic.exists(key) Then
    
42.     brr(m, n) = dic(key)(brr(1, n))
    
43.     End If
    
44.     Next
    
45. Next
    
46. 
    
47. 
    
48. 
    
49. Sheets("年度汇总表").[a1].CurrentRegion = brr
    
50. End Sub
    

复制代码

aifeiqi

吴中泉 发表于 2023-5-18 19:24

请老师再看下2月份的本月结存数，有三个商品都有结存，3月份的期初数里少了一个型号11.0042.002的数量2500
请看下什么原因，其他1-12月的表也都不对，分解到各表数据赋值是对的，

吴中泉

aifeiqi 发表于 2023-5-21 17:29
请老师再看下2月份的本月结存数，有三个商品都有结存，3月份的期初数里少了一个型号11.0042.002的 ...

“3月份的期初数里少了一个型号11.0042.002”
更正你这句话，根据你上面说的，是少了11.3002.003,
我查了一下，这个11.3002.003在出入库两表3月都没有记录，所以3月分表没有，一直到4月分表才出现。
你再仔细核对一下。

吴中泉

aifeiqi 发表于 2023-5-21 17:29
请老师再看下2月份的本月结存数，有三个商品都有结存，3月份的期初数里少了一个型号11.0042.002的 ...