excel高手请进来

Question

EXCEL中按颜色分为三组，三组用不同颜色，每组有好多数值，我需要统计每组数值的和，能不能做到根据颜色求和，比如第一组是红色，红色的值加起来我要显示在excel中，能不能用函数自动求出这个红色组的和（以及其他颜色组）？当组中数值颜色改变的时候，和就改变。

问题补充：例如A1-A4里的数值分别为1－4（颜色为红色），和为10（显示在B1）；A5-A8里的数值分别为5－8（颜色为蓝色），和为26（显示在B2）；当A4变为蓝色后，B2自动变为30；B1变为6。这样可以实现么？或者在3、4行之间插入一行红色数值，A1会自动加上这个数值，可以么？

如果有高手能解答，请举个例子说详细点，别贴上个VBA就完了，我真的想知道怎么操作，诚心感谢！！！

Answer 1

选中Sheet1的B1单元格，
插入-名称-定义
名称 "字体颜色"
=get.cell(24,Sheet1!A1)

然后在A1输入公式:=字体颜色,向下填充公式
红色应该返回数字3吧。

然后数据自动刷选，点B列的下拉框，里面是几个不重复的代表颜色的数字

写在D列,例如D1写3
E列求红色字体数值和:
=SUMPRODUCT(($B$1:$B$10=D1)*$A$1:$A$10)

蓝色黑色类似。

更改某字颜色，需要双击单元格，颜色数字才会修改。比较麻烦。

get.cell函数参考以下资料

参考资料：http://zhidao.baidu.com/question/38705683.html?si=1

Answer 2

**********
:)又学了一招

先创建以下代码的宏.然后选中你要进行计算的数据区域(从第一格开始向下选).然后运行宏.
我不知道你的颜色是什么意思.我做的是填充色.

Sub aaa()
Dim red As Single
Dim blue As Single
red = 0
blue = 0
For Each x In Selection
If ActiveCell.Interior.ColorIndex = 3 Then
red = red + ActiveCell.Value
End If
If ActiveCell.Interior.ColorIndex = 41 Then
blue = blue + ActiveCell.Value
End If
ActiveCell.Offset(1, 0).Select
Next
Cells(1, 2) = red
Cells(2, 2) = blue
End Sub本回答被网友采纳

Answer 3

学习中.........

Answer 4

用VBA可以做到的，你发给我我做好了你自己看一下啊！
[email protected]