物料成本核算先进先出分解显示

yjh_27

shaokui123 发表于 2012-5-28 21:45
太谢谢您了，初步试了一下，小数据速度刚刚的，等明天大数据测试一下看看

注意与手工数据对比，看有无差异。

shaokui123

yjh_27 发表于 2012-5-22 08:35
所有cells(*,*)  加1

这是53楼的回复
高手，里面cells很多啊
Cells(r0, 3)
Cells(r0 - 1, 1)
Cells(r - r1 + 1, 3)
等等都是啊，都最后一个数字加1吗？两列就加2？

yjh_27

shaokui123 发表于 2012-6-11 20:25
这是53楼的回复
高手，里面cells很多啊
Cells(r0, 3)

是的，加对应列数。

shaokui123

yjh_27 发表于 2012-6-12 19:15
是的，加对应列数。

Documents.rar (224.49 KB, 下载次数: 15)

2012-6-15 15:37 上传

点击文件名下载附件

高手再请看
附件里两个文档，3.0的点分解正常使用
3.0修改的在核算表最前头添加了两列，代码里也加了对应列数
但是运行出错，一运行就假死状态，是不是还少改了点什么啊

yjh_27

PD = Cells(1, 10)  '输出在J列

If d(Cells(r0, 3) + Cells(r0, 4) + Cells(r0, 5)) = "OK" Then Cells(i, 10) = "本物品核算表重复记录": GoTo  200  '程序错误应至200

yjh_27

If Cells(i1, 8) >= s3 Then   '有剩余

shaokui123

yjh_27 发表于 2012-6-15 16:16
If Cells(i1, 8) >= s3 Then   '有剩余

我晕，原来是我马虎大意啊
If d(Cells(r0, 3) + Cells(r0, 4) + Cells(r0, 5)) = "OK" Then Cells(i, 10) = "本物品核算表重复记录": GoTo 100
        这句啥意思啊，源程序也是这样写的啊，加列也需要变更吗？

shaokui123

yjh_27 发表于 2012-6-15 16:06
PD = Cells(1, 10)  '输出在J列

If d(Cells(r0, 3) + Cells(r0, 4) + Cells(r0, 5)) = "OK" Then Cells( ...

高手，按您的指点修改了代码，能成功运行，但是我新加两列的数据没有相应的显示在五月末盘点那行里啊
我想要新增加的五月末盘点那行显示相应的增加列的信息
比如说a列是批次号，未运行之前某材料4月末批次是111,5月入库批次是222.运算后显示5月末盘点数据时5月入库的，在a列五月末盘点那行就显示222，如果是4月末的就显示111

yjh_27

shaokui123 发表于 2012-6-15 18:57
我晕，原来是我马虎大意啊
If d(Cells(r0, 3) + Cells(r0, 4) + Cells(r0, 5)) = "OK" Then Cells(i, 10 ...

If d(Cells(r0, 3) + Cells(r0, 4) + Cells(r0, 5)) = "OK" Then Cells(i, 10) = "本物品核算表重复记录": GoTo 100
        这句啥意思啊，源程序也是这样写的啊，加列也需要变更吗？

条件为真时，说明盘点合并表对应物料已被分解过，所以提示"本物品核算表重复记录"。造成的原因可能是核算表没按三项关键字排序。

goto 100 应为 goto 200   是加提示记录时错写的。

加列也需要变更。

建议改时用查找功能，可避免漏项

yjh_27

shaokui123 发表于 2012-6-15 19:03
高手，按您的指点修改了代码，能成功运行，但是我新加两列的数据没有相应的显示在五月末盘点那行里啊
我 ...

1  那要另加代码。

2   五月末盘点那列是分解出错提示信息。你换其他列吧。