刚做的一个excel生产排程，多设备，多产品，多班次，不同产能都能实现

xinjiana

e列是设备名称
c列是产品名称
f列是对应产品对应设备的班次产能
g列是订单数量
i列是计算基准
说明：这几列都是计算要用到的，不要删除，也不要添加列，否则无法计算出正确结果
同时，第2,3，4行也是要用于计算的，不要删除，

第二行开始时每天的班次数量，标准是1班

只要这几个地方按照各自需要修改一下，然后按照设备排序就可以实现自动排程了

逻辑不是很复杂，有兴趣的朋友可以自己看看代码

20100518-新增了交货期计算，具体数据在A列

请参考最新的以小时结算的版本，计划数量出现负数的问题已经解决

请参考最新的以小时结算的版本，计划数量出现负数的问题已经解决，计划部分上色及小数问题也解决

最新版本，新增10列备用列，可以输入各种自定义信息，新增10行备用行，可以输入各种自定义信息

计算中的是时间累积错误已经修正，感谢iloveneedyou
生产排程格式-以小时为单位-新增备用列备用行.rar (19.78 KB, 下载次数: 15861)

2010-6-28 13:24 上传

点击文件名下载附件

最新版本，新增自定义开始时间
生产排程格式-以小时为单位-新增自定义开始时间.rar (19.93 KB, 下载次数: 10029)

2010-7-5 13:34 上传

点击文件名下载附件

2010-7-8
最新版本，修改了原来文件中超出排期则重新开始的bug
生产排程格式-以小时为单位-修正了超出排期则自动重新排的bug.rar (19.87 KB, 下载次数: 18494)

2010-7-8 11:28 上传

点击文件名下载附件

260楼的朋友做了点修改，谢谢，需要的朋友可以看看
http://club.excelhome.net/viewth ... &page=26#pid4357841

2011-08-24
最新版本,修改了最后一项只计算一次的bug(就是判断下一行产线为空的时候同事判断本行的差异为0,都符合才退出循环)

修改了超出日产能的bug,修改了不连续排线重新计算工时的bug，增加了定义每个工单的实际开工日期列,这里大家可以根据需要修改下判断语句就好了,在代码里都有说明
可能跟原来的版本个别列有些出入,但是算法还是那个算法,只增加了一个重算工时的数组公式(代码里)，有兴趣的可以看看代码；
测试次数不多,可能还有些小问题
生产排程格式-以小时为单位-修正了超出日产能的bug-并增加了一些新的小功能.zip (55.03 KB, 下载次数: 17006)

2011-8-26 08:29 上传

点击文件名下载附件

2011-09-08
搞错了 8-24版本应该是对的...不好意思,诸位坛友测试的时候有问题请告知,谢谢

         

2011-09-12               
做了一个升级版,有兴趣的朋友可以看看
http://club.excelhome.net/thread-763353-1-1.html

本帖最后由 xinjiana 于 2011-9-8 22:00 编辑


补充内容 (2014-6-5 12:38):
2014-6-5
搞了个群，欢迎大家来提问 329882965

补充内容 (2014-6-5 12:40):

这个补充挺有意思的啊



补充内容 (2014-8-27 17:03):
做了一个改进版
http://club.excelhome.net/thread-1148323-1-1.html

补充内容 (2015-4-2 16:09):
一群已满，请加2群，245517963

补充内容 (2017-2-8 13:52):
欢迎大家加入一群，329882965

补充内容 (2017-3-20 15:26):
新版本发布，http://club.excelhome.net/thread-1335193-1-1.html

补充内容 (2017-3-21 17:19):
最新版本，201703 http://club.excelhome.net/thread-1335409-1-1.html

hkkuup

感谢，学习了！！

李志滔

谢版主加分支持！附件实例基本整理完毕。

zxy8231

下载学习.  谢谢分享!

adfs945

非常专业，学习中

zzq657266102

小白求问，这三个地方的判断代码如何更改

1.    
   
2. 'excel生产排程，多设备，多产品，多班次，不同产能都能实现
   
3. '2011-7-18
   
4. Sub calc()
   
5.     Dim plancount As Double   '计划数量
   
6.     Dim calccount As Double   '合计数量
   
7.     Dim diffcount As Double   '差异
   
8.     Dim machcount As Double   '日产能
   
