Excelで特定の文字と文字色をカウントする方法

・https://gakumado.mynavi.jp/freshers/articles/55814

上記のURLのようにマクロを使用して結果を出したいのですが、
「黒字文字列」尚且つ「黒色」を2となるようにカウントを表示させたいのです。

=CountColor(A$2:C$4,C6,"黒字文字列")では#VALUE!になってしまいました。

お力添えいただけると幸いです。
よろしくお願いいたします。

No.2 ベストアンサー 回答者： chiune 回答日時： 2021/06/17 16:07

マクロを以下の様に変更

Public Function CountColor(ByVal area As Range, ByVal colorCell As Range) As Long
Dim targetRange As Range
Dim wkCount As Long
wkCount = 0
For Each targetRange In area
If targetRange.Font.Color = colorCell.Font.Color Then
If targetRange.Value = colorCell.Value Then
wkCount = wkCount + 1
End If
End If
Next
CountColor = wkCount
End Function

C6の値を　黒字文字列　にして　式は　=CountColor(A$2:C$4,C6）のまま。

この回答へのお礼

解決いたしました。
ありがとうございます。

お礼日時：2021/06/19 11:25

No.1 回答者： fujillin 回答日時： 2021/06/16 21:06

こんばんは

ご質問の意味がわからないけれど、単に、2倍したいってことでしょうか？

それなら、
　=CountColor(～～)*2
で計算できるはず。
（カッコ内の引数は、参考サイトにある通りの引数にしないと、エラーになる可能性があります）

そもそもですが、セル内の文字って複数の色を持ち得るので「あいうえお」が一文字ずつ「黒赤青緑黄」なんてこともあるので、そのような場合はご提示の関数も意図通りの結果になるとは限りませんけれど…

この回答へのお礼

ご対応いただきありがとうございました。

お礼日時：2021/06/18 17:19