excel红色字体求和

Question

Function RedSum(rng As Range)
Application.Volatile
Dim cell As Range
RedSum = 0
For Each cell In rng
If cell.Font.Color = RGB(255, 0, 0) Then
RedSum = RedSum + cell.Value
End If
Next
End Function
Function BlackSum(rng As Range)
Application.Volatile
Dim cell As Range
BlackSum = 0
For Each cell In rng
If cell.Font.ColorIndex = xlAutomatic Then
BlackSum = BlackSum + cell.Value
End If
Next
End Function

另外， 在本工作表标签上右击查看代码，贴上如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculate
End Sub
最后，你可以像平常一样使用它们，例如= RedSum（O6:Q6）
这一段应该不能求和条件格式满足变成红色的单元格，怎么弄

Answer 1

首先条件格式并没有改变单元格的属性，所以公式抓不到。

举例RedSum你参考一下我的折中办法。

Function RedSum(rng As Range)

Application.Volatile

Dim cell As Range

RedSum = 0

For Each cell In rng

If cell.Value > 9 Then '这里是假设的条件格式条件根据需要改成你的

cell.Font.Color = RGB(255, 0, 0) '为方便观察仍把符合条件格式单元格标红字体

RedSum = RedSum + cell.Value

End If

Next

End Function

Answer 2

代码中有【cell.Font.Color = RGB(255, 0, 0)】，您得确保单元格的字体RGB值是(255, 0, 0)。
我猜您的红色单元格并不是字体是红色，而是底纹是红色。那么可以试试看把【cell.Font.Color = RGB(255, 0, 0)】改成【cell.Color = RGB(255, 0, 0)】

Answer 3

看着没有任何问题，唯一不理解的是自定义函数的第一句有什么意义？
最后提一句，函数内所识别的红色，是指定255值得红色，有时候你所使用的红色不一定是这个值得

Answer 4

在颜色字体单元格旁添加一个辅助列,如B列,选择B1单元格,按"Ctrl+F3“组合键,调出定义名称框,在新建名称中: 名称栏:颜色 引用位置输入:=GET.CELL(24,!A10)+NOW()*0在B1单元格输入=颜色 并向下复制到A列有数据的最后一行;以求红色为例: 在颜色条件汇总求和单元格输入=SUMIF(B1:B8,3,A1:A8),即可得到A列红色字体单元格的和。将文件另存为“启用宏的工作簿”文件首先打开数据区域，发现业绩评分中的字体有黑色的有红色的有蓝色的，那么如何按照字体的颜色进行求和和计数依次选择数据分析，分析与统计，中的颜色单击后在弹出的对话框中，我们选择数据区域选择好数据区域后，我们需要确定按体颜色进统计，此时我们可以单击颜色按钮，并选择带有蓝色字体的单元格

Answer 5

看来你是比较清楚的

桃仁+杏仁+芦荟
新鲜芦荟汁100g、桃仁50g、苦杏仁50g。将桃仁与苦杏仁打磨成粉末状（也可以直接买粉来用）；加入预先榨好备用的新鲜芦荟汁；将芦荟汁及粉末拌匀即成；清洁面部肌肤后，取适量面膜剂敷，大约10-15分钟左右即可洗去。每周做2-3次，坚持一段时间后可以起到祛斑的效果。
醋蛋美白面膜
选一个鸡蛋，泡在白醋里一个礼拜，等蛋透明变大的时候取出来，用针把蛋扎破，把鸡蛋清倒进准备好的瓶子里就可以了。用法：每天晚上洗过脸后，把蛋清抹在脸上，等干透了洗掉就可以了。
菠菜外敷法
将新鲜的菠菜洗干净捣烂，取出来汁液，洗完脸后涂于脸部。或者将适量的菠菜煮熟，用煮过的水洗脸，可以有效的清洁皮肤，还有润肤的效果。
菠菜内服法
可以让新鲜的菠菜在开水中煮几分钟，在凉水中浸泡后挤去水，用调味品进行煮，长期使用菠菜，有利于补充人体的营养、促进皮肤的新陈代谢，还可以美白祛斑、防止皮肤的老化
绿茶祛除斑点
每天早晚洗脸时，在水中加入几片绿茶，洗完脸后轻轻拍打皮肤，在涂上乳液。一段时间后脸上的黑斑就会减轻，还能有效的祛除雀斑。还可以把绿茶粉泡茶喝，每天早晚两杯，在配上绿茶面膜，效果更好。
绿茶面膜
准备绿茶粉一勺、蛋黄一个、面粉一勺。在面粉中加入蛋黄搅拌，在加入绿茶粉，面膜就做好了，把脸上的污物清洗干净，在铺上一层纸，10分钟后用温水洗干净即可。刚敷了面膜的肌肤会很敏感，不要立即上妆，先涂抹化妆水再上妆。