作者al53796 (大兹)
看板Office
标题[问题] 自订函数计算文字颜色
时间Fri Mar 15 13:05:41 2019
软体: 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
希望版上各位前辈能指点一下怎麽调整语法
十分感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.137.112.145
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1552626343.A.FD4.html
1F：→ soyoso: 如果可改程序sub的话，以range.displayformat来判断03/15 14:42
※ 编辑: al53796 (114.137.112.145), 03/15/2019 15:00:15
2F：→ al53796: Hi S大 我有改成(Range).DisplayFormat.Font.Color 但是 03/15 15:19
3F：→ al53796: 跑出来结果显示为 #VALUE! 好像还是有什麽错误 03/15 15:19
4F：→ soyoso: 写在function内吗？如果是的话，会回传错误值#value! 03/15 15:28
5F：→ soyoso: 请写於回文提到的sub内 03/15 15:29
6F：→ al53796: 喔喔 对 我是改在function... 来研究一下怎麽改sub @@ 03/15 15:38