Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2880|回复: 4

[已解决]有条件多组求和

[复制链接]
发表于 2016-4-14 08:34 | 显示全部楼层 |阅读模式
本帖最后由 开心又快乐 于 2016-4-14 22:09 编辑

昨天的求助得到grf1973老师的正确VBA解答,我不懂VBA语言,现再发一个附件,里面的表格由原来的每12列增加到16列希望哪位老师再示例解答,或许籍此举一反三 有条件多组求和.zip (12.96 KB, 下载次数: 55)
 楼主| 发表于 2016-4-14 20:31 | 显示全部楼层
回复

使用道具 举报

发表于 2016-4-14 21:51 | 显示全部楼层    本楼为最佳答案   
Sub wanao()
    Dim Max As Integer, Min As Integer
    Dim Arr, x, He As Integer, Qh As Integer
    Max = [bh5]
    Min = [bh4]
    For x = 7 To Sheet1.UsedRange.Rows.Count
        Set Arr = Range("Q" & x & ":S" & x)
        Qh = Application.WorksheetFunction.Sum(Arr)
        If Qh >= Min And Qh <= Max Then He = He + 1
        Set Arr = Range("AG" & x & ":AI" & x)
        Qh = Application.WorksheetFunction.Sum(Arr)
        If Qh >= Min And Qh <= Max Then He = He + 1
        Set Arr = Range("AW" & x & ":AY" & x)
        Qh = Application.WorksheetFunction.Sum(Arr)
        If Qh >= Min And Qh <= Max Then He = He + 1
        Cells(x, "bh") = He
        He = 0
    Next
   
End Sub

评分

参与人数 1 +3 收起 理由
开心又快乐 + 3 来学习

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2016-4-14 22:09 | 显示全部楼层
wanao2008 发表于 2016-4-14 21:51
Sub wanao()
    Dim Max As Integer, Min As Integer
    Dim Arr, x, He As Integer, Qh As Integer

谢谢您的VBA,可以模拟一番!
回复

使用道具 举报

发表于 2016-4-17 18:23 | 显示全部楼层
开心又快乐 发表于 2016-4-14 22:09
谢谢您的VBA,可以模拟一番!

不客气!也谢谢你给了”最佳答案“。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 19:25 , Processed in 0.440103 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表