求产品的成本

rendiule01

已知BOM表是产品结构明细



产品加工费表是固定的




材料表的是子件的采购价，每月是变化的

  现在想计算产品的成本 结果如下下图“

计算产品的费用.zip (17.14 KB, 下载次数: 12)

2024-3-4 13:27 上传

点击文件名下载附件

订正下：
成本计算.zip (29.78 KB, 下载次数: 3)

2024-3-5 09:51 上传

点击文件名下载附件

taller

B001,A001,A002材料费不对吧，请楼主核实

taller

1. Option Explicit
   
2. 
   
3. Sub SqlQuery()
   
4.     Dim conn As Object, rst As Object, strSQL$, i&, PathStr$, sht As Worksheet
   
5.     Set conn = CreateObject("ADODB.Connection")
   
6.     Set rst = CreateObject("ADODB.Recordset")
   
7.     PathStr = ThisWorkbook.FullName
   
8.     Select Case Application.Version * 1
   
9.         Case Is <= 11
   
10.             conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & PathStr & ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=0'"
    
11.         Case Is >= 12
    
12.             conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties='Excel 12.0;HDR=Yes;IMEX=0'"
    
13.     End Select
    
14.     strSQL = "select t1.*, t2.加工费, t2.加工费+t1.材料费 as 合计 from (select 产品, sum(cost) as 材料费 from (SELECT b.*, m.单价*b.用量 as cost FROM [BOM$] AS b INNER join [材料费$] as m on b.子件=m.原料) group by 产品) as t1 left join [产品加工费$] as t2 on t1.产品=t2.产品"
    
15.     rst.Open strSQL, conn, 1, 1
    
16.     Set sht = Worksheets.Add(ActiveSheet)
    
17.     With sht
    
18.         For i = 0 To rst.Fields.Count - 1
    
19.             .Cells(1, i + 1) = rst.Fields(i).Name
    
20.         Next i
    
21.         .Range("a2").CopyFromRecordset rst
    
22.     End With
    
23.     rst.Close:    conn.Close:    Set conn = Nothing:    Set rst = Nothing
    
24. End Sub
    
25. 
    

复制代码

taller

rendiule01

taller 发表于 2024-3-4 14:45
B001,A001,A002材料费不对吧，请楼主核实

是错了，加工费没有累计：

F001： 由150个G001和100个J001组成；

G001的数量*材料费=150*20=3000

J001的数量*材料费=100*10=1000

F001：

材料费：3000+1000=4000

加工费：1.5

合计：4001.5

B001 由100个E001和100个F001组成；

E001 数量*材料费=100*10=1000

F001 数量*材料费=100*4000=400000  数量*加工费=100*1.5=150

B001：

材料费：400000+1000=401000

加工费：1.5*100+2=152

合计：401152

A001 由10个B001 和20个C001和10个D001组成

B001 数量*材料费=10*401000=4010000  数量*加工费=10*152=1520

C001 数量*材料费=20*10=200

D001 数量*材料费=10*20=200

A001:

材料费：4010000+200+200=4010400

加工费：1520+ 1=1521

合计：4011921

A002 由20个B001 和10个C001和10个D001组成

B001 数量*材料费=20*4010000=8020000  数量*加工费=20*152=3040

C001 数量*材料费=10*10=100

D001 数量*材料费=10*20=200

A002:

材料费：8020000+100+200=8020300

加工费：3040+ 1.2=3041.2

合计：8023341

成本计算.zip (29.78 KB, 下载次数: 14)

2024-3-5 09:53 上传

点击文件名下载附件

rendiule01

taller 发表于 2024-3-4 14:50

你的产品的bom 没有累计加 下层的子件的成本

qdtzq

感觉用递归比较合适

rendiule01

qdtzq 发表于 2024-3-4 15:25
感觉用递归比较合适

不知道，怎样递归

qdtzq

rendiule01 发表于 2024-3-5 09:55
不知道，怎样递归

代码没有优化，仅供参考。