エクセルで１つの行で色がついているセルをカウントするにはどうすればいいでしょうか。

B4からAJY4の範囲でセルに色がついているものを数えたいです。

色はオレンジ、赤、緑などさまざまですが一括でカウントしたいです。
どのようにすればいいでしょうか。

No.1 ベストアンサー 回答者： tom04 回答日時： 2019/09/13 22:00

こんばんは！

＞セルに色がついているもの
とは条件付き書式による色付けでしょうか？
それとも手動による色付けでしょうか？

とりあえずどちらにも対応できるようにしてみました。
VBAになりますが、一例です。

Sub Sample1()
　Dim c As Range, cnt As Long
　　For Each c In Range("B4:AJY4")
　　　If c.DisplayFormat.Interior.ColorIndex <> xlNone Then
　　　　cnt = cnt + 1
　　　End If
　　Next c
　　　MsgBox cnt & "個"
End Sub

こんな感じでいけると思います。m(_ _)m

この回答へのお礼

ありがとうございます！とても助かりました。

お礼日時：2019/09/13 22:32