需要通过“自定义函数”的方式,通过get.cell(63,!颜色单元格),然后得到单元格的颜色代码,然后再条件求和。
用自定义函数
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里黄色字体的数据的和............