[已解决]大神指教如何减去库存表库存

透明世界1987

Desktop.zip (270.59 KB, 下载次数: 8)

2022-4-30 16:36 上传

点击文件名下载附件
大神看下需要实现当处理页表格没处理一次，如果对应辅助列号选择用库存的则自动减去库存表库存后剩余多少自动上去，循环减去
（注意处理页不存储数据的，是一个处理表格，处理好是清空的哦，工厂库存表可放在本机D盘建个库存文件夹

最佳答案

月排行榜 / 总排行榜

zjdh

2022-5-2 11:36

Sub TEST()
    ARR = Range("H2:Z" & Range("B65536").End(3).Row)
    Workbooks.Open ("D:\库存\工厂库存表.xlsm")
    With ActiveWorkbook.ActiveSheet
        BRR = .Range("A2:K" & Range("A65536").End(3).Row)
        For I = 1 To UBound(ARR)
            If ARR(I, 19) = "是" Then
                For J = 1 To UBound(BRR)
                    If ARR(I, 8) = BRR(J, 1) Then
                        If BRR(J, 11) <> "" Then
                            If (BRR(J, 11) - ARR(I, 1)) < 0 Then MsgBox ARR(I, 8) & "的库存量不够！": GoTo 10
                            BRR(J, 11) = BRR(J, 11) - ARR(I, 1)
                        Else
                            If (BRR(J, 10) - ARR(I, 1)) < 0 Then MsgBox ARR(I, 8) & "的库存量不够！": GoTo 10
                            BRR(J, 11) = BRR(J, 10) - ARR(I, 1)
                        End If
                        ARR(I, 19) = "已处理"
                    End If
                Next
            End If
10      Next
        .Range("A2").Resize(UBound(BRR), 11) = BRR
    End With
    ActiveWorkbook.Close True
    Range("H2").Resize(UBound(ARR), 19) = ARR
    MsgBox "处理完毕！"
End Sub

跳转到最佳答案楼层

zjdh

Sub TEST()
    ARR = Range("H2:Z" & Range("B65536").End(3).Row)
    Workbooks.Open (ThisWorkbook.Path & "\工厂库存表.xlsm")
    With ActiveWorkbook.ActiveSheet
        BRR = .Range("A2:K" & Range("A65536").End(3).Row)
        For I = 1 To UBound(ARR)
            If ARR(I, 19) = "是" Then
                For J = 1 To UBound(BRR)
                    If ARR(I, 8) = BRR(J, 1) Then
                        If BRR(J, 11) <> "" Then
                            BRR(J, 11) = BRR(J, 11) - ARR(I, 1)
                        Else
                            BRR(J, 11) = BRR(J, 10) - ARR(I, 1)
                        End If
                        ARR(I, 19) = "已处理"
                    End If
                Next
            End If
        Next
        .Range("A2").Resize(UBound(BRR), 11) = BRR
    End With
    ActiveWorkbook.Close True
    Range("H2").Resize(UBound(ARR), 19) = ARR
    MsgBox "处理完毕！"
End Sub

zjdh

处理页中对应行“K”列会标注“已处理”，若要清除也很简单！

zjdh

工厂库存表与处理页放在同一文件夹。

透明世界1987

zjdh 发表于 2022-5-1 11:07
工厂库存表与处理页放在同一文件夹。

处理页和库存表不能再一个文件夹，因为处理页需要读取其他表格进行工作，要分开放的，谢谢

透明世界1987

zjdh 发表于 2022-5-1 11:07
工厂库存表与处理页放在同一文件夹。

感谢大神，试了基本正常，就是两个问题
第一，不能放在同一个文件夹
第二，有没有可能实现当库存剩余量比如低于30时 处理出现提示库存不足，这样子

zjdh

Sub TEST()
    ARR = Range("H2:Z" & Range("B65536").End(3).Row)
    Workbooks.Open ("D:\库存\工厂库存表.xlsm")
    With ActiveWorkbook.ActiveSheet
        BRR = .Range("A2:K" & Range("A65536").End(3).Row)
        For I = 1 To UBound(ARR)
            If ARR(I, 19) = "是" Then
                For J = 1 To UBound(BRR)
                    If ARR(I, 8) = BRR(J, 1) Then
                        If BRR(J, 11) <> "" Then
                            If (BRR(J, 11) - ARR(I, 1)) < 0 Then MsgBox ARR(I, 8) & "的库存量不够！": GoTo 10
                            BRR(J, 11) = BRR(J, 11) - ARR(I, 1)
                        Else
                            If (BRR(J, 10) - ARR(I, 1)) < 0 Then MsgBox ARR(I, 8) & "的库存量不够！": GoTo 10
                            BRR(J, 11) = BRR(J, 10) - ARR(I, 1)
                        End If
                        ARR(I, 19) = "已处理"
                    End If
                Next
            End If
10      Next
        .Range("A2").Resize(UBound(BRR), 11) = BRR
    End With
    ActiveWorkbook.Close True
    Range("H2").Resize(UBound(ARR), 19) = ARR
    MsgBox "处理完毕！"
End Sub

zjdh

工厂库存表文件存放路径：D:\库存\工厂库存表.xlsm
若库存数不够处理出库数时会提示。

透明世界1987

zjdh 发表于 2022-5-2 11:36
Sub TEST()
    ARR = Range("H2:Z" & Range("B65536").End(3).Row)
    Workbooks.Open ("D:\库存\工厂 ...

请教一下大神，这个库存表不单独存放，放在处理页一个工作簿的话 链接怎么改

zjdh

透明世界1987 发表于 2022-6-1 09:50
请教一下大神，这个库存表不单独存放，放在处理页一个工作簿的话 链接怎么改

是同一个工作簿吗?