VBA多产品先进先出，求大神伸出援手！

Lisianthus1 · 发表于 2024-5-23 11:44

听说VBA可以实现多产品先进先出核算？
本人VBA小白，刚入门还在幼儿园阶段，但是工作需要，急需一个先进先出的代码，实在心有余而力不足，希望各位大神棒棒忙！
已经上传附件，有两个请求：
①需要根据“核算SKU”（已标注橙色），按照先进先出的办法计算出“出库明细表-出库成本”的金额（已标注蓝色）

②另外想多了解一下，可不可以用代码在月末自动生成第4个sheet（“想要的期末库存表”）

chxw68 · 发表于 2024-5-23 12:23

参与一下。

Lisianthus1 · 发表于 2024-5-23 12:32

本帖最后由 Lisianthus1 于 2024-5-23 12:39 编辑

chxw68 发表于 2024-5-23 12:23
参与一下。

感谢大神，请问关于期末库存表的那个，能实现吗？

liulang0808 · 发表于 2024-5-23 12:39

Sub 按钮1_Click()
Set d = CreateObject("scripting.dictionary")
arr = Sheets("入库明细表").UsedRange
For j = 2 To UBound(arr)
      If Not d.exists(arr(j, 4)) Then
         Set d(arr(j, 4)) = CreateObject("scripting.dictionary")
      End If
      d(arr(j, 4))(j) = j
Next j
brr = Sheets("出库明细表").UsedRange
For j = 2 To UBound(brr)
      If d.exists(brr(j, 5)) Then
         For Each k In d(brr(j, 5)).keys
            r = d(brr(j, 5))(k)
            If arr(r, 5) > 0 Then
                  mn = WorksheetFunction.Min(brr(j, 6), arr(r, 5))
                  brr(j, 7) = brr(j, 7) + mn * arr(r, 6)
                  brr(j, 6) = brr(j, 6) - mn
                  arr(r, 5) = arr(r, 5) - mn
                  If brr(j, 6) = 0 Then Exit For
            End If
         Next k
      End If
Next j
[g1].Resize(UBound(brr)) = WorksheetFunction.Index(brr, 0, 7)
End Sub

chxw68 · 发表于 2024-5-23 12:39

修改了一下，库存表同步生成。

liulang0808 · 发表于 2024-5-23 12:40

不知道理解的对不对，供参考

Lisianthus1 · 发表于 2024-5-23 13:20

chxw68 发表于 2024-5-23 12:39
修改了一下，库存表同步生成。

太感谢了！非常值得学习！

Lisianthus1 · 发表于 2024-5-23 13:22

本帖最后由 Lisianthus1 于 2024-5-23 13:24 编辑

chxw68 发表于 2024-5-23 12:39
修改了一下，库存表同步生成。

想请教一下，库龄这块我手动输入公式，执行宏后就没有了，这个要怎么操作才能保留呀
另外数字的格式我设置后，宏执行之后也恢复原样了

longwin · 发表于 2024-5-23 14:02

参与一下：

longwin · 发表于 2024-5-23 14:03

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

[求助] VBA多产品先进先出，求大神伸出援手！