EXCEL 自动求和红色字体的单元，公式如何添加？

Question

是要自动计算红色字体的求和，注红色和灰色的数字有其他条件控制会不断变动。
只求单元列上红色字体数值之和，没有引用可言(因为这些数字所对应的产品名称都不同。(注：红色字不是负数)用函数SUMIF(range，criteria，sum_range)没有range的。

Answer 1

1、首先打开数据区域，发现业绩评分中的字体有黑色的有红色的有蓝色的，那么如何按照字体的颜色进行求和和计数

2、依次选择数据分析，分析与统计，中的颜色统计

3、单击后在弹出的对话框中，我们选择数据区域

4、选择好数据区域后，我们需要确定按照哪个的字体颜色进行统计，此时我们可以单击颜色按钮，并选择带有蓝色字体的单元格

Answer 2

如果您不想用辅助列，希望一步到位的话。请按以下方法操作。

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧空白处点击右键，“插入”，“模块”。右侧空白处粘贴下面的代码。关闭VBA窗口。

然后输入公式：=SUMRED(你希望求和的区域）

Function sumred(rng As Range) As Double
Dim rg As Range
Set rng = Intersect(ActiveSheet.UsedRange, rng)
For Each rg In rng
    If rg.Font.Color = RGB(255, 0, 0) And IsNumeric(rg.Value) Then sumred = sumred + rg.Value
Next
End Function

追问

输入后能计算，但还是把原来通过条件格式自动变为灰色的数值也计算了，

（说明：通过条件格式怎么数值是显示灰色，怎么查看单元格式还是红色只是显示灰色而已）

追答

哇，这个麻烦大了！VBA似乎没法读取条件格式设置后的格式值。你要提供条件格式中“设置成灰色”的公式，然后用VBA代码判断是否满足“公式”；满足就忽略，不满足且为红色字体就求和。

追问

求和是J列，J10公式=$D10=$L10时字体自动变为灰色，太感谢你了！修改后发给我，还能给你加分吗！顺便告之。

追答

只对J列求和有效，修订代码如下。

找一个空白单元格，输入这个：=JSUMRED()

Function jsumred() As Double
Dim rg As Range
For Each rg In Intersect(ActiveSheet.UsedRange, Columns("J"))
    If rg.Font.Color = RGB(255, 0, 0) And IsNumeric(rg.Value) And Range("D" & rg.Row).Value <> Range("L" & rg.Row).Value Then jsumred = jsumred + rg.Value
Next
End Function

来自：求助得到的回答本回答被提问者采纳

Answer 3

1、在颜色字体单元格旁添加一个辅助列，如B列，选择B1单元格，按"Ctrl+F3“组合键，调出定义名称框，在新建名称中：
名称栏：颜色
引用位置输入：=GET.CELL(24,!A1)
2、在B1单元格输入=颜色 并向下复制到A列有数据的最后一行；
3、在颜色条件汇总求和单元格输入＝SUMIF(B1:B8,3,A1:A8)，即可得到A列红色字体单元格的和。

详见我的经验
http://jingyan.baidu.com/article/ceb9fb10e53bc88cac2ba05a.html追问

只求单元列上红色字体数值之和，没有引用可言(因为这些数字所对应的产品名称都不同。(注：红色字不是负数)用函数SUMIF(range，criteria，sum_range)没有range的。

本回答被网友采纳

Answer 4

直接百度搜索【Excel根据单元格字体颜色进行条件求和】文章追问

用函数SUMIF(range，criteria，sum_range)没有range的。

Answer 5

红色是负值？追问

红色字不是负数