[備忘録]Excel：セル背景色が「黄色」のセル数をカウントする方法

VBAマクロを組む

ある会合の出欠リストで、会合の出欠の他に「懇親会」の出欠も合わせて記録し、それぞれの人数を把握する必要があった。

○：会合出席
△：会合オンライン出席
黄色：懇親会参加
　
例えば、「会合には出席しないけど懇親会には参加する」などのケースもあり、セルの背景色を「黄色」にすることで懇親会参加としたのだが、、
懇親会参加者数を集計するのが ちと面倒だったので、メモ。。
　

今回もChatGPTさんにご教授いただいた

ChatGPTさんによると、単純な関数ではダメで、VBAマクロを組む必要があるらしい。。
　
■入力したプロンプト

Excel関数で、M列のセルの色が「黄色」の数をカウントする方法は？

　
■VBA
１．Alt + F11 を押してVBAエディターを開く
２．挿入 → 「標準モジュール」を追加
３．以下のコードを貼り付け

Function CountYellow(rng As Range) As Long
    Dim c As Range
    Dim cnt As Long
    cnt = 0
    For Each c In rng
        ' RGB(255,255,0) がExcel標準の「塗りつぶし（黄色）」
        If c.Interior.Color = RGB(255, 255, 0) Then
            cnt = cnt + 1
        End If
    Next c
    CountYellow = cnt
End Function
  

　
■シートに戻って次を入力

=CountYellow(M2:M6)

　
これでOK！