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

shaokui123 · 发表于 2012-6-15 21:27

本帖最后由 shaokui123 于 2012-6-15 21:28 编辑

yjh_27 发表于 2012-6-15 20:45
1 那要另加代码。

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

高手，以上能给个完整的程序吗
自己实在是不太懂，改来改去总是出错

shaokui123 · 发表于 2012-6-15 21:29

yjh_27 发表于 2012-6-15 20:37
If d(Cells(r0, 3) + Cells(r0, 4) + Cells(r0, 5)) = "OK" Then Cells(i, 10) = "本物品核算表重复记录" ...

goto 100 在你做好的程序里运行正常啊

yjh_27 · 发表于 2012-6-15 21:36

shaokui123 发表于 2012-6-15 21:29
goto 100 在你做好的程序里运行正常啊

应为没有这种情况发生。
这是造成死循环的。分解前先排序！

yjh_27 · 发表于 2012-6-15 21:46

shaokui123 发表于 2012-6-15 21:27
高手，以上能给个完整的程序吗
自己实在是不太懂，改来改去总是出错

你88L 说的与84L 的附件又不一致

你说不清，代码没法写。

shaokui123 · 发表于 2012-6-16 07:58

yjh_27 发表于 2012-6-15 21:46
你88L 说的与84L 的附件又不一致

你说不清，代码没法写。

高手，见附件，红色部分为新添加的两列，表格运算完成后两列都是空的，并没有相应的增加内容
具体要求我写在注释里了，不清楚的我再补充，麻烦您了

3.0修改.rar (129.65 KB, 下载次数: 20)

yjh_27 · 发表于 2012-6-16 13:48

Loop While Cells(r0, 3) = Cells(r0 - 1, 3) And Cells(r0, 4) = Cells(r0 - 1, 4) And _

'写入数据
         Cells(r - r1 + 1, 1) = Cells(i1, 1)
            Cells(r - r1 + 1, 2) = Cells(i1, 2)
            Cells(r - r1 + 1, 3) = Cells(i1, 3)

yjh_27 · 发表于 2012-6-16 13:54

shaokui123 发表于 2012-6-16 07:58
高手，见附件，红色部分为新添加的两列，表格运算完成后两列都是空的，并没有相应的增加内容
具体要求我 ...

请见附件。

yjh_27 · 发表于 2012-6-16 13:59

97L 已按关键字段排序，但未做重复记录处理（如最后物料4月盘点重复）

shaokui123 · 发表于 2012-6-16 16:32

yjh_27 发表于 2012-6-16 13:59
97L 已按关键字段排序，但未做重复记录处理（如最后物料4月盘点重复）

不好意思，没明白啥意思
是以前有的功能没有了吗？

yjh_27 · 发表于 2012-6-16 17:02

shaokui123 发表于 2012-6-16 16:32
不好意思，没明白啥意思
是以前有的功能没有了吗？

1603行与1605行相同

		自动登录	找回密码
密码			免费注册

[求助] 物料成本核算先进先出分解显示