关于excel的颜色函数问题

Question

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

请高手讲详细一点，谢了
例如A1-A4里的数值分别为1－4（颜色为红色），和为10（显示在B1）；A5-A8里的数值分别为5－8（颜色为蓝色），和为26（显示在B2）；当A4变为蓝色后，B2自动变为30；B1变为6。这样可以实现么？或者在3、4行之间插入一行红色数值，A1会自动加上这个数值，可以么？
如果可以，请说的通俗点儿，谢谢了！

Answer 1

在Excel中有个隐藏函数 get.cell()，可得到单元格中的相关信息， 如get.cell(63,a1)得到a1单元格底色的值。

操作方法：
1、选中A1，填充颜色，如红色；
2、选中B1，插入，名称，定义，<定义一个名称，如x>，引用位置中输入 =GET.CELL(63,Sheet1!A1)；
3、这样在任何单元格中输入 =x 即可得到左边相邻单元格的填充颜色值；
4、通过该方法，做一些适当的组合，即可得到相同颜色的单元格的集合，对其求和，取平均值等均可。

补充回答，
从Excel Home论坛中得到答案，使用自定义函数，如果不用VBA暂时没有答案，如果需要，我可将Excel文档发给你。

Function colorsum(y As Range, rng, z As Integer)
Application.Volatile
Dim c As Double
Dim x As Range
colorsum = 0
For Each x In rng
If x.Interior.ColorIndex = y.Interior.ColorIndex Then
c = x.Offset(0, z).Value
Else '否则
c = 0
End If
colorsum = colorsum + c
Next x
End Function
'公式例子 =colorsum(F3,$A$2:$A$80,2)*1 F3为指定颜色单元,2是偏移的列数,公式后加*1是为了自动刷新

设置E1为红色，E2为蓝色，在F1中输入=colorsum($E1,$A$1:$A$100,0)*1， F2中输入=colorsum($E2,$A$1:$A$100,0)*1