控制循环累加和跳出的小实例

作者：绿色风分类：时间：2022-08-18 浏览：85

楼主 lrlxxqxa	第一种情况：在黄色区域进行循环，如果数字大于5，则计数累加到变量M里，当M大于10，则退出循环；第一种情况：在黄色区域进行循环，如果数字大于5，则求和累加到变量M里，当M大于100，则退出循环；两种情况下分别： 1 把已累加的总和填充到B21中 2 已累加的大于5的数字个数填充到C21 3 累加停止的单元格地址输入到D21中 Sub aa() Dim rg As Range, M%, sum% For Each rg In Range("a1:a16, c4:c11, d1:d3") If rg > 5 Then M = M + 1 sum = sum + rg If M = 10 Then Exit For End If Next [b21] = sum [c21] = M [d21] = rg.Address End Sub Sub bb() Dim rg As Range, M%, i% For Each rg In Range("a1:a16, c4:c11, d1:d3") If rg > 5 Then i = i + 1 M = M + rg If M > 100 Then Exit For End If Next [b21] = M [c21] = i [d21] = rg.Address End Sub 该贴已经同步到循环累加跳出.rar
2楼亡者天下	过来学习一下
3楼 HIMYM	学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表