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

shaokui123

yjh_27 发表于 2012-6-16 17:02
1603行与1605行相同

看到了，从头到尾研究了半天发现是需要核算的源数据重复了，若干数据整行重复，如果发生这样的情况能加代码提示一下吗?就像今天您要是不说我还发现不了
还有如果以后再添加列并在核算完的新行里显示还是Cells(*, *)加上相应的列数吗？我感觉是不是还要加点别的啊
比如说我再增加一行，我模拟的代码是不是
Loop While Cells(r0, 3) = Cells(r0 - 1, 3) And Cells(r0, 5) = 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)
                Cells(r - r1 + 1, 4) = Cells(i1, 4)
                Cells(r - r1 + 1, 5) = Cells(i1, 5)
                Cells(r - r1 + 1, 6) = Cells(i1, 6)
                Cells(r - r1 + 1, 7) = Cells(i1, 7)
                Cells(r - r1 + 1, 8) = PD
                Cells(r - r1 + 1, 9) = s6
                Cells(r - r1 + 1, 10) = Cells(i1, 7) * s6
                r1 = r1 - 1

另外
   'r0 某物料首行
   
    Do
        s0 = 0  '上月盘存合计
        s1 = 0   '本月入库合计
        s2 = 0   '本月盘存
        '/计算s0 s1 s2
        r0 = r + 1
        i = r
        Do
            r0 = r0 - 1
            If Cells(r0, 7) = PD Then
                i = i - 1
                GoTo 100   这个应该是100还是200？

yjh_27

shaokui123 发表于 2012-6-16 18:14
看到了，从头到尾研究了半天发现是需要核算的源数据重复了，若干数据整行重复，如果发生这样的情况能加代 ...

盘点重复数据有办法处理，入库数据重复就不好办了，因为无法区分是重复还是多次入库。

shaokui123

yjh_27 发表于 2012-6-16 18:30
盘点重复数据有办法处理，入库数据重复就不好办了，因为无法区分是重复还是多次入库。

是啊，入库数据如果要核查的话那就要找原始单据一个个核查，工作量很大，只能从管理上加强
楼上的内容我更新了，您看看，觉得您脾气特好，我这么烦你都耐心解答，谢谢

yjh_27

shaokui123 发表于 2012-6-16 18:14
看到了，从头到尾研究了半天发现是需要核算的源数据重复了，若干数据整行重复，如果发生这样的情况能加 ...

Loop While Cells(r0, 3) = Cells(r0 - 1, 3) And Cells(r0, 5) = Cells(r0 - 1, 4) And _
这是判本行与上一行数据是否相同，所以等号两边的列数应相同，前面你改列时这里有遗漏

GoTo 100   这个应该是100还是200？
100

yjh_27

你这么改来改去，79L的生产核算就没法用了。

shaokui123

yjh_27 发表于 2012-6-16 19:01
你这么改来改去，79L的生产核算就没法用了。

不是啊，现在您帮我开发的程序核心功能都有了，也不变了。就是增加几列辅助列的事情了，别的不改了
101楼我模拟的代码您帮看看对不对啊

yjh_27

shaokui123 发表于 2012-6-16 19:24
不是啊，现在您帮我开发的程序核心功能都有了，也不变了。就是增加几列辅助列的事情了，别的不改了
101楼 ...

处理盘点重复，加了入库重复提示

shaokui123

yjh_27 发表于 2012-6-16 20:41
处理盘点重复，加了入库重复提示

高手，一切妥妥的，朋友很满意
再就是101L的问题啊，如果朋友以后再想加列是不是就是我模拟的那几处修改即可？

yjh_27

shaokui123 发表于 2012-6-17 15:17
高手，一切妥妥的，朋友很满意
再就是101L的问题啊，如果朋友以后再想加列是不是就是我模拟的那几处修改 ...

不是的，排序也要动的。

shaokui123

yjh_27 发表于 2012-6-17 15:23
不是的，排序也要动的。

谢谢啊
再增加列我就可以搞定
要是有大事还得麻烦您