Excel行番号指定で黄色セルの個数合計

質問

行番号を何処かのセルに入れて指定をし、

空白を含めた(D:W)の値の内、

黄色に染まってる物の合計個数を行番号下のセルに入れたいです。

どのようにすればよろしいですか。

回答No.3

imogasi · ベストアンサー

#2です。
ミスタイプを訂正します。ごめん。
供する―＞許容する
せ（R)－－＞セル
できっるーー＞出来る

お礼

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

回答No.2

imogasi

セルの設定色をカウントしたり、それらのセルの合計を出しことは関数ではできません。
（１）VBAのプログラムを使うことを供するほかない。
（２）もしせ(R)の値などで、条件付き書式の「数式が・・」などを使って、セルの色などが設定されているなら、その条件を、もし数式化できっるなら、その式を取り込んで、SUMIFS関数、COUNTIFS関数など使って、質問の合計か件数を出せるかもしれない。
ーー
ここに質問する人は、この条件に注目する人はほとんどいない。
また関数ではセルの塗りつぶしの色やフォント色を、取れる関数がないことを知らないようだ。
極端な話、上司・責任者が、点数やその他の評価項目を総合的に考慮して、ランクの色付けしたなどの場合は、お手上げです。人間がカウントするほかない。
ーー
エクセルの、ずっと先のバージョンとか、Googleのソフト
では、この機能を実現してくれるかもね。

お礼

ご助力感謝します。

回答No.1

kkkkkm

A1に行番号を入れるとして
65535はマクロの記録で実際の色をセルに設定して取得してください。

Sub Test()
Dim mRow As Long
Dim mCount As Long
Dim c As Range

mRow = Range("A1").Value

For Each c In Range(Cells(mRow, "D"), Cells(mRow, "W"))
If c.DisplayFormat.Interior.Color = 65535 Then
mCount = mCount + 1
End If
Next
Range("A2").Value = mCount
End Sub

お礼

ありがとうございました。しっかりとできました。kkkkkmさん、いつもありがとうございます。