软件: Excel
版本:365
想要自订一个函数来计算选取范围中含目标颜色的储存格数量
Function FontColorCount(rng_c As Range, cell_a As Range)
Dim qty As Integer
Dim cel As Range
qty = 0
For Each cel In rng_c
If cel.Font.ColorIndex = cell_a.Font.ColorIndex Then
qty= qty + 1
FontColorCount = qty
End If
Next cel
End Function
但是运行后好像发现公式只能计算出原有储存格文字设定的颜色，若是用条件化格式改变字
https://m.imgur.com/a/KPK6Thc
希望版上各位前辈能指点一下怎么调整语法
十分感谢

如果可改程序sub的话，以range.displayformat来判断

Hi S大 我有改成(Range).DisplayFormat.Font.Color 但是跑出来结果显示为 #VALUE! 好像还是有什么错误

写在function内吗？如果是的话，会回传错误值#value!请写于回文提到的sub内

喔喔 对 我是改在function... 来研究一下怎么改sub @@