[問題] 自訂函數計算文字顏色

[al53796 (大茲)]

軟體: 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://www.ptt.cc/bbs/Office/M.1552626343.A.FD4.html
→ soyoso: 如果可改程序sub的話，以range.displayformat來判斷
※ 編輯: al53796 (114.137.112.145), 03/15/2019 15:00:15
→ al53796: Hi S大 我有改成(Range).DisplayFormat.Font.Color 但是
→ al53796: 跑出來結果顯示為 #VALUE! 好像還是有什麼錯誤
→ soyoso: 寫在function內嗎？如果是的話，會回傳錯誤值#value!
→ soyoso: 請寫於回文提到的sub內
→ al53796: 喔喔 對 我是改在function... 來研究一下怎麼改sub @@