プロが教えるわが家の防犯対策術!

OS=WIN10
エクセル2002です


エクセルでテストの集計をしています
偏差値を求め、偏差値を5段階に分類しそれぞれセルの地の色を変えたいと思います
下記のような感じです
偏差値 65以上99未満 赤色
偏差値 55以上65未満 オレンジ色
偏差値 45以上55未満 黄色
偏差値 35以上45未満 水色
偏差値 01以上35未満 青色

条件付き書式の設定で可能だとおもっていたら条件付き書式は3段階までしか設定できません
これを5段階まで増やす方法はあるでしょうか?
ないならば、別の方法で類似の結果を出す方法はあるでしょうか?

A 回答 (3件)

No.2です。



>関数のIF文の入れ子構造で・・・
関数で処理するとしても「TRUE」の場合しか対応できませんので、
結局色の数だけ条件付き書式が必要です。
Excel2003以前の場合はどうしてもVBAになってしまうのではないでしょうか。

苦肉の策でうが、別列に評価を表示すてはダメですか?

↓の画像ではC2セルに
=IF(B2="","",VLOOKUP(B2,E:F,2,1))
という数式を入れフィルハンドルで下へコピーしています。

※ この程度しか思いつきません。
お役にたてなかったらごめんなさい。m(_ _)m
「エクセルの条件付き書式。3段階以上設定す」の回答画像3
    • good
    • 0
この回答へのお礼

ご解答ありがとうございます。
ベストアンサーにします

お礼日時:2020/06/13 16:21

こんにちは!



No.1さんが回答されている方法そのままですが・・・
↓のコードをシートモジュールにしてみてください。

尚、C列2行目以降を対象としていますので、
範囲は実情に合わせてください。

Private Sub Worksheet_Change(ByVal Target As Range) '//この行から//
 If Intersect(Target, Range("C:C")) Is Nothing Or Target.Count > 1 Then Exit Sub '//←C列を対象①//
  With Target
   If .Row > 1 Then '//←2行目以降が対象//
    If .Value <> "" Then
     Select Case .Value
      Case Is < 35
       .Interior.ColorIndex = 5
      Case Is < 45
       .Interior.ColorIndex = 28
      Case Is < 55
       .Interior.ColorIndex = 6
      Case Is < 65
       .Interior.ColorIndex = 45
      Case Is < 99
       .Interior.ColorIndex = 3
     End Select
    Else
     .Interior.ColorIndex = xlNone
    End If
   End If
  End With
End Sub '//この行まで//

※ 細かいエラー処理はしていません、
※ C2セル以降は数値データが入る!という前提です。

条件付き書式が設定してあるとそちらが優先されますので、
条件付き書式はクリアしておいてください。

※ 注意点 ※
対象範囲が数式によって表示されている場合は何も変化しません。
数式が対応しているセルのチェンジイベントにする必要があると思います。

青など濃い色にしてしまうと数値が見えにくいと思います。
色は適宜変更してください。
↓のサイトで色のINDEX番号は選べます。m(_ _)m

https://hichame.hatenadiary.org/entry/20090715/1 …
    • good
    • 0
この回答へのお礼

ご解答ありがとうございます。

マクロを持ち出さずともセル関数のIF文の入れ子構造で何とか類似の成果は出せないでしょうかね?

お礼日時:2020/06/10 14:59

2003までは確か3個以内ですよね。


当時どうしたかと言えばマクロ(VBA)での対応しかなかったですね。

条件付き書式で4つ以上の条件を指定−Worksheet_Change
https://www.relief.jp/docs/002293.html

https://www.google.com/search?client=firefox-b-d …
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます
マクロですか、難しそうですね

お礼日時:2020/06/10 08:25

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

このカテゴリの人気Q&Aランキング