記号のカウント

質問

こんばんわ！　いつもお世話になっています。
今回はExcelで「B6～D6」「I6～K6」「P6～R6」列から下、行は限りなく「◎・○・▲・△・☆」が記入されます。
また、同様に「E6・L6・S6」列から下、行は限りなく「赤◎」が記入されるセルと記入されない空白のセルがあります。

そこで「◎・○・▲・△・☆」の記号のカウントを表したく、
セル「A3＝赤◎・B3＝◎・C3＝○・D3＝▲・E3＝△・F3＝☆」に各記号のカウントが表示されるようにいたいと思います。
　ここまでなら「COUNTIF」関数で出来ると思いますが、
今回は「E・L・S」列に「赤◎」が記入されている行だけの記号
「◎・○・▲・△・☆」と「E・L・S」列の「赤◎」をカウントしたい
のですが、わかる方いらっしやいましたら教えて下さい。
宜しくお願いします。

回答No.1

temtecomai2 · ベストアンサー

すでに自分で調べて、ワークシート関数で文字の色をカウントできないってことはわかったかと思います。
ですので VBA で関数を自作してみました。
セルから =CountEX と打てば呼び出せます。
引数は 3つあります。
1つ目の引数は検索したい文字または、文字が入っている単一セルを指定します。
2つ目の引数は検索したい文字色を数値で指定します。赤なら 255 です。
3つ目の引数は検索範囲を指定します。
例: B2～B20 にある、赤で入力された ◎ の数を取得する。
=CountEX("◎", 255, B2:B20)

Public Function CountEX(char As Variant, colorNumber As Long, targetRange As Variant) As Long
Dim hit As Long

Dim aString As String
If TypeName(char) = "Range" Then
aString = char.Value
Else
aString = char
End If

Dim cell As Variant
For Each cell In targetRange
If (cell.Value = aString) And (cell.Font.color = colorNumber) Then
hit = hit + 1
End If
Next

CountEX = hit
End Function

これを対象ブックに組み込むか、アドインとして使ってみてください。
動作保証はいたしかねます。

お礼

temtecomai2さん回答ありがとうございます。
しかも自作までして頂いて・・・。
VBAは難しくて、本などに載っている自分の求めているのに近いものなどを探している状態なので
思う様な例が見つからなくて困っていたので本当に助かりました。
　仕事で使用したい為、年明け早々に作成して頂いたプログラミングを基に頑張ってみます。
もし、補足をする様な事があったらすいませんが宜しくお願い致します。