万能的EXCELHOME，帮我优化一个VB语句，在线急等（已解决）

handsomcao

也可以纯SQL（全过程只需用SQL）也能完成，也就是将他写的合并，如下：

SELECT a.成品代码,a.配件名称,a.规格,a.单位,a.单位用量,b.数量*a.单位用量 as 领料 from (SELECT 成品代码,配件名称,规格,单位,单位用量*1 as 单位用量 from [BOM表1$] UNION ALL SELECT 成品代码,配件名称,规格,单位,单位用量*1 as 单位用量 from [BOM表2$] UNION ALL SELECT 成品代码,配件名称,规格,单位,单位用量*1 as 单位用量 from [BOM表3$])a,[录入面界面$A3:E700]b where a.成品代码= b.成品代码"

我试了，行得通，汇总也可以仅用SQL，我之前也学过一点点SQL，但没好好利用，不知道SQL的功能如此强大。

yangkd

panan12301 发表于 2011-7-21 21:36
最终结果 弄的不好

这个是很好的bom分析，不过bom利用起来比较复杂，
领料+出库+生产+分解+结算等。要有人做出一个模式
就好了。

yangkd

panan12301 发表于 2011-7-21 21:36
最终结果 弄的不好

你好，特别喜欢这种计算模式：
借这块宝地，增加一个领料单据，不是原表里的领料而是从客户端的领料，
原表的领料我当做交货单据，表的结构一点不变。
【想法】原因做产品要到客户处领料，来料加工型，只取加工费，所以要计算损耗。
             1.客户提供物料，而后交货需汇总分解为子部品，你的代码已经完成；
             2.客户提供的物料，就是我们的领料，要汇总分解为子部品。
                 详细见图和附件 请你有时间帮忙，谢谢！！


物料需求汇总表_华创20110803.rar (37.27 KB, 下载次数: 128)

2011-9-21 12:58 上传

点击文件名下载附件

panan123_0

收到短信,晚上研究。写到一半要下班了。

yangkd

好的，谢谢了。{:soso_e178:}

panan123_0

计算差异 需 先计算出 汇总表数据。
本来想搞一次计算完计算明细，汇总数据，计算领料差异。3个步骤。懒得去改代码了。
还有最好材料也要有自己的编号，容易取数。
很多材料名称一样 规格不一样  规格一样 名称不一样
这次我用   a.物料名称 & a.规格 = b.物料名称 & b.料号规格  区分了
最好一个的 材料一个规格  一个编号  表示一种材料。这样对着编号取数就可以了。物料管理系统都这样。

还有领料单上加了个 材料名称，因为相同规格的 不同材料还是存在。会弄错

yangkd

panan123_0 发表于 2011-9-21 21:07
计算差异 需 先计算出 汇总表数据。
本来想搞一次计算完计算明细，汇总数据，计算领料差异。3个步骤。懒得 ...

特别感谢你，
【满意】
1.领料表添加物料名称，很好的中文表述容易记忆；
2.计算方式和结果很满意，至于物料名称不统一规范问题一定要更正的，我记得了。
【问题】
就是在输入领料单时，输入物料名称可否自动显示？请求想想办法解决，谢谢！

panan123_0

类似这种 模糊查询 填数据最合适。只要打入关键字 就动态刷新。
http://club.excelhome.net/forum.php?mod=viewthread&tid=729035
这个是家里的网友总结的列表输入法。大大提高输入速度。
你研究下吧。我也没有仔细研究过。

yangkd

可惜我不懂VBA,慢慢想一下公式法来解决。
谢谢你为了我的问题，耗费你的休息时间，
我会用数据检查有效性和正确性，谢谢！！{:soso_e178:}

say“中”

Range("l" & tr).Formula = "=k" & tr & "*" & 数量

这里不用公式，直接赋值会好很多吧 Range("l" & tr)=Range("k" & tr)* 数量