ベストアンサー

Excelの条件付き書式について

2005/02/18 18:47

Excelの条件付書式について教えてください。次のようなことをしたいです。 (1)１０個のセルに次のような条件付書式を設定します。　・条件１：セルの値が５以上だったらセルの塗りつぶし(パターン)を青色にする。　・条件２：セルの値が５未満だったらセルの塗りつぶし(パターン)を赤色にする。 (2)別の１つのセルで上の１０個のセルを監視して　すべてのセルが青色だったら"PASS"と表示する。　ひとつでも赤色のセルがあったら"FAIL"と表示する。 VBAを使用して、条件付書式が設定されたセルを参照し、どちらの条件付書式が適用されているのか調べられるのなら、それでもかまいません。条件付書式でセルの色(パターン)を設定した場合、セルの.Interior.ColorIndex 及び PatternColorを参照しても、塗りつぶしはされてないという扱いになっているようです。なにか方法があるでしょうか？

lasley
お礼率20% (2/10)

オフィス系ソフト
回答数8
ありがとう数2

みんなの回答 （8）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

maccheroni
ベストアンサー率29% (12/41)

2005/02/19 07:26 回答No.8

> (後で条件を変えられるように、"５"はA3等セルの参照にしてあります。) ならばセルの数式はIFとSUMPRODUCTが適切ですね。 =IF(SUMPRODUCT(($B$1:$B$10>=A3)*1)=10,"PASS","FAIL") セルの相対参照、絶対参照はこれでいいですか？なるほど SUCCESS　FAILURE、PASSED　REJECTEDとかじゃないんですね。

ログインすると、全ての回答が全文表示されます。

その他の回答 (7)

KenKen_SP
ベストアンサー率62% (785/1258)

2005/02/19 00:43 回答No.7

#1 #3 です。いや、だから難しく考えないで（^^;) ＞(後で条件を変えられるように、"５"はA3等セルの参照にしてあります。) たとえ条件が変動するとしても、例えばB2に条件を >=5 とでも >=8 とでも書いて、B1セルに =IF(COUNTIF(A1:A10,B2)=10,"PASS","FAIL") とすればOKです。

ログインすると、全ての回答が全文表示されます。

matsu_jun
ベストアンサー率55% (146/265)

2005/02/18 23:55 回答No.6

条件付書式の採用を諦めた方がいいかもしれませんね。セルの塗りつぶしもマクロで行うということでいかがでしょう。目的のシートのWorksheet_Changeイベント(任意のセルの内容が変化した時に発生するイベント)に力技で書き込めば解決できると思いますし、条件付書式を設定しなければならないセルが増えるほどマクロのFor Next文で回した方が早いと思います。ただし、このイベントの冒頭に On Error GoTo ErrHand Application.EnableEvents = False の2行を、最後に ErrHand: Application.EnableEvents = True の2行を入れておかないと大変なことになってしまいますので、ご注意を。

ログインすると、全ての回答が全文表示されます。

maccheroni
ベストアンサー率29% (12/41)

2005/02/18 19:34 回答No.5

(1) A1:A10までなら、その範囲を選択し、条件のところでセルの値が　次の値以上　5　　（書式ボタンを押して塗りつぶしを青に設定）→OKボタン追加ボタン→ セルの値が　次の値より小さい　5　　（書式ボタンを押して塗りつぶしを赤に設定）→OKボタン→OKAボタン (2) =IF(COUNTIF(A1:A10,">=5")=10,"PASS","FAIL") 条件付書式でつけた色はVBAでは取得できません。

質問者

補足 2005/02/18 21:49

僕の質問の仕方が悪かったです。ごめんなさい。 (1)の１０個のセルの条件、"５以上５未満"の"５"は実は各セルごとに変わる可能性がありまして。 (後で条件を変えられるように、"５"はA3等セルの参照にしてあります。) 各セルごとに判定の条件は異なります。そして各判定の総合判定として(2)を設定したいんです。混乱させましたが、よろしくお願いいたします。

ログインすると、全ての回答が全文表示されます。

akitaman110
ベストアンサー率25% (7/27)

2005/02/18 19:08 回答No.4

（１）ですが数式が=A1>=5の時に書式のパターンで青を指定数式が=A1<5の時に書式のパターンで赤を指定（２）は既に出ている通りです。

ログインすると、全ての回答が全文表示されます。

KenKen_SP
ベストアンサー率62% (785/1258)

2005/02/18 19:04 回答No.3

補足ですが、 SUMPRODUCT((A1:A10>=5)*1) はA1:A10のセル範囲で5以上のデータ数を返します。したがって、そのデータ数が10であれば、すべてのセルが5以上になりますので、IF関数でPASSと表示させています。

ログインすると、全ての回答が全文表示されます。

shinkun0114
ベストアンサー率44% (1553/3474)

2005/02/18 19:02 回答No.2

(2)はこれでもできますね =IF(COUNTIF(A1:A10,">=5")=10,"PASS","FAIL")

ログインすると、全ての回答が全文表示されます。

KenKen_SP
ベストアンサー率62% (785/1258)

2005/02/18 19:00 回答No.1

(1)の10個のセルについて 1. すべてが5以上であれば、PASS 2. そうでなければ FAIL と考えれば、IF関数でできますよ。 A1:A10にデータかあるとして、 B1 =IF(SUMPRODUCT((A1:A10>=5)*1)=10,"PASS","FAIL") です。

質問者

補足 2005/02/18 21:51

(1)の１０個のセルには取得データが入ります。そして、各セルの判定の条件はデータの様子をみて、あとで変わる可能性があります。その為、判定の条件は別のセルに書かれていて、条件付書式はそのセルを参照して判定しています。条件付き書式を用いれば、判定の条件を変えたときにすぐに判定が表示(青と赤で)されるので便利だなぁと思ったのですが、総合判定をするにはどうしたらいいのか分かりませんでした。データを取得したときに、Pass Failを判定すればいいのですが、後で条件を変えたときには、ボタンでも押して各セルの判定をしなおさなければなりません。条件付き書式を使うのはあきらめたほうがいいんでしょうか？

ログインすると、全ての回答が全文表示されます。