如何计算满足条件的保费列的数据和？

huang1314wei

1. Sub 计算()
   
2.     Dim sum, arr, i
   
3.     arr = Range("A1").CurrentRegion
   
4.     sum = 0
   
5.     For i = 2 To UBound(arr)
   
6.       sum = sum + arr(i, 3)
   
7.       If sum >= 100000 Then
   
8.          Rows(i).Interior.ColorIndex = 3
   
9.          Cells(i, 4) = "以上数据保费和最接近10万!"
   
10.          Exit For
    
11.       End If
    
12.     Next
    
13.     sum = 0
    
14.     For i = 2 To UBound(arr)
    
15.       sum = sum + arr(i, 3)
    
16.       If sum >= 200000 Then
    
17.         Rows(i).Interior.ColorIndex = 3
    
18.         Cells(i, 4) = "以上数据保费和最接近20万!"
    
19.         Exit For
    
20.        End If
    
21.     Next
    
22.       MsgBox "查询完毕!"
    
23. End Sub
    

复制代码

huang1314wei

附件如下
计算模块2015.rar (22.55 KB, 下载次数: 13)

2015-5-29 11:45 上传

点击文件名下载附件

child100

huang1314wei 发表于 2015-5-29 11:46
附件如下

先说声：谢谢！！！
你回复的速度让我感动得要哭了。

但是大神，能不能点击按钮后，我的统计表中，那几个求和框框内自动出数？给您跪拜了

第二个位置不是最接近20万的，要向上一个单元格才是。（小声说，你也可以选择听不见。）

child100

人呢？人呢？人呢？

大家都去准备过6.1了。。。

child100

child100 发表于 2015-5-30 15:37
人呢？人呢？人呢？

大家都去准备过6.1了。。。

今天6.1了。祝大家节日快乐，永远可以感受到孩子一样的快乐！

child100

child100 发表于 2015-5-29 15:26
先说声：谢谢！！！
你回复的速度让我感动得要哭了。

人呢？

周围静悄悄。。。

大神们，都现身吧！

child100

啊啊啊————
不要沉啊，不要沉。
快来帮忙啊。。。

child100

端午节都要来了，伙伴们怎么还不来帮忙？