怎么在excel中一个单元格中显示出自动计算的标记背景颜色的单元格数值的和

Posted 2023-03-03

2007excel中，我在筛选出一些数，标示颜色后求和，要和另一个excel中的数对比，我想能不能有个办法在一个单元格中显示出我标示颜色单元格的数值的和？

步骤如下：

选中单元格,点击右键，选择设置单元格格式。



然后选择 填充

选择 图案颜色



选择颜色根据数值变化，并填写颜色范围

确定就行。

参考技术A 正常情况下excel无法识别是否标记有颜色，这时需要用代码检测，这样做，打开excel，按alt+F11，打开VB，双击thisworkbook,输入下面的代码：

Function SumColor(rColor As Range, rSumRange As Range)

Dim rCell As Range
Dim iCol As Integer
Dim vResult
Application.Volatile
iCol = rColor.Interior.ColorIndex

For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell

SumColor = vResult
End Function
存盘退出编辑器

在你需要结果的单元输入=sumcolor(A1,A1:A100)
A1是具有你需要求和的背景颜色的任意一个单元格,A1:A100是你所要相加的区域。 参考技术B CTRL+F 选项 查找内容 设置要查找的颜色的格式
查找全部 CTRL+A(全选符合要求的单元格区域)
看状态栏的求和结果就是标示颜色单元格的数值的和 参考技术C 在常规公式里面没有对单元格颜色的引用，对单元格颜色的操作只能用VBA或者宏表。

建议你还是通过公式判断，在数据上做区分。本回答被提问者采纳 参考技术D Function SumColor(rColor As Range, rSumRange As Range)
Dim rCell As Range
Dim iCol As Integer
Dim vResult
Application.Volatile
iCol = rColor.Interior.ColorIndex

For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell

SumColor = vResult
End Function
存盘退出编辑器

在你需要结果的单元输入=sumcolor(A1,A1:A100)
A1是具有你需要求和的背景颜色的任意一个单元格,A1:A100是你所要相加的区域(包括背景颜色不同的单元格,只要把你要加的单元格框进去就行)