EXCEL按照指定单元格颜色或数字颜色求和

1、精选优质文档-倾情为你奉上按指定的单元格颜色和数字颜色进行计数或求和      如果Excel工作表的某区域中包含不同的底纹颜色，我们可以用一个自定义函数对该区域按指定的单元格颜色进行计数或求和。方法是：    1.按Alt+F11，打开VBA编辑器。    2.单击菜单“插入模块”，将插入名称为“模块1”的模块，在右侧的代码窗口中输入下列代码：Function SumByColor(Ref_color As Range, Sum_range As Range)Application.Volat

2、ileDim iCol As IntegerDim rCell As RangeiCol = Ref_color.Interior.ColorIndexFor Each rCell In Sum_rangeIf iCol = rCell.Interior.ColorIndex ThenSumByColor = SumByColor + rCell.ValueEnd IfNext rCellEnd FunctionFunction CountByColor(Ref_color As Range, CountRange As Range)Application.VolatileDim iCol A

3、s IntegerDim rCell As RangeiCol = Ref_color.Interior.ColorIndexFor Each rCell In CountRangeIf iCol = rCell.Interior.ColorIndex ThenCountByColor = CountByColor + 1End IfNext rCellEnd Function    上述两个自定义函数，一个是SumByColor，可以对区域按指定单元格的颜色求和。另一个是CountByColor，可以统计区域中某种颜色的个数。这两个自定义函数都有两个参数，前一个

4、参数指定包含某种颜色的单元格，后一个参数为求和或计数区域。    3.关闭VBA编辑器。    使用方法：假如要求和或计数的区域在A1:B10区域中。        求出该区域中单元格底纹颜色为红色的所有单元格数值之和，在单元格中输入公式：    =sumByColor(A1,A1:B10)    求出该区域中单元格底纹颜色为红色的所有单元格的个数，在单元格中输入公式：    =Coun

5、tByColor(A1,A1:B10)按字求颜色在Excel的内建功能, 内建函数中, 应没有针对颜色而自动计算的方法。故可能是唯一办法 - VBA自定义函数我刚写了一个简单的VBA, 绝对可以做到你的要求Function COLORSUM(xx As Range, yy As Range) As Doubley = yy.Font.ColorIndexFor Each x In xxIf x.Font.ColorIndex = y Thenxxx = xxx + x.ValueEnd IfNextCOLORSUM = xxxEnd Function假设你的数字是在A1:A100而A2的数字颜色是作为自动求和的识别只要将上述