エクセルで、セルの塗りつぶし色を判別する関数はあるのでしょうか。アドバイス下さい。

質問

●特定の色のセルに入っているデータの合計値を求めたいのです。マクロではなく、セルの中に関数（if...のような関数）を埋め込んで、使いたいのです。
●質問が長くなるので、具体的なことは省略しますが、例えば、セルD30に、「if（セルB30の塗りつぶし色＝赤, B30, C30）」のような関数を入れることは、可能なのか、というのが質問です。
●この式の意図は、セルA30のデータを見て、セルB30とC30のどちらにあるデータを集計に採用するか（人間が感覚的に）判断して、採用する方を赤で塗りつぶしておくことで、セルD30には赤色セルのデータが入るだろう、ということです。（数値的な判断ができない事情があります）
●これが可能なら、D列の下のほうに「=sum(d1:d50)」と入れれば、B列とC列のうち、赤色セルだけを集計できると思います。

回答No.1

BLUEPIXY · ベストアンサー

セルの塗りつぶし色を判別する（求める）関数はありません。
ユーザ定義関数でそのような関数を作ることはできます。
例
Public Function getColor(r As Range)
getColor = Right("000000" & Hex$(r.Interior.Color), 6)
End Function
if(getColor(B30)="0000FF",B30,C30)

"0000FF"は赤
getColorはBBGGRRの形式の１６進数で結果を返します。
塗りつぶし色、緑は"008000"です。
ただし、色を塗り替えただけでは再計算はされないことに注意。

お礼

早速のアドバイス有り難うございました。関数を定義しなければならないのですね。色のコードはどのようにして決めるのか分かりませんが、中間色を考えるとややこしそうですので、色の判別関数はあきらめます（当方初級者ですので）。隣のセルに●とか×を入れて選択するようにします。

有り難うございました。

補足

アドバイス有り難うございました。回答締めきりとさせていただきます。