求助计算物料需求数量

cx_912 · 发表于 2017-9-9 23:14

各位大神，求助根据BOM和生产计划表，
计算出指定物料的每日需求数量。

找了几位前辈做的类似实例，发现还不是我想要的。

请哪位老师帮助一下。

因为实际BOM数据量大，所以希望尽可能函数简单一点，运算速度快一点的

谢谢~~

表格格式和要求详见附件

uynayna · 发表于 2017-9-11 12:40

函数比较难吧，mrp运算还是用vba吧。

cx_912 · 发表于 2017-9-11 19:24

uynayna 发表于 2017-9-11 12:40
函数比较难吧，mrp运算还是用vba吧。

vba就更不懂了
还请老师指点

uynayna · 发表于 2017-9-11 20:18

我不是老师，首先说一下表结构，我使用用友U8，MRP是自动运算的，生产计划在U8里面，字段名分别是生产部门，机型编码，数量，开始日期，结束日期等，你这个是报表格式，不利于计算。BOM结构你的第二种方案父子结构和一般ERP结构相似。物料需求应该是按天生成，当然还要有个现存量表。数据结构甚至比程序重要，我的看法啊。

504373 · 发表于 2017-9-11 21:43

参考这个，可以比较快速的计算出生产计划的物料需求
http://club.excelhome.net/thread-1297278-1-1.html

cx_912 · 发表于 2017-9-14 09:00

uynayna 发表于 2017-9-11 20:18
我不是老师，首先说一下表结构，我使用用友U8，MRP是自动运算的，生产计划在U8里面，字段名分别是生产部门 ...

谢谢~
我理解系统数据表结构跟excel报表的结构可能不一样，
因为实际工作中系统数据的滞后性和库存数据的差异，
我想线下手工管理所负责的物料需求。

目前我给出的表的结构，是能够直接得到的数据表结构，
也可以根据需要调整的。

大神帮忙看一下吗~~

uynayna · 发表于 2017-9-14 11:49

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect([i2:am2], Target) Is Nothing Then
l = Target.Column
h = Target.Row
Dim bomrr, mrprr
bomrr = Sheets("BOM").Range("a23:d42")
mrprr = Sheets("MRP").Range("a4:ag13")
With Sheets("物料需求")
r = .Range("a65536").End(xlUp).Row
For i = 3 To r Step 3
wlrr = Sheets("物料需求").Cells(i, l)
xh = .Cells(i, 1).Value
wlrr = 0
For j = 1 To UBound(mrprr)
If mrprr(j, l - 5) <> 0 Then
For m = 1 To UBound(bomrr)
If bomrr(m, 3) = mrprr(j, 1) And xh = bomrr(m, 1) Then
wlrr = wlrr + bomrr(m, 4) * mrprr(j, l - 5)
End If
Next
End If
Next
.Cells(i, l) = wlrr
Next
End With
End If
End Sub

复制代码

复制到”物料需求”工作表，点击日期，自动生成物料需求。

cx_912 · 发表于 2017-9-15 22:27

uynayna 发表于 2017-9-14 11:49
复制到”物料需求”工作表，点击日期，自动生成物料需求。

OMG
怎么复制到工作表？不是太明白。
跪求说的详细些，
谢谢~~

uynayna · 发表于 2017-9-15 23:05

右键点击工作表名，查看代码，复制进去。

uynayna · 发表于 2017-9-15 23:33

		自动登录	找回密码
密码			免费注册

[求助] 求助计算物料需求数量

评分