父件子件关系的BOM表格计算方法之一（蓝桥方法）

aileenyao

版主，我经常要做bom成本，都是子件和父件放在一个表里，但是父件直接记为0.单价栏需直接引用另外的价格库的价格。我还想在变动价格库价格的时候，bom成本动态变更，且能按月度输出变化明细和变化总成本的表。不知道能否实现

aileenyao

版主，要是想把每个父件的总和输出到另外一个子表得怎么做。你这样只能做出一个总和，每个小系统的不能体现

Ricky_zhaoo

这个必须学习～谢谢分享！

chengshanming

蓝桥玄霜 发表于 2013-5-29 10:32
请见附件。

蓝桥老师好！有两个问题请教！1.如附件：为何714行开始，成品料号材料成本变成“0”了？2.机器工时汇总，最上层成品的总工时为 下层半成品工时汇总 加上 本层成品（包装、组装）工时，代码改如何改进？谢谢！我的QQ邮箱510902401@qq.com,老师我可以通过邮箱发过来么

chengshanming

chengshanming 发表于 2015-9-26 17:11
蓝桥老师好！有两个问题请教！1.如附件：为何714行开始，成品料号材料成本变成“0”了？2.机器工时汇总， ...

蓝版，请见附件！TKS!

chengshanming

求助实际所需！

chenyin0824

蓝桥老师的作品，下载收藏了

chenyin0824

如何制作bom表

wengen

下载收藏了，谢谢分享

wengen

  特请老大优化一下：金额1　金额2　后面还有　金额3　金额4....,并按　111、110、101...112、113　如上面的排序，特请老大优化一下
    汇总表格式　金额1　金额1号　金额2　金额2号　后面还有　金额3　金额3号....,
    x = Range("M2").Value '日期
      X1 = Range("M3").Value'日期
       y = Range("P3").Value
       YY = Year(x) & Format(Month(x), "00") & "' and format(消费日期,'yyyymm') <= '" & Year(X1) & Format(Month(X1), "00")
  Dim arr
        
      Set cnn = CreateObject("adodb.connection")
   cnn.Open "provider=microsoft.jet.oledb.4.0;data source =" & ThisWorkbook.path & "\系统数据库.mdb" '员工11金额11产品
     SQL111 = "SELECT sum(金额1) as 金额1 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额1号　like '" & 111 & "' HAVING 金额1号 "
     SQL110 = "SELECT sum(金额1) as 金额1 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额1号　like '" & 110 & "' HAVING 金额1号 "
     SQL101 = "SELECT sum(金额1) as 金额1 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额1号　like '" & 101 & "' HAVING 金额1号 "
     SQL102 = "SELECT sum(金额1) as 金额1 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额1号　like '" & 102 & "' HAVING 金额1号 "
     SQL103 = "SELECT sum(金额1) as 金额1 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额1号　like '" & 103 & "' HAVING 金额1号 "
     
     SQL104 = "SELECT sum(金额1) as 金额1 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额1号　like '" & 104 & "' HAVING 金额1号 "
     SQL105 = "SELECT sum(金额1) as 金额1 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额1号　like '" & 105 & "' HAVING 金额1号 "
     SQL106 = "SELECT sum(金额1) as 金额1 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额1号　like '" & 106 & "' HAVING 金额1号 "
     SQL107 = "SELECT sum(金额1) as 金额1 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额1号　like '" & 107 & "' HAVING 金额1号 "
     SQL109 = "SELECT sum(金额1) as 金额1 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额1号　like '" & 109 & "' HAVING 金额1号 "
     SQL112 = "SELECT sum(金额1) as 金额1 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额1号　like '" & 112 & "' HAVING 金额1号 "
     
     Set rs = New ADODB.Recordset
      SQL = "select a.洗剪额,b.洗剪额,c.洗剪额,d.洗剪额,e.洗剪额,f.洗剪额,g.洗剪额,h.洗剪额,i.洗剪额,j.洗剪额,k.洗剪额 from (" & SQL111 & ") a,(" & SQL110 & ") b,(" & SQL101 & ") c,(" & SQL102 & ") d,(" & SQL103 & ") e,(" & SQL104 & ") f ,(" & SQL105 & ") g,(" & SQL106 & ") h,(" & SQL107 & ") i,(" & SQL109 & ") j,(" & SQL112 & ") k "
      rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
      arr = cnn.Execute(SQL).GetRows
      Range("D6").Resize(UBound(arr) + 1, UBound(arr, 2) + 1) = arr '行转列保存
      
      Set cnn = CreateObject("adodb.connection")  '
   cnn.Open "provider=microsoft.jet.oledb.4.0;data source =" & ThisWorkbook.path & "\系统数据库.mdb" '
     SQL111 = "SELECT sum(金额2) as 金额2 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额2号 like '" & 111 & "' HAVING 金额2号 "
     SQL110 = "SELECT sum(金额2) as 金额2 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额2号 like '" & 110 & "' HAVING 金额2号 "
     SQL101 = "SELECT sum(金额2) as 金额2 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额2号 like '" & 101 & "' HAVING 金额2号 "
     SQL102 = "SELECT sum(金额2) as 金额2 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额2号 like '" & 102 & "' HAVING 金额2号 "
     SQL103 = "SELECT sum(金额2) as 金额2 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额2号 like '" & 103 & "' HAVING 金额2号 "
     
     SQL104 = "SELECT sum(金额2) as 金额2 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额2号 like '" & 104 & "' HAVING 金额2号 "
     SQL105 = "SELECT sum(金额2) as 金额2 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额2号 like '" & 105 & "' HAVING 金额2号 "
     SQL106 = "SELECT sum(金额2) as 金额2 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额2号 like '" & 106 & "' HAVING 金额2号 "
     SQL107 = "SELECT sum(金额2) as 金额2 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额2号 like '" & 107 & "' HAVING 金额2号 "
     SQL109 = "SELECT sum(金额2) as 金额2 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额2号 like '" & 109 & "' HAVING 金额2号 "
     SQL110 = "SELECT sum(金额2) as 金额2 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额2号 like '" & 110 & "' HAVING 金额2号 "
     SQL112 = "SELECT sum(金额2) as 金额2 FROM 营业额  where format(消费日期,'yyyyMM') >= '" & YY & "' and 金额2号 like '" & 112 & "' HAVING 金额2号 "
      
     Set rs = New ADODB.Recordset
      SQL = "select a.设计额,b.设计额,c.设计额,d.设计额,e.设计额,f.设计额,g.设计额,h.设计额,i.设计额,j.设计额,k.设计额 from (" & SQL111 & ") a,(" & SQL110 & ") b,(" & SQL101 & ") c,(" & SQL102 & ") d,(" & SQL103 & ") e,(" & SQL104 & ") f ,(" & SQL105 & ") g,(" & SQL106 & ") h,(" & SQL107 & ") i,(" & SQL109 & ") j,(" & SQL112 & ") k "
      rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
      arr = cnn.Execute(SQL).GetRows
      Range("E6").Resize(UBound(arr) + 1, UBound(arr, 2) + 1) = arr '行转列保存

特请老大优化一下：金额1　金额2　后面还有　金额3　金额4....,并按　111、110、101...112、113 如上面的排序，特请老大优化一下
汇总表格式　金额1　金额1号　金额2　金额2号　后面还有　金额3　金额3号....,