求U列和W列对应物料在过去4次收料数量平均值

yjh_27

rocklee888 发表于 2016-5-5 21:26
还有个地方忘说了，计算过去8次平均值，如果过去实际只有6次，那么就是计算6次平均值。计算过去20次平均 ...

上传出错附件，用于测试。用于提速改进。

yjh_27

以1L附件，我的代码不慢。

yjh_27

rocklee888 发表于 2016-5-5 21:06
我是改了这个地方，但是改成8和20平均值都一样，所以是否4改成8后面代码还需要变动？

原数据是否已按日期排序？
我的代码有排序，蓝版主的没处理，需自行处理。

rocklee888

yjh_27 发表于 2016-5-6 10:30
原数据是否已按日期排序？
我的代码有排序，蓝版主的没处理，需自行处理。

我自己有排序处理了，蓝版主的代码可以运行几十万行，而且速度很快。原始档案很大，上传不了。

rocklee888

yjh_27 发表于 2016-5-6 10:30
原数据是否已按日期排序？
我的代码有排序，蓝版主的没处理，需自行处理。

            If Val(b(0)) <= i Then
                n = n + 1
                If n <= 4 Then
                    If n = 1 Then
                        ks = Arr(b(0), 2)
                        sl = Arr(b(0), b(1))
                    Else
                        js = Arr(b(0), 2)
                        ca = DateDiff("d", js, ks)
                        If ca <= 60 Then
                            sl = sl + Arr(b(0), b(1))
                        Else
                            n = n - 1: Exit For
                        End If
                    End If
                Else
                    n = n - 1: Exit For
                End If
            End If
        Next
        Arr(i, pj) = sl / n
    Else
        b = Split(t, "|")
        sl = Arr(b(0), b(1))
        Arr(i, pj) = sl
我始终觉得以上代码不单纯是将4改成8， 应该其他地方也有需要修改的，大师能否有空帮忙看看？

rocklee888

蓝桥玄霜 发表于 2016-4-12 16:50
请见附件。

版主，请帮忙看看如果代码要修改成过去12次或者7次收料数量平均值该如何修改代码？

yjh_27

rocklee888 发表于 2016-5-10 11:50
If Val(b(0))

无数据，无法测试。无法上传全部也要上传出错部分。

rocklee888

yjh_27 发表于 2016-5-10 12:48
无数据，无法测试。无法上传全部也要上传出错部分。

我上传了另外一个VBA版本，但是有个问题是该结果运行后只显示整数，请问如果结果需要小数很多位该怎么更改代码？谢谢！

yjh_27

rocklee888 发表于 2016-5-30 22:55
我上传了另外一个VBA版本，但是有个问题是该结果运行后只显示整数，请问如果结果需要小数很多位该怎么 ...

Jia = Round(Jia / (i - 1), 2)
保留 2位小数

rocklee888

yjh_27 发表于 2016-5-31 14:28
Jia = Round(Jia / (i - 1), 2)
保留 2位小数

非常感谢！