最近遇到个根据库存齐套排产的问题，用VBA应该能解决，由于小弟才疏学浅，请各位指点

lhong1982 · 发表于 2015-9-23 23:52

最近遇到个根据库存齐套自动排产的问题，由于装置里面有很多相同的插件，为了满足交期，要优先满足最近交期的，不会写程序，请各位指点。

笑着...两年过去 · 发表于 2015-9-24 09:12

需求不是很明确啊，模拟一下结果，发个远程过来看看

复制代码

lhong1982 · 发表于 2015-9-24 20:00

本帖最后由 lhong1982 于 2015-9-24 20:17 编辑

如图

如图，例如C06000000429第一次从库存数量里面取值，然后减去需求数量就会得到余量，然后在隔N行后还会遇到C06000000429，但是它的库存数量会要等于上一个相同编码的余量，以此类推。。。。，
现在有两个问题就是：第一个问题是插件编码如何能判断要去库存数据里面取值；第二个如何判断该插件编码不用再库存数据取值，而要找上个相同编码，然后取余量。

lhong1982 · 发表于 2015-9-24 20:19

笑着...两年过去发表于 2015-9-24 09:12

谢谢，已经把我的一些思路和疑惑发在下面了

笑着...两年过去 · 发表于 2015-9-25 16:02

本帖最后由笑着...两年过去于 2015-9-25 16:24 编辑

Sub test()
Dim dc As Object, arr, yrr, brr(), i
Set dc = CreateObject("scripting.dictionary")
arr = [j1].CurrentRegion
yrr = Range("d2:f" & Range("d65536").End(3).Row)
ReDim brr(1 To UBound(yrr), 1 To 2)
For i = 2 To UBound(arr)
dc(arr(i, 1)) = dc(arr(i, 1)) + arr(i, 2)
Next
For i = 1 To UBound(yrr)
If dc.exists(yrr(i, 1)) Then brr(i, 1) = dc(yrr(i, 1)): dc(yrr(i, 1)) = dc(yrr(i, 1)) - yrr(i, 3): brr(i, 2) = dc(yrr(i, 1))
Next
[g2].Resize(UBound(yrr), 2) = brr
End Sub

复制代码

lhong1982 · 发表于 2015-9-29 19:09

本帖最后由 lhong1982 于 2015-9-29 19:39 编辑

笑着...两年过去发表于 2015-9-25 16:02

谢谢，本人是VBA菜鸟，刚学，有很多不明白，以后还请前辈多多指教。{:soso_e183:}

chengshanming · 发表于 2016-5-25 12:00

笑着...两年过去发表于 2015-9-25 16:02

笑着...两年过去大师好！能否反逻辑过来，根据原材库存数量、BOM用量、生产成品的先后顺序来推测出能生产成品的最大数量吗？如图，其中余料栏不结果不能为负数，也就是成品最大数量为其所有原材料齐套数的最小数量。谢谢！

chengshanming · 发表于 2016-5-25 12:35

chengshanming 发表于 2016-5-25 12:00
笑着...两年过去大师好！能否反逻辑过来，根据原材库存数量、BOM用量、生产成品的先后顺序来推测出能生 ...

请见附件！如何用VBA来替代公式

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

[求助] 最近遇到个根据库存齐套排产的问题，用VBA应该能解决，由于小弟才疏学浅，请各位指点