李晓蔚 发表于 2021-12-3 14:59:00

按字体颜色求和

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


杨秀凯 发表于 2021-12-16 18:48:03

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

舞动未来 发表于 2022-1-8 05:38:14

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

飞琼神仙 发表于 2022-1-15 23:58:44

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


望着你 发表于 2022-1-31 10:57:48

要用宏表函数
创建名称：

姜宗法 发表于 2022-2-11 11:37:33

颜色代号 :奌选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)

南巷近海 发表于 2022-2-23 05:54:48

谢谢各位大神指点

熊猫橘子 发表于 2022-3-9 00:17:45


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
页: [1]
查看完整版本: 按字体颜色求和