BOM成本(分享与求助，难度超级大 )

chengshanming

请教高手帮忙合并简化以下附件代码，压缩EXCEL容量，提高运行速度！想把附件调整成截图格式，逻辑都一样，只是代码需变更相关位置。谢了！附件代码是根据各老师的代码的组合而成的。

yjh_27

多说几句：分享什么、求助什么

chengshanming

yjh_27 发表于 2016-2-4 14:51
多说几句：分享什么、求助什么

分享这个例子，基本上可以运行，只是我觉得运行速度太慢，很多宏是录制的，能不能直接把几个宏的逻辑合并，简化代码行数。谢谢！

cbtaja

1、你的表格严重“虚胖”，未压缩时6M多，压缩后仍有1.5M，这可能使EXCEL运行变慢；
2、你新要求的表格样式仍然非常杂乱，原始数据项和待计算的项，各列互相穿插在一起，我费了很大功夫才理清它们的关系。而且，这种样式使得程序运算的结果也必须分成多块区域来写入表格，不便于代码设计、检查以及最终结果的输出。
3、你原有代码中仍在往工作表中写公式，拖累了运算速度。
4、对于严格按树型层级关系展开的BOM表，无需使用字典，用一个二维数组变量即可保存中间结果，用于保存当前物料的上层或下层数据、查询输出。即使BOM层级达10层、待计算的项达10项，预设一个10×10的二维数组即可满足要求，运算量更少，速度更快。

cbtaja

以下是我做的代码及相应附件（仅240KB）：
楼主所提供附件要求已经更新，所编写的代码也已经相应更新在后面的回贴中

1. Option Explicit
   
2. Sub 计算()
   
3. '-----代码已经按楼主新增要求重新编写
   
4. '------请到最新的回贴中下载
   

复制代码

chengshanming

cbtaja 发表于 2016-4-27 00:33
以下是我做的代码及相应附件（仅240KB）：

cbtaja老师好！你做代码的表格数据OK! 在下是从事财务成本的，还有两点疑问与需求。
1.你做的代码能够适应无论BOM有多少层级都适应么（当然目前的够用，但希望能通用更多层）？
2. 我新增了工序工时4，工序工时5，工序工时6，对应工时汇总也一并计算出  
3.总成本栏目前显示的是成品（半成品）的，我想为空格时，输出采购件 对应0层用量*单价的值
4.对应顶层母件，如果本行对应层级为0，取B列数值，否则就取母件本单元格上一单元格值。
如附件“习惯性”表格与截图，老师，前面你已经领会了我所有要核算的逻辑，这应该不难了，谢了！

cbtaja

chengshanming 发表于 2016-4-28 15:10
cbtaja老师好！你做代码的表格数据OK! 在下是从事财务成本的，还有两点疑问与需求。
1.你做的代码能够 ...

对于问题1：目前的代码适应0~9级以内；如果你表格的层级不是通过字符个数宽度缩进的方式表示，而直接用数值表示，则可以简单修改代码适应任意层级。

对于问题2、3、4：正如前贴中所述，由于你的已知数据列和需要求算的数据列相互穿插在一起，当需要求算的工序增加时，无法编写自动适应的代码，每增加一道工序，代码就得做大修改。虽然在现有的基础上，问题并不算难，但是非常麻烦。

有一个非常经典的定义：程序 ＝ 数据结构+算法。
也就是说，当我们把需要的原始数据收集回来后，以一定的表现形式存放起来，就形成了数据源的数据结构。针对这样的数据存放方式（数据结构），编写有相应逻辑关系的代码（即算法），就形成了程序。
显然，源数据结构是基础，算法是手段。所以，合理有序的源数据结构，对于算法的顺利实现有重大好处。而杂乱的数据结构，则造成算法的实现很困难，效率很低下，甚至完全无法编写出可达成目标的算法代码。

chengshanming

cbtaja 发表于 2016-4-28 16:05
对于问题1：目前的代码适应0~9级以内；如果你表格的层级不是通过字符个数宽度缩进的方式表示，而直接用数 ...

多谢老师！

cbtaja

chengshanming 发表于 2016-4-28 16:09
多谢老师！

附件已经更新：固定6个工序以内，BOM表的层级以文本缩进宽度表示
BOM计算.rar (42.66 KB, 下载次数: 797)

2016-4-30 14:21 上传

点击文件名下载附件

12122122

你好，点excel查看代码，没有模块，这是什么情况？