excel生产计划自动排产表，众所周知excel在我们日常生活中是非常常用的，并且功能非常强大，不管是职场人士还是学生，都会经常需要使用，以下是小编整理的excel生产计划自动排产表分享给大家，希望对大家有帮助。

excel生产计划自动排产表1

1、新建一个excel工作薄，重命名为“生产统计报表”。打开工作薄，把sheet1重命名为“产量记录。sheet2重命名为“产量报表”。

2、在“产量记录”工作表自A1单元格起，输入以下字段名：日期、生产线（机台号/班组）、产品编码、产品名称、规格型号、单位、数量，并录入部分产量记录。

3、在“产量记录”工作表I列添加一个字段“报表周”，在I2单元和输入公式：=if（len（A2）>0，WEEKNUM（A2）—WEEKNUM（YEAR（A2）&"—"&MONTH（A2）&"—"&1）+1，""）。

4、在“产量记录”工作表J列添加一个字段"报表月"。在J2单元格输入公式：=IF（LEN（A2）>0，MONTH（A2），""）。

5、把在“产量记录”工作表的数据透视出去：插入——插入透视表——在弹出的数据透视选项框中把数据区域改为“产量记录！$A：$J”——放置透视表的.位置 选择为现有工作表，并把光标打“位置”的方框里然后点击“产量报表”A4单元格——确定。

6、把“报表月”拉入面字段，“报表周”、"生产线”、"产品编码”、"产品名称”、“规格型号”、“单位”等级七项拉入行字段，“数量”拉入数据区域。行字段并汇总视自己需要而定。

7、现在这个产量报表已经做好了，查看和筛选数据时，打开三角形下接箭头，把里面你需要的数据留下，不需要的数据的前面勾选去掉，点击确定即可。模板做好以后，每天在“产量记录”工作表里面录入数据，查看报表时刷新下透视表就行了。

excel生产计划自动排产表2

excel零基础入门教程

1、首先打开一个Excel表格，可以看到表格分为行和列。行用数字表示，列用字母表示。我们在行1列A（简称A1）中输入一个数据，这时候可以将鼠标箭头放在右下角，会出现一个“+”符号，拖住下拉或是右拉即可填充序列。

2、如果输入的是一个数字，进行拖拉以后可以在整个填充框的右下角选择“自动填充选项”中的“填充序列”，这时候就会变成等差数列了，方便给数据编号。

3、接下来学习如何进行求和。鼠标选中所有要求和的数据，点击Excel菜单栏的“自动求和”选项即可，结果会显示在数据后方。当然也可以用函数进行求和，这里不多加讲解。

4、如果我们要在A1和A2之间插入一个数据要怎么做呢？首先鼠标选中A2，右键选择“插入”，点击“活动单元格下移”，这时候就会在A1和A2之间多出新的一行，可以输入要插入的数据。

5、同理，如果想要删除A2这项数据，可以鼠标选中，右键点击“删除”，选择“下方单元格上移”，即可删除A2数据。

6、如果想对一串没有规则的数据进行从大到小或者从小到大的排序，可以选中这些数据，点击菜单栏的“排序”，选择“升序”或是“降序”，即可将数据进行重新排列了。

五金冲压行业,无ERP系统支撑,如何编制出货&生产&排产&物料需求计划？

无ERP的话，需要看工厂内部的主数据完成到什么情况? 是否有完整的BOM，是否有完整的工艺流程，是否有仓库台账等

建立一个大Excel报表

因为没有ERP，所以我们需要建立一个大Excel报表，把ERP运算的一些资料全部录入到此报表中，然后利用Excel强大的函数运算能力来计算物料需求，排生产计划；此报表中，分为录入报表，和自动报表； 录入就是手工输入进去的数据，自动报表就是Excel中数据透视表或者函数生产的报表；

样表如下：

步骤1：确认订单情况

以下全部以无ERP的原则来说明问题

如企业是订单式生产，需要建立一个订单跟踪台帐Excel，订单的相关信息全部汇总在此表中，做一个类似主数据中的销售订单明细表一样，后续Excel表中就可以用函数引用此订单了，样表如下：

步骤2：物料需求

物料清单（BOM）

把订单汇总表中的产品的物料清单全部汇总在一张表中，里面需求BOM层级，物料用量，物料名称，型号等

样表如下：

步骤3 建立生产计划表

有了订单，有了BOM清单，就可以根据订单交期排生产计划了，利用排产的五大原则与方法排出生产计划

五大方法：

五大原则：

生产计划样表如下：

物料需求

根据BOM可以看出各下阶段物料的用量，然后计算出需求

这里可以看出订单1 11月15日需求100 PCS ，然后各零件需求，这里的需求是分散的，我们再用数据透视步汇总成如下效果

汇总的需求如上，就可根据这个需求再扣减库存

