MRP(VBA系列):4.得到每天的净欠料-CSDN博客

本文链接：https://blog.csdn.net/bosney/article/details/136836087

本文介绍了如何使用VBScript代码在Excel中实现Netshortage功能，以适应JIT（JustInTime）和频繁供应的MilkRUN模式，通过计算前一天和当天的库存差异来实时调整欠料情况。

摘要由CSDN通过智能技术生成

此功能非常适用于JIT和Milk RUN，交货及其频繁的供应方式！

首先，我们看看结果：

使用以上的信息，直接发给供应商，只要提前一/二天，交货负数数量，就可以满足生产！

代码：

'Net shortage只需要在Shortage的基础上修改就可以了
'原理就是读取某天的数据，如果前一天正数/0，自己正数/0，那么这一天不欠料
'如果前一天正数，自己负数，那么欠数就是自己（不用考虑新增）
'如果前一天是负数，自己肯定是负数，求出新增数量，后-前

ReDim irr(1 To UBound(frr), 1 To UBound(frr, 2))

For i = 1 To UBound(frr)
    For j = 1 To 6
        irr(i, j) = frr(i, j)
    Next
Next
    
For i = 1 To UBound(frr)
    For j = 7 To UBound(frr, 2)
        If frr(i, j - 1) >= 0 Then
            If frr(i, j) >= 0 Then
                irr(i, j) = 0
            Else
                irr(i, j) = frr(i, j)
            End If
        Else
            irr(i, j) = frr(i, j) - frr(i, j - 1)
        End If
    Next
Next

Sheets("Net").[a:a].NumberFormatLocal = "@"
Sheets("Net").[1:1].NumberFormatLocal = "m/d"
Sheets("Net").[a1].Resize(1, UBound(tl) + 1) = tl
Sheets("Net").[G1].Resize(1, UBound(dat, 2)) = dat
Sheets("Net").[a2].Resize(UBound(irr), UBound(irr, 2)) = irr