根据订单及BOM运算物料需求，再和实际消耗量对比

adrsswz

我希望做一个物料运算的表格（根据订单表和BOM表生产），，然后生成的数据和实际耗用的进行对比，得出差异额。（具体表格见附件），不知哪位可以指导下，万分谢谢

yiyiyicz

“物料运算表”的工作量就已经相当大了
“生成数据和实际耗用对比，得出差异额”除了工作量不小之外，还需要深入了解企业的实际情况
所以，这种求助过分了
除了编程工作量大之外，还有一个实际问题：

你是不是能随时提供准确的基础数据，如果提供不了准确数据，即使按照要求做出来程序，也无法发挥作用

准确的基础数据包括：1）设计、工艺等的工程数据。2）生产线上实时反馈的数据

这些数据弄准不易，需要方法

普捷信息

http://www.pujiexx.icoc.cc/col.jsp?id=120
文件下载栏目  物料需求分析

adrsswz

yiyiyicz 发表于 2015-6-11 06:22
“物料运算表”的工作量就已经相当大了
“生成数据和实际耗用对比，得出差异额”除了工作量不小之外，还需 ...

你好像理解错误我的意思，我是说根据我的订单和BOM表生成物料需求清单

opiona

1. 
   
2. '*********************************
   
3. '*******  北极狐工作室出品  ******
   
4. '*******  QQ：14885553      ******
   
5. '*********************************
   
6. 
   
7. Sub Opiona()
   
8. 
   
9. 'On Error Resume Next    '// 发生错误，自动执行下一句，就是忽略错误
   
10. Application.ScreenUpdating = False '//关闭屏幕刷新
    
11. Application.DisplayAlerts = False '//关闭系统提示
    
12. t = Timer   '//开始时间
    
13.     Set SH0 = Sheets("BOM")
    
14.     Set SH1 = Sheets("订单表")
    
15.     Set SH2 = Sheets("订单需求分析")
    
16.     SH2.Range("A2:N65536").ClearContents
    
17. 
    
18.     Str_coon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2007
    
19.    
    
20.     StrSQL = "SELECT A.序列,A.产品图号,A.订单编号,A.单位,A.摘要,A.订单数量2"
    
21.     StrSQL = StrSQL & ",B.物料编号,B.物料名称,B.材料,B.规格,B.单位 AS 单位2,B.用量"
    
22.     StrSQL = StrSQL & ",B.用量*A.订单数量2 AS 需要用量 FROM ("
    
23.    
    
24.     StrSQL = StrSQL & "SELECT 序列,产品图号,订单编号,单位,摘要,订单数量2 FROM [" & SH1.Name & "$] WHERE 是否计算='计算' ORDER BY 序列,产品图号,订单编号"
    
25.     StrSQL = StrSQL & ") AS A LEFT JOIN ("
    
26.    
    
27.     StrSQL = StrSQL & "SELECT 产品编号,物料编号,物料名称,材料,规格,单位,用量 FROM [" & SH0.Name & "$] WHERE LEN(产品编号)>0"
    
28.     StrSQL = StrSQL & ") AS B ON A.产品图号=B.产品编号"
    
29.    
    
30.     StrSQL = StrSQL & " ORDER BY A.序列,A.产品图号,A.订单编号"
    
31.    
    
32.     SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, False)
    
33.     SH2.Range("A2").Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR
    
34.    
    
35. Application.ScreenUpdating = True '//恢复屏幕刷新
    
36. Application.DisplayAlerts = True '//恢复系统提示
    
37. MsgBox "一共用时：" & Format(Timer - t, "#0.0000") & " 秒", , "北极狐提示!!"  '//提示所用时间
    
38. End Sub

复制代码

opiona

完整代码见附件 表格.rar (96.33 KB, 下载次数: 451)

2015-6-11 10:17 上传

点击文件名下载附件

chengshanming

路过，做个记号！

kelly_mis

我水平太差，搞不明白

Huaijiu8

opiona 发表于 2015-6-11 10:17
完整代码见附件

弹出错误提示