生产计划自动排产求助

alexdong0227

公司里生产计划基本都是靠面对面口头传输。有时候会忘记需要做的东西已经超过工作中心负荷，在此前提下，动手制作了如下计划排产表，但公式实在欠缺，请各位大神帮助。

在此之前，下载了 xinjiana 老师的精华帖 duwei9981 老师的精华帖。本意是想通过学习，掌握公式知识，设计，完善自己的计划表。但研究多日，进展不多。在此也特别感谢二位老师的分享。


如下图片描述 Excel文档

鄂龙蒙

1. Sub 排产()
   
2.         Dim arr, brr(), i, j, n, b, a
   
3.         Sheet2.Range("I6:XFD1000").ClearContents
   
4.         arr = Sheet2.Range("a6:g12")
   
5.         ReDim brr(1 To UBound(arr), 1 To 31)
   
6.         n = 0
   
7.         b = 0
   
8.             For i = 1 To UBound(arr)
   
9.                 If arr(i, 4) <> "" Then
   
10.                     If i = 1 Then
    
11.                         a = Int(arr(i, 4) / arr(i, 7))
    
12.                         For j = n + 1 To a
    
13.                              n = n + 1
    
14.                              brr(i, j) = arr(i, 7)
    
15.                              brr(i, j + 1) = arr(i, 4) Mod arr(i, 7)
    
16.                         Next j
    
17.                         b = n
    
18.                         n = 0
    
19.                     Else
    
20.                         If brr(i - 1, b + 1) > arr(i, 7) Then
    
21.                             ss = 0
    
22.                         Else
    
23.                             ss = arr(i, 7) - brr(i - 1, b + 1)
    
24.                         End If
    
25.                         brr(i, b + 1) = ss
    
26.                         a = Int((arr(i, 4) - ss) / arr(i, 7))
    
27.                         For j = b + 2 To a + b + 1
    
28.                              n = n + 1
    
29.                              brr(i, j) = arr(i, 7)
    
30.                              brr(i, j + 1) = (arr(i, 4) - ss) Mod arr(i, 7)
    
31.                         Next j
    
32.                         b = b + n + 1
    
33.                         n = 0
    
34.                    End If
    
35.                    ss = ""
    
36.                 End If
    
37.             Next i
    
38.         Sheet2.[I6].Resize(UBound(brr), 31) = brr
    
39. End Sub
    

复制代码