Call 山菊花 & jsxjd & 香川群子老师、根据日程计划自动计算物料需求计划

cbtaja · 发表于 2014-9-3 23:22

本帖最后由 cbtaja 于 2014-9-3 23:35 编辑

Day-Day 发表于 2014-9-3 23:07
万分感谢，但是好像还是有点问题、例如去掉了物料需求表中的 "D-1-3”,为何底下又显示了此物料。
我的意 ...

Sub 更新()
Set dic1 = CreateObject("Scripting.Dictionary") '材料
Set dic2 = CreateObject("Scripting.Dictionary") '产品
r = Sheet2.Cells(Rows.Count, 3).End(3).Row
arr = Sheet2.[c6].Resize(r - 5, 3)
For i = 1 To UBound(arr)
If Len(arr(i, 1)) > 0 Then
dic1(arr(i, 1)) = i
Else
kcl = kcl + 1
dic1("(空材料)_" & kcl) = i
End If
Next
n1 = i -1
With Sheet3
r = .Cells(Rows.Count, 1).End(3).Row - 1
arr = .Range("A2:M" & r + 1) 'BOM数据
End With
For i = 2 To r
If Len(arr(i, 1)) > 0 Then
If dic2.exists(arr(i, 1)) Then
dic2(arr(i, 1)) = Array(dic2(arr(i, 1))(0), i)
Else
dic2(arr(i, 1)) = Array(i, i)
End If
End If
Next
With Sheet1
endrow = .Cells(Rows.Count, 1).End(3).Row - 3
crr = .Range("A4:AK" & endrow + 3) '日程计划数据
End With
ReDim drr(1 To n1, 7 To 38)
For i = 3 To endrow
If Len(crr(i, 1)) > 0 Then
For j = 7 To 37
If crr(i, j) > 0 Then
qz = dic2(crr(i, 1)) '查产品对应BOM表的起止行号数组
For k = qz(0) To qz(1)
If dic1.exists(arr(k, 9)) Then
clxh = dic1(arr(k, 9))
drr(clxh, j) = drr(clxh, j) + arr(k, 13) * crr(i, j)
drr(clxh, 38) = drr(clxh, 38) + arr(k, 13) * crr(i, j)
End If
Next
End If
Next
End If
Next
With Sheet2
.UsedRange.Offset(5, 5).ClearContents
.[f6].Resize(n1, 32) = drr
End With
End Sub

复制代码

yiyiyicz · 发表于 2014-9-4 06:51

本帖最后由 yiyiyicz 于 2014-9-4 06:56 编辑

根据日程计划自动计算物料需求计划
这是比较专业的问题，数学计算在其中仅仅是工具，关键是“如何做计划”需要掌握原理并且灵活运用
你这不是难为“老师”吗？
在生产板块，“桃木剑”擅长这个

说句不好听的，如果要达到实用的程度，在EH中还真没见过切实可行的代码。代码不过500行肯定办不到！

Day-Day · 发表于 2014-9-4 10:26

yiyiyicz 发表于 2014-9-4 06:51
根据日程计划自动计算物料需求计划
这是比较专业的问题，数学计算在其中仅仅是工具，关键是“如何做计划” ...

前辈，言重了！这个只是单层Bom,没有您说得那么复杂。用函数只需要过度一下就能解决了（现已解决），由于数据较大，函数操作有点卡、故拜托前辈们用VB的形式。

Day-Day · 发表于 2014-9-4 10:34

cbtaja 发表于 2014-9-3 23:22

非常感谢老乡的帮助，希望您能在修改一下，如果物料需求表中的”材料名‘’列空白项就不要参与计算了。因为第75行开始为合计上面的数据，另外只需要运算到AJ列即可。Al列需要做一些备注之类的。

香川群子 · 发表于 2014-9-4 10:57

11楼代码应该没问题了。（如果计算量大，还需优化以提高速度）

…………
我这里上一个Microsoft Office Access 数据库的应用。

推荐用数据库解决此类问题。
增添、修改、检索都非常方便，查询结果也可以很方便地转为Excel工作簿文件。

Day-Day · 发表于 2014-9-4 11:04

本帖最后由 Day-Day 于 2014-9-4 11:14 编辑

香川群子发表于 2014-9-4 10:57
11楼代码应该没问题了。（如果计算量大，还需优化以提高速度）

…………

运行没有大问题，希望您能再修改一下，如果物料需求表中的”材料名‘’列空白项（没有材料名）就不要参与计算了。因为第75行开始为合计上面的数据，现有代码自动计算了含空白的材料名列。另外只需要运算到AJ列即可。Al列需要做一些备注之类的。（备注：列不会曾加，可以固定到AJ列，但是行也许要添加新的的物料，所以只要自动计算非空白的物料即可。）

香川群子 · 发表于 2014-9-4 11:31

关于15楼Microsoft Office 的 Access数据库文件，
如果楼主愿意学习、今后逐步使用数据库，我可以慢慢教会楼主。

…………
如果楼主说：算了，我还是一直用Excel+VBA吧……那我就不解释了。呵呵。

Day-Day · 发表于 2014-9-4 11:35

香川群子发表于 2014-9-4 11:31
关于15楼Microsoft Office 的 Access数据库文件，
如果楼主愿意学习、今后逐步使用数据库，我可以慢慢教会 ...

以后慢慢学习啊，但是现在这个比较急啊！还望老师不吝赐教。拜托……烦请帮忙修订一下吧！万分感激！

香川群子 · 发表于 2014-9-4 11:42

Day-Day 发表于 2014-9-4 11:35
以后慢慢学习啊，但是现在这个比较急啊！还望老师不吝赐教。拜托……烦请帮忙修订一下吧！万分感激！

以后慢慢学 = 我不想学啊！

…………
现在这个比较急……11楼【cbtaja】的代码应该没问题。

如果有问题你也可以手工修改一下用起来的。呵呵。

Day-Day · 发表于 2014-9-4 11:46

香川群子发表于 2014-9-4 11:42
以后慢慢学 = 我不想学啊！

…………

关键我们公司现在还没有装Access，并不是不想学习，现在还在学习VBA,循序渐进啊。当前真的非常着急，拜托老是就不要逗我啦！

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

[求助] Call 山菊花 & jsxjd & 香川群子老师、根据日程计划自动计算物料需求计划

点评

浏览过的版块