9.     Dim odrcount As Double    '订单重量
   
10.     Dim odrdiff As Double     '订单差异
    
11.     Dim workclass As Double '工作班次
    
12.     Dim odrsum As Double      '订单合计
    
13.     Application.ScreenUpdating = False
    
14.    
    
15.     Range("U18") = Range("u1")
    
16.    
    
17.     a = Range("iv2").End(xlToLeft).Column '至班次最后一格(第二行,横向)
    
18.     b = Range("O65536").End(xlUp).Row '至产线最后一行(E行,竖向)
    
19.     Range("U19:iv" & b).ClearContents '清除原计划数量
    
20.     Range("U19:iv" & b).Interior.ColorIndex = xlNone
    
21.     Range("a19:a" & b).ClearContents '清除原交期
    
22.     Range("U3:iv3").ClearContents
    
23.    
    
24.     Dim beginrow As Integer
    
25.     Dim begincol As Integer
    
26.    
    
27.     c = 19
    
28.     beginrow = 19
    
29.     begincol = 21
    
30.         
    
31.         If Cells(19, 10) <> "" Then  '如果填写实际生产日期,则按实际生产日期重新排序
    
32.             Range("A19:CT" & b & "").Sort Key1:=Range("J19"), Order1:=xlAscending, Header:=xlGuess, _
    
33.             OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
    
34.             :=xlPinYin, DataOption1:=xlSortNormal
    
35.         End If
    
36.         
    
37.         If Cells(19, 10) <> "" And Cells(i + 1, 15) <> "" Then                                           '第一次判断.根据实际开始日期 还是默认开始日期
    
38.             begincol = Cells(19, 13)
    
39.         End If
    
40.                 For j = begincol To a '第一层循环:是从11到 班次最后一格(横向 循环)
    
41.                 calccount = 0 '合计数量
    
42.                
    
43.                         For i = c To b '第二层循环:是从K9到 K+有数据的最后一格(竖向  循环)
    
44.                                 If i <> 19 Then
    
45.                                     '重新计算当天相同产线的已用工时
    
46.                                     Cells(3, j).FormulaArray = "=SUM(R19C" & j & ":R" & i - 1 & "C" & j & "/R19C16:R" & i - 1 & "C16*IF(R" & i & "C15=R19C15:R" & i - 1 & "C15,1))"
    
47.                                 End If
    
48.                             '这段代码也可用来计算已用工时 数据量大的话效率很低
    
49.                             '                    For k = 19 To i
    
50.                             '                        If k <> i And Cells(k, 15) = Cells(i, 15) Then
    
51.                             '                              Cells(3, j) = Cells(k, j) / Cells(k, 16) + Cells(3, j)
    
52.                             '                       End If
    
53.                             '                    Next
    
54.                             workclass = Cells(4, j) '工作时间
    
55.                             machcount = Cells(i, 16) '产能
    
56.                             plancount = workclass * machcount '计划数量='工作时间*'日产能
    
57.                             diffcount = plancount - calccount '差异=计划数量-合计数量
    
58.                             odrdiff = Cells(i, 20) * -1 '订单差异=J+当前行号
    
59.                            
    
60.                             If odrdiff <= diffcount Then '如: 订单差异<='差异 那么:
    
61.                                 Cells(i, j) = odrdiff '当班计划数=订单差异
    
62.                                 Cells(i, 1) = Cells(18, j) '预计交期=当前完成日期
    
63.                                 Cells(3, j) = odrdiff / machcount   '计算使用时间
    
64.                                 Cells(i, j).Interior.ColorIndex = 6
    
65.                                 '处理值为0的单元格
    
66. '                                            If Cells(i, j).Value = 0 Then
    
67. '                                                Cells(i, j).Value = ""
    
68. '                                                Cells(i, j).Interior.ColorIndex = xlNone
    
69. '                                            End If
    
70. 
    
71.                             Else '如: 订单差异>差异 那么:
    
72.                            
    
73.                                 Cells(i, j) = diffcount '当班计划数=差异
    
74.                                 Cells(i, j).Interior.ColorIndex = 6
    
75. 
    
76.                                     If diffcount < 0 Then '+---如果差异<0
    
77.                                     'Cells(i, j) = 0
    
78.                                         Cells(i, j) = Int((1 - Cells(i - 1, j) / (Cells(2, j) * Cells(i - 1, 16))) * (Cells(2, j) * Cells(i, 16)))
    
