按字体颜色求和

李晓蔚

各位大神：
  表格中有多行数据，每一行怎么单独按字体颜色求和，求赐教，拜谢


按颜色求和.zip (8.89 KB, 下载次数: 10)

2021-12-3 14:59 上传

点击文件名下载附件
按颜色求和.zip

杨秀凯

函数是色盲，做不到的
VBA可以

舞动未来

换个思路，将字体颜色改成填充颜色，然后用自定义的方式可以办到，不然，函数实现不了

飞琼神仙

自定义函数，蓝色有两种色号，如果都需要统计，请都刷成亮的那种


副本按颜色求和.7z (14.89 KB, 下载次数: 30)

2021-12-3 14:59 上传

点击文件名下载附件
副本按颜色求和.7z

望着你

要用宏表函数
创建名称：

按颜色求和.zip (29.76 KB, 下载次数: 209)

2021-12-3 14:59 上传

点击文件名下载附件
按颜色求和.zip

姜宗法

颜色代号 :奌选G13-->CTR+F3-->定义名称QQ(随意 非指令均可 如 QQ ,AA…)-->参照到公式=GET.CELL(24,B2)-->确定-->G13输入公式=QQ-->右拉 下拉-->颜色改变或重开机 重新RUN与下拉一次
Q8:Q10=SUMPRODUCT((G13:P13=CHOOSE(ROW(A1),3,33,46))*G8:P8)

南巷近海

谢谢各位大神指点

熊猫橘子

Function ColorSum(Srg As Range, Crg As Range)
  Dim rg As Range
  Dim SumV#
  For Each rg In Srg
    If rg.Font.ColorIndex = Crg.Font.ColorIndex Then
      SumV = SumV + Val(rg)
    End If
  Next
  ColorSum = SumV
End Function