bom表汇总

junjinling

大家新年好。

我需要在"details“的表中的H1单元格，输入1至一系列数字，然后”details“的数据会更新（较慢）
我需要这这些更新的数据，汇总到一个新表格内。
需要汇总的数据是 成型材料费，以及 使用材料费
请大家帮帮我。。。我搞半天了，没搞定。。。
一个一个登录，然后一个一个复制，太麻烦了。。。
感谢

于箱长

占楼，围观

liulang0808

在"details“的表中的H1单元格，输入1至一系列数字，然后”details“的数据会更新（较慢）
因为文件内有大量公式，所以会比较慢的，具体看楼主怎么去调整数据关系，考虑下公式

需要这这些更新的数据，汇总到一个新表格内
汇总到新表格，这个新表格是哪个表格？具体数据对应关系是什么，建议模拟出来吧

3190496160

1、做所以慢，是因为文件中有大量公式存在，按你目前的思路，大量使用公式，估计等你把所有功能都弄好，这个文件也基本上是卡死了，解决办法：把目前公式的效果用代码来实现
2、需求表述不够清楚明了，需要这这些更新的数据，汇总到一个新表格内，这个新表格是哪个表格，是要新建一个工作表，还是目前的存在的工作表？

junjinling

3190496160 发表于 2024-2-17 09:17
1、做所以慢，是因为文件中有大量公式存在，按你目前的思路，大量使用公式，估计等你把所有功能都弄好，这 ...

你好。
例如汇总到sheet1里面取。。。

junjinling

3190496160 发表于 2024-2-17 09:17
1、做所以慢，是因为文件中有大量公式存在，按你目前的思路，大量使用公式，估计等你把所有功能都弄好，这 ...

    Worksheets("原価明細書").Select
    Set ws = ThisWorkbook.Worksheets("成型材料")
    Cells(1, 1) = WorksheetFunction.Index(ws.Range("I:I"), WorksheetFunction.Match(Range("B25&$K$4"), ws.Range("B:B") & ws.Range("E:E"), 0))

我用这个代码报错。。。

junjinling

E25单元格里的公式=IFERROR(INDEX(成型材料!$I:$I,MATCH($B25&$K$4,成型材料!$B:$B&成型材料!$E:$E,0)),"")

我可以用
    Range(e25) = WorksheetFunction.Index(ws.Range("I:I"), WorksheetFunction.Match(Range("B25&$K$4"), ws.Range("B:B") & ws.Range("E:E"), 0))
去代替吗？

fzxba

junjinling

fzxba 发表于 2024-2-17 12:27

我是这么找的哇
INDEX(成型材料!$I:$I,MATCH($B25&$K$4,成型材料!$B:$B&成型材料!$E:$E,0))
写在vba里
WorksheetFunction.Index(ws.Range("I:I"), WorksheetFunction.Match(Range("B25&$K$4"), ws.Range("B:B") & ws.Range("E:E"), 0))
怎么就报错了呢

micch

一切源于设计，设计好再写代码，否则写代码造成不必要的麻烦和后期修改维护的不便。虽然不是自己写代码，不整理清楚可能愿意写的人也懒得的写了