如何根据物料的最晚交期自动计算物料齐套时间

tsinbin · 发表于 2013-3-18 11:44

本帖最后由 tsinbin 于 2013-3-19 08:28 编辑

如何根据物料的最晚交期自动计算物料齐套时间如附件根据订单号下各产品确认的物料交期，计算出各订单下各产品的齐套时间，并提取最后到料的物料编码。
换一种说法就需要找出所有订单下的产品所需物料最后一个物料到料的时间，和这个物料的编码。不知道这样说大家能否看懂。

天空741230 · 发表于 2013-3-18 12:05

齐套是什么意思？

tsinbin · 发表于 2013-3-18 12:56

本帖最后由 tsinbin 于 2013-3-18 12:58 编辑

齐套，就是物料全部到齐。
举个例子我们要生产一个产品，它的A,B,C 三个部件，
A是，3月20日到
B是， 3/21日到
C是，3月23日到
我们就说这个产品是3月23日齐套。

tsinbin · 发表于 2013-3-18 13:06

本帖最后由 tsinbin 于 2013-3-19 08:29 编辑

请各位大侠多多指点。。

kqboy087 · 发表于 2013-5-19 18:57

同求解，遇到一样的问题

yjh_27 · 发表于 2013-5-19 19:46

参见附件。

shenhaighost · 发表于 2014-11-5 23:14

同求，感觉很需要。

albertwu · 发表于 2014-12-7 21:23

可以使用数据透视表。

chxw68 · 发表于 2014-12-7 22:05

Sub test()
Dim d As Object
Dim r%, i%
Dim arr, brr
Set d = CreateObject("scripting.dictionary")
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 2).End(xlUp).Row
arr = .Range("a2:n" & r)
End With
For i = 1 To UBound(arr)
If Left(arr(i, 3), 1) Like "[!一-龥]" Then
xm = arr(i, 1) & "+" & arr(i, 2)
If Not d.Exists(xm) Then
ReDim brr(1 To 4)
brr(1) = arr(i, 3)
brr(2) = arr(i, 4)
brr(3) = arr(i, 10)
brr(4) = arr(i, 7)
Else
brr = d(xm)
If arr(i, 10) > brr(3) Then
brr(3) = arr(i, 10)
brr(4) = arr(i, 7)
End If
End If
d(xm) = brr
End If
Next
With Worksheets("sheet2")
.Rows("4:" & .Rows.Count).ClearContents
.Range("a:b,d:d").NumberFormatLocal = "@"
.Range("a4").Resize(d.Count, 4) = Application.Transpose(Application.Transpose(d.Items))
End With
End Sub

复制代码

chxw68 · 发表于 2014-12-7 22:07

参见附件。

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

[求助] 如何根据物料的最晚交期自动计算物料齐套时间

最新热点 /1