如何利用VBA（或函数）根据库存数和BOM清单，计算出生产成品的数量

opiona

1.     Set SH0 = Sheets("BOM&物料库存")
   
2.     Set SH1 = Sheets("齐套")
   
3.    
   
4.     Str_coon = "HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2003，2007 通用
   
5.     For IROW = 2 To SH1.Range("A65536").End(3).Row
   
6.         StrSQL = "SELECT MIN(产品个数) AS 最少个数"
   
7.         StrSQL = StrSQL & " FROM ("
   
8.         StrSQL = StrSQL & "SELECT 物料代码,物料库存数,配套后剩余物料库存库存"
   
9.         StrSQL = StrSQL & "," & SH1.Cells(IROW, 1).Value & " AS 产品耗费"
   
10.         StrSQL = StrSQL & ",INT(物料库存数/" & SH1.Cells(IROW, 1).Value & ") AS 产品个数"
    
11.         StrSQL = StrSQL & " FROM [" & SH0.Name & "$A2:F]"
    
12.         StrSQL = StrSQL & " WHERE " & SH1.Cells(IROW, 1).Value & ">0"
    
13.         StrSQL = StrSQL & ") "
    
14.         SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, False)
    
15.         
    
16.         SH1.Cells(IROW, 2).Value = SQLARR(0, 0)
    
17.     Next

复制代码

opiona

计算产品配套数量.rar (28.25 KB, 下载次数: 199)

2018-4-14 17:43 上传

点击文件名下载附件

ggmmlol

opiona 发表于 2018-4-14 17:43

按楼主的第2个条件，当为A产品齐套了4个成品之后，需要对库存数量做相应的出库预减之后，才能进行下一个产品的齐套计算。

蓝桥玄霜

R10200104物料库存数=4，A产品做4个以后，B产品就做不成了，是不是需要这样考虑？

一把小刀闯天下

''就是一个文字题，怎么理解怎么写。结果为4、4、6

Option Explicit

Sub test()
  Dim i, j, t, arr
  arr = Sheets("BOM&物料库存").[a1].CurrentRegion
  ReDim brr(1 To 3, 1 To 1)
  For i = 1 To 3
    brr(i, 1) = 10 ^ 8
    For j = 3 To UBound(arr, 1)
      If arr(j, i + 3) > 0 Then
        t = Int(arr(j, 2) / arr(j, i + 3))
        If brr(i, 1) > t Then brr(i, 1) = t
      End If
  Next j, i
  Sheets("齐套").[b2].Resize(UBound(brr, 1)) = brr
End Sub

hogan0911

没有考虑占料，以上计算都没用

1021987999

蓝桥玄霜 发表于 2018-4-15 10:56
R10200104物料库存数=4，A产品做4个以后，B产品就做不成了，是不是需要这样考虑？

我理解的是：
1.A，B，C产品不等于0的对应的原料是 ABC产品的配方，利用现在的库存，分别算出 A ,B,C各产品的套数，至于 他要做什么样的产品，就不管了
2.反之，如果库存不满足 A B C各产品的BOM用量，就不求出产品套数

我觉得可以改变以下表的形式
把标准配方放一个表：A产品+料号+数量
                                B产品+料号+数量
                                C产品+料号+数量
物料库存为一个表：料号+数量

xiyi0519

一把小刀闯天下 发表于 2018-4-15 11:23
''就是一个文字题，怎么理解怎么写。结果为4、4、6

Option Explicit

能做一个可以扣减已配套物料，再继续计算配套数吗