******如何根据总部可退数量，从店铺库存中分配出来？******

yu88

Book8.rar (9.59 KB, 下载次数: 7)

2014-12-5 13:06 上传

点击文件名下载附件

aoranbuqun

不明白你的意思!~

yu88

aoranbuqun 发表于 2014-12-5 13:50
不明白你的意思!~

比如，“总部可退数量“表中，某款号某颜色的S码数量为5件，可以退
         但店铺A这样的款号颜色S码有2件   那么可以退2件给总部
           店铺B这样的款号颜色S码有6件    那么只能退3件给总部（5-2=3） 类推。。。。

aoranbuqun

那你说的"像绿色区域的数量，正好够杭州店分配完，那么北京店的数据就没的分配了，清空"什么意思?清空哪里?
另外,如果一款货可退15件,但是各店铺的总数量才12件,需要标注出来吗?在那里标注?

yu88

aoranbuqun 发表于 2014-12-5 14:02
那你说的"像绿色区域的数量，正好够杭州店分配完，那么北京店的数据就没的分配了，清空"什么意思?
另外,如 ...

意思是：总部数量可退一款如果正好够一个杭州店退的数量，那么下一个北京店就没的退了（所以要清空该款的在北京店的数量）

可退15件，各店总的退了12件，余下的不用标注，谢谢大师了！（如果能标注更好，哈哈）

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, d, i&, j%, zf$, z$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("a2").CurrentRegion
   
5. brr = Sheet2.Range("a2").CurrentRegion
   
6. For i = 2 To UBound(arr)
   
7.     zf = arr(i, 1) & "," & arr(i, 2) & "," & arr(i, 3)
   
8.     For j = 4 To UBound(arr, 2)
   
9.         If arr(i, j) <> "" Then d(zf & "," & arr(1, j)) = arr(i, j)
   
10.     Next
    
11. Next
    
12. For i = 2 To UBound(brr)
    
13.     zf = brr(i, 3) & "," & brr(i, 4) & "," & brr(i, 5)
    
14.     For j = 6 To UBound(brr, 2)
    
15.         z = zf & "," & brr(1, j)
    
16.         If d.exists(z) Then
    
17.             If d(z) > brr(i, j) Then
    
18.                 d(z) = d(z) - brr(i, j)
    
19.             Else
    
20.                 brr(i, j) = d(z): d(z) = 0
    
21.             End If
    
22.         End If
    
23.     Next
    
24. Next
    
25. Sheet3.Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
26. End Sub

复制代码

dsmch

………………

chxw68

1. Sub test()
   
2.   Dim d As New Dictionary
   
3.   Dim r%, i%
   
4.   Dim arr, brr
   
5.   With Worksheets("总部可退数量")
   
6.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
7.     arr = .Range("a2:h" & r)
   
8.   End With
   
9.   For i = 2 To UBound(arr)
   
10.     xm = arr(i, 1) & "+" & arr(i, 2)
    
11.     If Not d.Exists(xm) Then
    
12.       Set d(xm) = CreateObject("scripting.dictionary")
    
13.     End If
    
14.     For j = 4 To UBound(arr, 2)
    
15.       d(xm)(arr(1, j)) = arr(i, j)
    
16.     Next
    
17.   Next
    
18.   With Worksheets("店铺库存数")
    
19.     r = .Cells(.Rows.Count, 2).End(xlUp).Row
    
20.     arr = .Range("a2:j" & r)
    
21.   End With
    
22.   For i = 2 To UBound(arr)
    
23.     xm = arr(i, 3) & "+" & arr(i, 4)
    
24.     If d.Exists(xm) Then
    
25.       For j = 6 To UBound(arr, 2)
    
26.         If d(xm).Exists(arr(1, j)) Then
    
27.           If d(xm)(arr(1, j)) > 0 Then
    
28.             If d(xm)(arr(1, j)) > arr(i, j) Then
    
29.               d(xm)(arr(1, j)) = d(xm)(arr(1, j)) - arr(i, j)
    
30.             Else
    
31.               arr(i, j) = d(xm)(arr(1, j))
    
32.               d(xm)(arr(1, j)) = 0
    
33.             End If
    
34.           Else
    
35.             arr(i, j) = 0
    
36.           End If
    
37.         End If
    
38.       Next
    
39.     End If
    
40.   Next
    
41.   With Worksheets("想实现效果")
    
42.     .Cells.ClearContents
    
43.     .Range("a2").Resize(UBound(arr), UBound(arr, 2)) = arr
    
44.   End With
    
45.   
    
46. End Sub
    

复制代码

chxw68

参见附件。

yu88

chxw68 发表于 2014-12-5 14:20
参见附件。

感谢chwx68大师再次热情相助!刚才测试了下,部分功能实现了,但发现有点问题:
问题的用途是:总部给出了数量范围,允许退货,我们想从各店抽出现有库存数,退到总部去
总部数量摊派到各店铺,前提是要"店铺库存数"中有数据才分摊(如:总部有10件,杭州店库存有4件,而北京店没有库存,那么这余下的6件不用分摊的.    又如:总部S码有5   M码有3   但杭州库存只有M码2件,   那S码是不用分摊给杭州店的)
麻烦您再帮我修改代码,完善下,谢谢!