注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Oh! I see you!

Hi! ppmm~~

 
 
 

日志

 
 

Excel根据单元格颜色求和-统计同颜色单元格数量  

2013-06-21 00:11:55|  分类: Excel |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

本文链接:http://oicu.cc.blog.163.com/blog/static/12303947120135210529768/

不要再迷信神马宏表函数get.cell了,问题还一堆,还是vba写个自定义函数省事。

Function GetColor1(rng As Range) As Double
    Application.Volatile
    GetColor1 = rng.Interior.ColorIndex
End Function


Function GetColor2(rng1 As Range, rng2 As Range, Optional intControl As Integer) As Double

    Dim T As Range
    Dim s As Double
    Dim n As Long
    s = 0
    n = rng2.Interior.ColorIndex

    Select Case intControl
        Case 0  'Sum, by oicu
            For Each T In rng1
                If T.Interior.ColorIndex = n Then
                     s = s + T.Value
                End If
            Next
        Case Else  'Count, by oicu
            For Each T In rng1
                If T.Interior.ColorIndex = n Then
                     s = s + 1
                End If
            Next
    End Select
    GetColor2 = s
End Function

 

怎么使用?比如在 A1:D3 单元格里,
统计与 A1 背景色相同的单元格数量用:
=GetColor2(A1:D3,A1,1)
公式里最后的参数,写大于1的数值都可以。

把与 A1 背景色相同的单元格求和用:
=GetColor2(A1:D3,A1,0)
公式里最后的参数 0 可以不写。

  评论这张
 
阅读(11115)| 评论(3)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017