excel表格两种颜色求和

Question

excel表格两种不同颜色字体,随机排列横行竖行,用excel表格的工具把两种不同颜色的数字分别求和,跪在地上磕头,谁能告诉我.
求和后自动算出差额.

Answer 1

不必磕头！！！

ALT+F11 插入模块
Function sumcol(rng As Range, icel As Range) As Single
Dim cel As Range
sumcol = 0
For Each cel In rng
If cel.Font.ColorIndex = icel.Font.ColorIndex Then
sumcol = sumcol + cel.Value
End If
Next
End Function

相同颜色单元格数据求和
在需要求和的单元格里输入 =SUMCOL(A1:A6,A1)
表示求A1：A6，单元格填充颜色数据之和，后面的A1，表示填充颜色单元格，根据实际情况修改即可。追问

我说的不清楚,表格不填充颜色,只是数字有颜色,而且是好多数,这怎么求和,如果输入A1：A6,中间有不同的颜色也加了,那不算错了吗,而且数字很多，如果每次都分段设的话,累死了,比如横行120行,竖列20列,怎么弄啊

追答

你先试下，我只是举例

Answer 2

你是想要总和 还是要公式？
如果是要总和的话 把你电脑的WORD2003升级到WORD2007就能拥有颜色辨认的功能

Answer 3

用自定义函数
function
sumcol(color
as
range,
rng
as
range)
dim
mycells
as
range
application.volatile
for
each
mycells
in
rng
if
mycells.font.colorindex
=
color.font.colorindex
then
sumcol
=
mycells.value
+
sumcol
end
if
next
end
function
语法
=sumcol(d12,a1:c11)
要求和的数据在a1:c11，d12里的字体设置为红颜色，就求a1:c11里红色字体的数据的和，d12里的字体设置为黄颜色，就求a1:c11里黄色字体的数据的和............