[已解决]根据条件数量分配(已有代码进行格式转换)

158807837

站点优先级及产能	产量需求	各站点设备产能分配
铜抛/50B/120000,铜抛/36B/40000	铜抛/150000	铜抛/50B/120000,铜抛/36B/30000
铜抛/485/110000,铜抛/360B/75000	铜抛/150000	铜抛/485/110000,铜抛/360B/40000
研磨/液态上蜡/150000,研磨/固定上蜡/140000	研磨/160000	研磨/液态上蜡/150000,研磨/固定上蜡/10000

C列各站点设备产能分配的结果已有代码自动得出结果
需要对已有代码进行修改
1、产量需求由工作表<产能>得到
2、各站点设备产能分配与工作表<结果>格式
3、表格数据只有底纹是彩色的内容，即不需要“产能需求‘与”各站点产能分配“

最佳答案

月排行榜 / 总排行榜

grf1973

2015-11-17 14:21

请看附件。

跳转到最佳答案楼层

158807837

代码是对应单元格内有多种产品的，，我只需要一个单元格对应一种产品的，烦请修改下。谢谢。

grf1973

1. Sub grf()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Arr = Sheets("产能").[a1].CurrentRegion
   
4.     For i = 2 To UBound(Arr)      '站点和产能关系
   
5.         d(Arr(i, 1)) = Arr(i, 2)
   
6.     Next
   
7.     Arr = Sheets("条件").[a1].CurrentRegion
   
8.     ReDim brr(1 To 10 * UBound(Arr), 1 To 3)
   
9.     For i = 2 To UBound(Arr)
   
10.         x = Arr(i, 1)
    
11.         xrr = Split(x, ",")
    
12.         zd = Split(xrr(0), "/")(0)     '站点
    
13.         cn = d(zd)      '该站点的产能
    
14.         If cn > 0 Then
    
15.             For k = 0 To UBound(xrr)
    
16.                 yrr = Split(xrr(k), "/")
    
17.                 n = n + 1
    
18.                 For j = 0 To UBound(yrr)
    
19.                     cl = Val(yrr(2))      '产量
    
20.                     brr(n, 1) = yrr(0)
    
21.                     brr(n, 2) = yrr(1)
    
22.                     brr(n, 3) = IIf(cn > cl, cl, cn)
    
23.                 Next
    
24.                 cn = cn - cl
    
25.             Next
    
26.         End If
    
27.     Next
    
28.     Sheets("结果").[a2].Resize(n, 3) = brr
    
29. End Sub
    

复制代码

grf1973

请看附件。