较高级的单元格底色、字体颜色相关自定义函数

香川群子 · 发表于 2014-3-4 09:48

最近连续碰到坛友求助、需要依据单元格底色来统计单元格个数，或求和。

原因：
由于初学者喜欢对单元格颜色作标注，作为区分某种特性的方法（比较直观）
而不是按照正规的表格做法单独做一列属性，
因此这样手工标注单元格底色的表格，很难进行统计、筛选和处理。（2010等高版本除外）

但Excel 2003等低版本不支持对单元格底色进行判断的函数，因此没有直接利用的方法。
有一种方法是使用宏表函数，但有一个较大的缺点：还需要再写一个自己需要的计算、统计函数，且不够直观。

因此，我研究开发了、可以和工作表函数一样直接使用的VBA自定义函数：

Function SC(Sum_range, ColorCell, Optional ColorId_Type = 0)
'【参数1: Sum_range】单元格矩形区域
'【参数2: ColorCell】指定底色的单元格(单一单元格)
'【参数3: ColorId_Type】指定底色的颜色代码ColorIndex 或模式，默认=0
'【功能】返回单元格底色颜色代码
' /或按指定单元格底色进行范围内数值求和统计/或统计区域内同底色单元格个数
If ColorId_Type > 0 And ColorId_Type < 57 Then
C_Index = ColorId_Type '如果第3参数值不为0 且数值在1-56范围内则该参数用作指定底色的颜色代码
Else
C_Index = ColorCell.Interior.ColorIndex '否则以第2参数指定单元中的底色作为指定底色
If ColorId_Type = -2 Then '如果第3参数=-2则函数返回当前指定单元格底色的颜色代码
SC = C_Index '「-2」時、色コード出力
If SC = -4142 Then SC = 0 '当默认无底色时结果转为=0输出
Exit Function '结束函数过程退出
ElseIf ColorId_Type = -3 Then '如果第3参数=-3 则返回指定单元格的字体颜色FontColor
SC = ColorCell.Font.ColorIndex
If SC = -4105 Then SC = 0 '如果字体默认黑色结果转为=0输出
Exit Function '结束函数过程退出
End If
End If
'当第3参数默认=0或第3参数=-1时，已将第2参数中单元格底色作为标准色
'下面开始统计第1参数对象区域中，所有相同底色单元格中的结果
For i = 1 To Sum_range.Cells.Count '遍历区域中所有单元格
If Sum_range.Cells(i).Interior.ColorIndex = C_Index Then '如果底色相同则
If ColorId_Type < 0 Then
SC = SC + 1 '如果第3参数=-1时，仅仅统计同底色单元格的个数
Else '如果第3参数默认=0时
If IsNumeric(Sum_range.Cells(i)) Then
SC = SC + Sum_range.Cells(i)
'如果同底色单元格中为数值（含文本数值）时求总和。
End If
End If
End If
Next
End Function

复制代码

补充，第3参数直接指定底色代码时，函数统计返回第1参数区域中和指定底色相同的单元格中的数值的总和。

需要指定底色时，可以灵活应用第2参数来指定底色。

比如，固定把A1作为指定底色的单元格，那么当改变A1底色时，函数能够自动按新的指定底色进行统计。
（需要用格式刷改变A1单元格底色，否则函数不会自动计算。）

鄂龙蒙 · 发表于 2014-4-7 08:01

学习收藏了，谢谢！

ww0000 · 发表于 2014-4-7 11:48

做个记号，有空再研究怎么用！！

wang6807 · 发表于 2014-4-12 11:35

完全看不懂

jinhaitiao16 · 发表于 2017-3-21 00:35

做个记号，有空再研究怎么用！！

jinhaitiao16 · 发表于 2017-6-22 12:45

学习收藏了，谢谢！

Albert128 · 发表于 2017-11-17 15:03

发现当颜色改变时,不能自动计算, 不知有哪位,遇到同样的问题没.

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

[原创] 较高级的单元格底色、字体颜色相关自定义函数

最新热点 /1