[[20030614005321]]　『セルの色を判定条件に』（ノエル）　ページの最後に飛ぶ

『セルの色を判定条件に』（ノエル）

セルの色が２色で出来た表があり、そフ中のある色のみのセルを
COUNTIFやSUMIFといった関数の条件に設定することは出来ないのでしょうか？
よろしくおねがいします。

 Option Explicit
 Function CC(adrs)
 Dim adr As Range
     Set adr = adrs
     CC = adr.Interior.ColorIndex
 End Function

 ↑のVBAを使って =CC(A1) で赤なら3 になりますが、
 　そのセル自身ではできませんでした。

 代わりに↓を参考ノしてください。
  （kazu）

 （e1k）赤い文字のセルだけ合計したい
http://www.excel.studio-kazu.jp/lib/e1k/e1k.html

 『色のついたセルの数え方』（ミヤ）
[[20030522020924]]

 もうすでに解決済みでしょうが、以前にもこちらのＨＰで出てきたと思いますが
 4.0マクロでも取得可能です、セルのすべての情報が取得できます。
 ＝get.cell（）関数です。
 もし時間に余裕が有れば見てみるのも参考になると思います。
 (bay)

ミヤさんの投稿を見て出来ました。ありがとうございました。
（ノエル）

コメント返信：