BOM智能计算

lsfeng · 发表于 2013-9-14 12:30

本帖最后由 lsfeng 于 2013-9-14 16:43 编辑

蓝桥玄霜发表于 2013-9-14 12:12
请介绍一下Week1,Part No=355408975时，D2=？，是怎么计算的。
第2个问题已经解决。

=[MPS1.xls]Sheet1!$C$2*0+[MPS1.xls]Sheet1!$C$3*[ABC007.xls]Sheet1!$D$2+[MPS1.xls]Sheet1!$C$4*0

因为 EFG003与WHU123不用355408975

如果增加WHU456.XLS，就再加上如下（参照WHU456.XLS 的绿色）

+[WHU456.xls]Sheet1!$D$20*[MPS1.xls]Sheet1!$C$5

以此类推
感谢！
我前一个公式搞错了！！！！！不好意思。

lsfeng · 发表于 2013-9-14 13:27

蓝桥玄霜发表于 2013-9-14 12:13
请见附件。

问题：

这个程序好像不能在BOM文件夹下面继续自动增加新的 BOM如 HHH0987.xls,麻烦您再试一下

蓝桥玄霜 · 发表于 2013-9-14 15:05

lsfeng 发表于 2013-9-14 12:30
=[MPS1.xls]Sheet1!$C$2*[EFG003.xls]Sheet1!$D$2+[MPS1.xls]Sheet1!$C$3*[ABC007.xls]Sheet1!$D$2+[MP ...

你的算法不对吧。
[EFG003.xls]Sheet1!$D$2对应的A2=355408977
[ABC007.xls]Sheet1!$D$2对应的A2=355408975
[WHU123.xls]Sheet1!$D$2对应的A2=355408977
而结果表A2是355408975？
所以我的计算是对的。

lsfeng · 发表于 2013-9-14 16:25

本帖最后由 lsfeng 于 2013-9-14 17:06 编辑

蓝桥玄霜发表于 2013-9-14 15:05
你的算法不对吧。
[EFG003.xls]Sheet1!$D$2对应的A2=355408977
[ABC007.xls]Sheet1!$D$2对应的A2=35540 ...

老师，我前面的公式搞错了，没看到355408975这个料，有2个BOM里面不包含（已经改了）

解释：MPS是生产计划，EFG003 ,ABC007 ,WHU123 是要生产的具体型号其中包含该型号需用的原材料
如Week 1 ，EFG003，ABC007，WHU123分别生产10套，20套，30套，那么需用355408977这个零件
分别为：EFG003---10*3=30；ABC007---20*2=40；WHU123---30*1=30，总共355408977，需要30+40+30=100个
其它的Part No按同样的道理求和。如另外一个Part No 355408975

于Week1 的需求就是：
Week 1 ，EFG003，ABC007，WHU123分别生产10套，20套，30套

Part No 355408975=10*0（因为EFG003，不用这个Part No)+20*2+30*0(WHU123也不用这个Part No)=40个

新产生的问题：你试着在BOM文件夹再随便增加一个新的BOM（比如用前面几个BOM没用到的 Part No,好像不会在ReqQty1中自动增加了

对不起，我前面的公式搞错了！！已经改过来了！

我打包所有的文件夹MPS.RAR ，请参见附件

lsfeng · 发表于 2013-9-14 17:25

蓝桥玄霜发表于 2013-9-14 15:05
你的算法不对吧。
[EFG003.xls]Sheet1!$D$2对应的A2=355408977
[ABC007.xls]Sheet1!$D$2对应的A2=35540 ...

这里传上计算过程说明，请查看，谢谢！

lsfeng · 发表于 2013-9-14 20:15

蓝桥玄霜发表于 2013-9-14 15:05
你的算法不对吧。
[EFG003.xls]Sheet1!$D$2对应的A2=355408977
[ABC007.xls]Sheet1!$D$2对应的A2=35540 ...

你的对应关系是对的，但结果相差很多倍

1）你增加几个BOM进去测试一下
2）先用一个BOM的数据进行测试，再增加若干个进去试一试就会发现问题

谢谢！

蓝桥玄霜 · 发表于 2013-9-14 20:53

现在先测试附件对不对。
或者就这几个文件，你做一个答案出来看看。

lsfeng · 发表于 2013-9-14 22:15

本帖最后由 lsfeng 于 2013-9-14 22:26 编辑

蓝桥玄霜发表于 2013-9-14 20:53
现在先测试附件对不对。
或者就这几个文件，你做一个答案出来看看。

上一个HHH00987.xls 中的Desc 有重复，现已重传

再加一个测试新BOM--AddedBOM001.xls, 以便您作为增加新BOM于BOM文件夹测试用

蓝桥玄霜 · 发表于 2013-9-15 11:09

Sub lqxs()
Dim Arr, myPath$, myName$, Arr1, Myr&, d, cs$, d1, k, t
Dim nm$, Brr, y&, m&, dz, d2
Set d = CreateObject("Scripting.Dictionary")
Set d1 = CreateObject("Scripting.Dictionary")
Set dz = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
Sheet1.Activate
cs = "MPS1"
myPath = ThisWorkbook.Path & ""
myName = cs & ".xls"
With GetObject(myPath & myName)
Arr1 = .Sheets(1).Range("A1").CurrentRegion
For i = 2 To UBound(Arr1)
d(Arr1(i, 1)) = d(Arr1(i, 1)) & i & ","
Next
For i = 3 To UBound(Arr1, 2)
dz(Arr1(1, i)) = i
Next
.Close False
End With
k = d.keys: t = d.items
myPath = ThisWorkbook.Path & "\BOM"
myName = Dir(myPath & "*.xls")
Do While myName <> ""
nm = Split(myName, ".")(0)
If d.exists(nm) Then
With GetObject(myPath & myName)
Arr = .Sheets(1).Range("A1").CurrentRegion
For i = 2 To UBound(Arr)
d1(Arr(i, 1) & "|" & nm) = Arr(i, 4)
x = Arr(i, 1) & "," & Arr(i, 2) & "," & Arr(i, 3)
d2(x) = ""
Next
.Close False
End With
End If
myName = Dir
Loop
Cells.ClearContents
[a1].Resize(1, 3) = Array("Part No", "Description", "MU")
[a2].Resize(d2.Count) = Application.Transpose(d2.keys)
Application.DisplayAlerts = False
[a2].Resize(d2.Count).TextToColumns DataType:=xlDelimited, Comma:=True
Range("d1").Resize(1, dz.Count) = dz.keys
Brr = [a1].CurrentRegion
For i = 2 To UBound(Brr)
For j = 4 To UBound(Brr, 2)
For y = 2 To UBound(Arr1)
If d1.exists(Brr(i, 1) & "|" & Arr1(y, 1)) Then
Brr(i, j) = Brr(i, j) + d1(Brr(i, 1) & "|" & Arr1(y, 1)) * Arr1(y, j - 1)
End If
Next
Next
Next
[a1].CurrentRegion = Brr
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

复制代码

蓝桥玄霜 · 发表于 2013-9-15 11:11

还是以BOM文件夹中的4个文件为例子。请见附件。

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

[求助] BOM智能计算