|
1111111
本帖最后由 hasyh2008 于 2022-6-2 19:08 编辑
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
|
|