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

child100 · 发表于 2015-5-29 11:14

再解释一下条件1：
把“保费”列内的数据按自上而下的顺序分成3个部分，第1部分是此列数据计算和为最接近10万，第2部分也是此列数据计算和接近10万部分，第3部分是剩下的所有数据。
即把“保费”列数据按累积和分成10万部分、10-20万部分，超过20万部分。
类似于水费啦，第一阶梯用水多少吨，第二阶梯用水多少吨，超出第二阶梯用水多少吨。只是我还要在段内细化数据。

huang1314wei · 发表于 2015-5-29 11:44

Sub 计算()
Dim sum, arr, i
arr = Range("A1").CurrentRegion
sum = 0
For i = 2 To UBound(arr)
sum = sum + arr(i, 3)
If sum >= 100000 Then
Rows(i).Interior.ColorIndex = 3
Cells(i, 4) = "以上数据保费和最接近10万!"
Exit For
End If
Next
sum = 0
For i = 2 To UBound(arr)
sum = sum + arr(i, 3)
If sum >= 200000 Then
Rows(i).Interior.ColorIndex = 3
Cells(i, 4) = "以上数据保费和最接近20万!"
Exit For
End If
Next
MsgBox "查询完毕!"
End Sub

复制代码

huang1314wei · 发表于 2015-5-29 11:46

附件如下

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

child100 · 发表于 2015-5-29 15:26

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

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

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

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

child100 · 发表于 2015-5-30 15:37

人呢？人呢？人呢？

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

child100 · 发表于 2015-6-1 10:19

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

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

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

child100 · 发表于 2015-6-5 09:41

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

人呢？

周围静悄悄。。。

大神们，都现身吧！

child100 · 发表于 2015-6-10 15:30

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

child100 · 发表于 2015-6-14 09:15

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

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

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