大神解决一下自动减去库存的问题。谢谢

透明世界1987

解决工厂库存表.zip (343.97 KB, 下载次数: 5)

2022-6-1 15:00 上传

点击文件名下载附件

透明世界1987

自己盖楼，顶上去，大神帮忙看看

hasyh2008

Sub 计算库存()
  Dim Arr, Brr
  Dim Arc%, Brc%, K%
  Arr = Sheets("处理页").Range("A1").CurrentRegion
  Brr = Sheets("工厂库存表").Range("A1").CurrentRegion
  For Arc = 2 To UBound(Arr)
    For Brc = 2 To UBound(Brr)
      If Arr(Arc, 19) = "库存" And Arr(Arc, 3) = Brr(Brc, 2) Then
        If Brr(Brc, 11) < 3 Then MsgBox Brr(Brc, 2) & "的库存数为" & Brr(Brc, 11) & "，已小于3！"
        If Brr(Brc, 11) = "" Then
            Brr(Brc, 11) = Brr(Brc, 10) - Arr(Arc, 8)
        Else
            Brr(Brc, 11) = Brr(Brc, 11) - Arr(Arc, 8)
        End If
      End If
    Next Brc
  Next Arc
  Sheets("工厂库存表").Range("A1").Resize(UBound(Brr), UBound(Brr, 2)) = Brr
End Sub