ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
楼主: michaelaa

[求助] 紧急求助大师BOM需展开

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-11 09:19 | 显示全部楼层
liulang0808 发表于 2019-1-10 21:19
不好意思,跟楼主不是一个专业的,对bom不了解的,所以还是看不大懂的

老师,

这个代码可以实现,但是如果品名重复的,只能读取最前面的那个,我想实现顺序的,用Find也是只能读取一条
Sub dsmch()
Dim arr, brr, crr, d, i&, j%, k%, s&
Set d = CreateObject("scripting.dictionary")
arr = Sheet1.Range("c1").CurrentRegion
brr = Sheet2.Range("f1").CurrentRegion
ReDim crr(1 To 60000, 1 To 6)
For i = 2 To UBound(brr)
    d(brr(i, 1)) = d(brr(i, 1)) & "," & i
Next
For i = 2 To UBound(arr)
    x = Split(d(arr(i, 1)), ",")
    For j = 1 To UBound(x)
        s = s + 1: s2 = Val(x(j))
        For k = 1 To UBound(brr, 2)
            crr(s, k) = brr(s2, k)
        Next
        crr(s, 5) = arr(i, 4) * crr(s, 3)
        crr(s, 6) = arr(i, 2)
    Next
Next
Sheet3.Activate
[j3:o20000].Clear
Range("j3").Resize(s, 6) = crr
[o:o].NumberFormatLocal = "m""月""d""日"";@"
End Sub

TA的精华主题

TA的得分主题

发表于 2019-1-11 10:16 | 显示全部楼层
  1. Sub test()
  2.     With Sheets("需求展开")
  3.         .Range(.[C3], .Cells(Rows.Count, "H").End(xlUp)).Clear
  4.     End With
  5.     With CreateObject("ADODB.Connection")
  6.         .Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended properties='Excel 8.0;hdr=yes';data source=" & ThisWorkbook.FullName
  7.         Sheets("需求展开").[C3].CopyFromRecordset .Execute("select 母件规格型号,子件规格型号,子件用量,单位,工单数量*子件用量 as 总量,工单开始日期 from [需求$],[BOM1$] where 母件规格型号=产品号")
  8.         .Close
  9.     End With
  10. End Sub
复制代码


TA的精华主题

TA的得分主题

发表于 2019-1-11 10:17 | 显示全部楼层
本帖最后由 dsmch 于 2019-1-11 10:19 编辑

模拟的结果就是重复的
T206DA15        GB/T97.1-2002        9.0000
T206DA15        GB/T97.1-2002        5.0000
子件规格型号有重复到底取哪一个?

TA的精华主题

TA的得分主题

发表于 2019-1-11 10:18 | 显示全部楼层
↓↓↓↓↓

BOM.rar

27.89 KB, 下载次数: 6

评分

参与人数 1鲜花 +2 收起 理由
michaelaa + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-11 11:27 | 显示全部楼层
dsmch 发表于 2019-1-11 10:17
模拟的结果就是重复的
T206DA15        GB/T97.1-2002        9.0000
T206DA15        GB/T97.1-2002     ...

老师不是子件重复就是主件重复,比如说有两个主件T206DA15,我还是要按顺序展开,不是只提取一个,子件都要提取的。
产品号        工单开始日期        工单结束日期        工单数量        未结数量
T206DA15        1月20日        1月30日        100        100
T306DA17        1月21日        1月31日        200        200
T306DA18        1月22日        2月1日        300        300
T306DA19        1月23日        2月2日        400        400
T306DA15        1月24日        2月3日        500        500

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-11 11:29 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-1-11 11:37 | 显示全部楼层
michaelaa 发表于 2019-1-11 11:27
老师不是子件重复就是主件重复,比如说有两个主件T206DA15,我还是要按顺序展开,不是只提取一个,子件都 ...

我的附件有你的模拟结果,请对照结果说明问题

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-11 12:18 | 显示全部楼层
dsmch 发表于 2019-1-11 10:17
模拟的结果就是重复的
T206DA15        GB/T97.1-2002        9.0000
T206DA15        GB/T97.1-2002     ...

谢谢老师,我再看一下,因为你的附件下载了,宏全部丢失了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-11 16:12 | 显示全部楼层

老师,(brr, 2)的子件由于存在纯数字的,我需要转换一下,加'转换成文本,但是我加进去就出错,这加在哪里比较合适?

TA的精华主题

TA的得分主题

发表于 2019-1-11 16:38 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,高效办公专列,每天发车

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

GMT+8, 2019-10-23 19:19 , Processed in 0.077976 second(s), 17 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

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

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

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