[已解决]求这样的公式应该怎么写

chengzhiting

前几个月加起来大于C列的值，就在D列显示几个月（从首次由数值开始计算，例如第4行的数据），例如：前3个月加起来大于132，那D列

就是3个月，例如：2月+3月大于154，D列就显示2， 以此类推，请问D列的公式应该怎么写能满足这样的计算方法，求老师和大神指导下，谢谢。

最佳答案

月排行榜 / 总排行榜

爱疯

2015-8-12 10:21

多少月.rar (9.21 KB, 下载次数: 3)

2015-8-12 10:19 上传

点击文件名下载附件



Function mth(x As Range)
    Dim r%, j%, k%, s%
    r = x.Row

    '减去开始端的连续空格
    For j = 5 To 16
        If Cells(r, j) = "" Then k = k + 1 Else Exit For
    Next j

    '从第一个不为空的位置起，直到P列
    For j = k + 5 To 16
        s = s + Cells(r, j)
        If s > x Then Exit For
    Next j

    '4表示E列左边的列数
    mth = j - 4 - k
End Function




1）我没想出函数的办法。
2）这是用代码写的自定义函数，你多拿点数据测试下
3）也是为看下，我是否理解对了题意？

跳转到最佳答案楼层

爱疯

1）D3如何求得？
2）为什么D5不是2？第5行前3个月>154，排除1个空，还剩 2

chengzhiting

爱疯 发表于 2015-8-11 23:34
1）D3如何求得？
2）为什么D5不是2？第5行前3个月>154，排除1个空，还剩 2

不好意思，D5应该是3，除非第一个月是空值就排除，当中月份空值要计算在内

爱疯

chengzhiting 发表于 2015-8-11 23:41
不好意思，D5应该是3

如果D5是3，那么D4不是也应该是3了？

chengzhiting

爱疯 发表于 2015-8-11 23:43
如果D5是3，那么D4不是也应该是3了？

不好意思，D5应该是3，D4因为计算的第一个月是空值所以要排除，当中月份空值要计算在内

新上传了一个附件，麻烦老师看下，谢谢。

爱疯

多少月.rar (9.21 KB, 下载次数: 3)

2015-8-12 10:19 上传

点击文件名下载附件



Function mth(x As Range)
    Dim r%, j%, k%, s%
    r = x.Row

    '减去开始端的连续空格
    For j = 5 To 16
        If Cells(r, j) = "" Then k = k + 1 Else Exit For
    Next j

    '从第一个不为空的位置起，直到P列
    For j = k + 5 To 16
        s = s + Cells(r, j)
        If s > x Then Exit For
    Next j

    '4表示E列左边的列数
    mth = j - 4 - k
End Function




1）我没想出函数的办法。
2）这是用代码写的自定义函数，你多拿点数据测试下
3）也是为看下，我是否理解对了题意？

chengzhiting

爱疯 发表于 2015-8-12 10:21
Function mth(x As Range)
    Dim r%, j%, k%, s%
    r = x.Row

老师我拿大量的数据测试过了，麻烦看下附件中的最后一行，出了点问题。

爱疯

Function mth(lookup_value As Range, range_lookup As Range)
    Dim A(), j%, k%, s, v

    v = lookup_value.Value
    A = range_lookup.Value
    If UBound(A) > 1 Then mth = "Error: Can only choose one line.": Exit Function
    If v <= 0 Then mth = 0: Exit Function

    '1）从左端开始，求连续空格的个数
    For j = 1 To UBound(A, 2)
        If A(1, j) = "" Then k = k + 1 Else Exit For
    Next j

    '2）从第一个非空位置开始，直到右端
    For j = 1 + k To UBound(A, 2)
        s = s + A(1, j)
        If s > v Then Exit For
    Next j

    '3）如果满足查找条件，那么函数值 = 计数位置（j）- 减去连续空格个数（k）；否则返回0
    If s > v Then mth = j - k Else mth = 0

End Function

市场预测与分析2.rar (828.02 KB, 下载次数: 2)

2015-8-12 16:07 上传

点击文件名下载附件




如果L列的值是负数，那么返回0。是吗？

chengzhiting

爱疯 发表于 2015-8-12 16:08
Function mth(lookup_value As Range, range_lookup As Range)
    Dim A(), j%, k%, s, v

对的