如何根据BOM与成品出库信息自动生成原材料出库信息？

wuyutingisme · 发表于 2016-8-18 15:51

原材料出库信息须自动生成，表格在附件，求助大神！

求助.rar (8.65 KB, 下载次数: 49)

wuyutingisme · 发表于 2016-8-18 17:26

跪求大神指导

c754066602 · 发表于 2016-8-23 11:17

附件。。。。。

pc2084 · 发表于 2016-8-26 11:43

仓库和库存都没有，哪里来的出库呢？
你需要的只是出库的数量，也就是根据BOM计算出来的需求数量吧？

曹银强 · 发表于 2016-8-30 22:11

楼主的表格既然在SHEETS已命名，在SHEET表里没有必要再在第一行合并单元格后设表名。这样做后在表格处理上带来不便，定义数据及变量会变的复杂。

曹银强 · 发表于 2016-8-30 22:18

楼主在定义SHEETS表名时不规范，例如在《成品出库》表名前加了空格，这样在定义 WORKSHEETS(" 成品出库")时前面也要加空格，否则会找不到这个表，楼主在《原材料出库信息表》在表名后多了4个空格，问题同上。

曹银强 · 发表于 2016-8-30 22:20

在未经楼主同意，将表格规范后代码如下

曹银强 · 发表于 2016-8-30 22:20

Sub wl()
arr = Sheets("BOM").UsedRange
brr = Sheets("成品出库").UsedRange
For i = 2 To UBound(brr)
For j = 2 To UBound(arr)
   If brr(i, 2) = arr(j, 1) Then
   With Sheets("原材料出库信息")
   .[A1:D1] = Array("日期", "原料号", "数量", "运用成品")
   n = .Cells(Rows.Count, 1).End(3).Row + 1
   .Cells(n, 1) = brr(i, 1)
   .Cells(n, 2) = arr(j, 2)
   .Cells(n, 3) = arr(j, 3) * brr(i, 3)
   .Cells(n, 4) = brr(i, 2)
   End With
   End If
Next
Next
End Sub

曹银强 · 发表于 2016-8-30 22:23

附上附件，代码在附件里，是否为楼主要求的结果

曹银强 · 发表于 2016-8-30 22:25

如果楼主一定要你上附件的格式，代码做相应的调整即可

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

[求助] 如何根据BOM与成品出库信息自动生成原材料出库信息？