计算出欠料后就可就根据订单情况合理安排生产计划了

仓库每天收发明细建立一个报表，然后每天让人录入

各个报表的联系需要使用人非常熟悉ERP原理，对企业的BOM主数据要求规范也比较高，总得来说，没有ERP不要紧，怕得是工厂内部的主数据资料不全，叫法不一样，一码多物，或多码一物，这才是最致命的。

生产计划人员必须熟练掌握以下函数，或者VBA等

大家好,我是头条号作者,职场问答专家，青牛智能古老师,专注于智能制造生态链综合服务,计划体系改善，有思想、有技术、可信任！更多文章，请点击古老师头像后关注查看；

没有ERP（也就是没有一个既定的规则体系）那就需要各个部门之间充分的配合和协调，其实很多厂商都是做不好的，中国的这个工厂管理还不是那么的严格，或者说我们的工厂管理氛围还不是那么的上规矩。但是也不是没有办法。

制定规则，比如：

用数据说话啊，

每天平均接单多少，然后日产量多少，次日需要发货的数量，每天应该规划承包到具体的人员去统计并且知会给相应的部门；

然后由执行部门去操作，这个中途一定要有跟催，有监督机制，有惩罚制度，否则也还是空谈。

文/江觅

生产排程在生产过程中是一个相对繁杂的工作，用excel来做排程计算，感觉十分困难。其中许多日期和数据计算，关联性比较多，所以存在许多的条件设定。

这个表格可完成5天之内排程计算功能，本想做更多天自动计算排程，但是由于对这方面没有深入体会和实际应用，未能实现，同时应用过程中也难免存在一些没有考虑到的问题。

此表数据完全自动化计算，只需要输入订单数量即可，其它数据会自动计算出来，这是我最满意的方面。

完全自动化也有某些弊端，可操作性虽然简单了，也固化了一些格式，不能自由修改。下一步对一些不可修改项进行处理，可能会更人性化，扩充更多计划排程天数。

设置页相对内容少一些 ，为以后做表单式输入提供自定义参数。

使用自定义参数可以大大降低使用过程中出现的BUG，也是为了更好的操作体验，简化键盘录入操作而制作。虽然在编程过程中增加了很多麻烦，但在程序应用过程中会得到很好的应用便捷。

Private Sub Worksheet_Change(ByVal Target As Range)If VBA.Left(Target.Address, 2) = "$E" Then Dim cr(0 To 4) For i = 0 To 4 cr(i) = "$E$" & i + 2 Next i Dim x As Variant Dim r As Integer, topR As Integer Dim C As Integer, endC As Integer Dim iRow As Integer, iCol As Integer Dim iDay As Variant Dim Pday As Integer Pday = 5 Dim rkeys As Range, iR As Range For Each x In cr If x = Target.Address Then iRow = Target.Row iDay = Me.Range("I" & iRow).Value / Me.Range("K" & iRow).Value If Me.Range("U" & iRow) > iRow Then MsgBox "订单太多，没办法生产！": Exit Sub If iDay > Pday Then MsgBox "计划超出天数!": Exit Sub If Me.Range("K" & iRow).Value > Me.Range("j" & iRow).Value Then MsgBox "产能不足！": Exit Sub If Me.Range("I" & iRow).Value <= 0 Then MsgBox "库存足够,无需排程！": Exit Sub If Me.Range("K" & iRow).Value > Range("I" & iRow).Value Then With Me.Range("P" & iRow & ":T" & iRow) .Value = "" .Interior.Color = RGB(221, 221, 222) End With Me.Range("P" & iRow).Value = Me.Range("I" & iRow).Value With Me.Range("Q" & iRow & ":T" & iRow) .Value = "" .Interior.Color = RGB(221, 221, 222) End With Exit Sub End If Set rkeys = Worksheets("设置").Range("A2:A6") Set iR = rkeys.Find(Me.Range("N" & iRow).Value) If iR Is Nothing Then MsgBox "No": Exit Sub r = iR.Row Select Case r Case 2 topR = 16 Case 3 topR = 17 Case 4 topR = 18 Case 5 topR = 19 Case 6 topR = 20 End Select endC = Me.Range("U" & iRow).Value '''天数 ''''''''''''''''''''''''''''''''''''''''''''''''''''' 清空数据 With Me.Range("P" & iRow & ":T" & iRow) .Value = "" .Interior.Color = RGB(221, 221, 222) End With ''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim s As Integer, xValue As Variant s = endC For i = topR To topR + endC - 1 Me.Cells(iRow, i).Value = Me.Range("K" & iRow).Value With Me.Cells(iRow, i) .Interior.Color = 12354545 End With Next i ' End If Next x Me.Cells(iRow, i - 1).Value = Me.Range("I" & iRow).Value - Me.Range("K" & iRow).Value * (s - 1)End IfEnd Sub