79.                                                 If Cells(i, j) >= odrdiff Then
    
80.                                                     Cells(i, j) = odrdiff
    
81.                                                 End If
    
82.                                     End If
    
83.                                         Cells(i, 1) = Cells(18, j) '预计交期=当前完成日期
    
84.                                         Cells(3, j) = Cells(3, j) + Cells(i, j) / machcount
    
85.                                         Cells(i, j).Interior.ColorIndex = 6                     '当班计划数=差异
    
86.                                         calccount = 0 '合计数量
    
87.                                         c = i
    
88.                                          '处理值为0的单元格
    
89. '                                                If Cells(i, j).Value = 0 Then
    
90. '                                                    Cells(i, j).Value = ""
    
91. '                                                    Cells(i, j).Interior.ColorIndex = xlNone
    
92. '                                                End If
    
93.                                     
    
94.                                 Exit For '退出竖向循环,继续横向循环
    
95.                                 End If
    
96.                            
    
97.                            
    
98.                             If Cells(i, 15) <> Cells(i + 1, 15) Then  '如果: 产线号不同,那么:
    
99.                            
    
100.                            
     
101.                                 If Cells(19, 10) <> "" And Cells(i + 1, 15) <> "" Then                      '第二处判断 根据实际开始日期 还是默认开始日期
     
102.                                    begincol = Cells(i + 1, 13)
     
103.                                 End If
     
104.                                 
     
105.                                 j = begincol '从第一行开始算计划数
     
106.                                 calccount = 0 '合计数量归0
     
107.                                 Range("o3:iv3").ClearContents
     
108.                             End If
     
109.                         Next
     
110.                         
     
111.                     If Cells(i + 1, 15) = "" And Cells(i, 20) = 0 Then '判断最后一个产片的计算
     
112.                         Exit For
     
113.                     End If
     
114.                
     
115.                     If j = a Then
     
116.                     j = begincol - 1
     
117.                     
     
118.                     Range("o3:iv3").ClearContents
     
119.                     calccount = 0
     
120.                     
     
121.                         For abc = i To 69
     
122.                         If Cells(i, 15) = Cells(i + 1, 15) Then '如果: 产线号同,那么:
     
123.                         
     
124.                         i = i + 1
     
125.                         ElseIf Cells(i, 15) <> Cells(i + 1, 15) Then
     
126.                         'j = j + 1
     
127.                         
     
128.                         End If
     
129.                         Next
     
130.                     
     
131.                     c = i + 1
     
132.                     End If
     
133.                 If Cells(19, 10) <> "" And Cells(i + 1, 15) <> "" Then                                '第三处判断 .根据实际开始日期 还是默认开始日期
     
134.                     begincol = Cells(i + 1, 13)
     
135.                 End If
     
136.     Next
     
137.     Dim rng As Range
     
138. '处理值为0的单元格
     
139. '    For Each rng In Range(Cells(22, 21), Cells(b, a))
     
140. '        If rng.Value = 0 Then
     
141. '            rng.Value = ""
     
142. '            rng.Interior.ColorIndex = xlNone
     
143. '        End If
     
144. '    Next
     
145.     Application.ScreenUpdating = True
     
146. End Sub
     
147. Sub cl()
     
148.         a = Range("iv2").End(xlToLeft).Column '至班次最后一格(第二行,横向)
     
149.         b = Range("O65536").End(xlUp).Row '至产线最后一行(E行,竖向)
     
150.         Range("U19:iv" & b).ClearContents '清除原计划数量
     
151.         Range("U19:iv" & b).Interior.ColorIndex = xlNone
     
152.         Range("a19:a" & b).ClearContents '清除原交期
     
153.         Range("U3:iv3").ClearContents
     
154. End Sub
     
155.         
     

复制代码

dosheep

好好学习，是不是可以实现，只要录入产品的出货日期进行自动排产

SMT2004

jeffcn9 发表于 2010-10-28 12:49
感谢楼主的分享,我根据自身的需要进行了修改,增加了几个功能,欢迎大家提意见.

SMT行业目前惨淡啊

chen4u

让excel自动排程应该还是力有所不及吧
毕竟用软件的都不能处理好

蜡笔小新a

下载学习.  谢谢分享!