ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 584|回复: 4

[求助] BOM表需求计算

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-12-26 15:35 | 显示全部楼层 |阅读模式
根据BOM表用量和订单数量,计算出每一个订单同一个型号同种颜色的每一个部件用量

BOM需求计算.zip

345.72 KB, 下载次数: 34

TA的精华主题

TA的得分主题

发表于 2020-12-26 21:34 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2020-12-26 22:50 | 显示全部楼层
Sub test()
    Dim dc1, dc2, arr, brr, aa, bb, ys, ddh, str, i, m
    Set dc1 = CreateObject("Scripting.Dictionary")
    Set dc2 = CreateObject("Scripting.Dictionary")
    arr = Sheet1.[A2].CurrentRegion
    For i = 3 To UBound(arr)
        aa = arr(i, 1)
        bb = arr(i, 2)
        If Not dc1.Exists(aa) Then
            Set dc1(aa) = CreateObject("Scripting.Dictionary")
        End If
        dc1(aa)(bb) = i
    Next
   
    brr = Sheet2.[A1].CurrentRegion
   
    m = 0
    For i = 3 To UBound(brr)
        str = brr(i, 2) & "|" & brr(i, 3) & "|" & brr(i, 7)
        If Not dc2.Exists(str) Then
            m = m + dc1(brr(i, 3)).Count
        End If
        dc2(str) = dc2(str) + brr(i, 5)
    Next
   
    ReDim brr(1 To m, 1 To 10)
   
    m = 0
    For Each str In dc2.keys
        dd = Split(str, "|")
        aa = dd(1)
        For Each bb In dc1(aa).keys
            m = m + 1
            brr(m, 1) = aa
            brr(m, 2) = bb
            brr(m, 3) = arr(dc1(aa)(bb), 3)
            brr(m, 4) = arr(dc1(aa)(bb), 4)
            brr(m, 5) = arr(dc1(aa)(bb), 5)
            brr(m, 6) = arr(dc1(aa)(bb), 6)
            brr(m, 7) = dc2(str)
            brr(m, 8) = brr(m, 6) * brr(m, 7)
            brr(m, 9) = dd(2)
            brr(m, 10) = dd(0)
        Next
    Next
    Sheet4.[A3].Resize(UBound(brr), 10) = brr
End Sub

BOM需求计算.zip

270.94 KB, 下载次数: 22

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2021-9-26 16:06 来自手机 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2021-9-26 17:18 | 显示全部楼层
  1. Sub test()
  2.     Dim Cn, Rs, sql$
  3.     Set Cn = CreateObject("ADODB.Connection")
  4.     Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
  5.     sql = "SELECT a.型号,a.部件,a.编号,a.[尺寸(长*宽*高)],a.单位,a.用量,b.订单总数量,a.用量*b.订单总数量 AS 钢架需求数,b.颜色,b.订单号 FROM [BOM$a3:g]a, " & _
  6.         "(SELECT 订单号,[我司型号/产品型号] AS 型号,钢架 AS 颜色,SUM(数量) AS 订单总数量 FROM [订单$] GROUP BY 订单号,[我司型号/产品型号],钢架)b " & _
  7.         "WHERE a.型号=b.型号 ORDER BY b.订单号,a.型号,a.编号"
  8.     Set Rs = Cn.Execute(sql)
  9.     With Sheets("需求计算")
  10.         .[a2].CurrentRegion.Offset(1).ClearContents
  11.         .[a3].CopyFromRecordset Rs
  12.     End With
  13. End Sub
复制代码
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 00:16 , Processed in 0.035914 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表