[[20050308152110]] 『条件付書式の条件は3つが限度?』(よよ) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『条件付書式の条件は3つが限度?』(よよ)

条件付書式で条件を設定していたのですが、3つが限度でした。

さらに条件を追加したいのですが、他の方法で可能でしょうか。

5〜6種類の条件を行いたいのです。
例えば
「セルの値が」「次の値の間」「256.5」と「257.49」(値の数値はさまざまです)
書式はセルの色「青」等(識別が付けばOK)

よろしくお願いします。
できれば、簡潔な機能で可能な方法がよいです。
難しいようであれば、あきらめます。


 その5つから6つの条件を全て書いてみてください。
 (川野鮎太郎)


 セルC5〜C424の条件付書式で
「セルの値が」「次の値の間」「197.01」と「197.99」セル色「青」
「セルの値が」「次の値の間」「201.23」と「202.22」セル色「赤」
「セルの値が」「次の値の間」「255.5」と「256.49」セル色「黄」
「セルの値が」「次の値の間」「258.5」と「259.49」セル色「緑」
「セルの値が」「次の値の間」「268.5」と「269.49」セル色「オレンジ」
「セルの値が」「次の値の間」「275.5」と「276.49」セル色「茶」
という感じです。
他のセルD5〜D424・・・BD5〜BD424もそれぞれ数値が異なる条件を設定したいのです。

(よよ)


 上記の条件を見ると規則性がなさそうなので、全てのパターンで設定が必要な気がします。
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    'C5からBD424までが対象
    If Application.Intersect(Target, Range("C5:BD424")) Is Nothing Then Exit Sub
    Select Case Target.Column
        Case 3                    'C列の設定
            Select Case Target.Value
                Case 197.01 To 197.99
                    MyColor = 5   '青
                Case 201.23 To 202.22
                    MyColor = 3   '赤
                Case 255.5 To 256.49
                    MyColor = 6   '黄
                Case 258.5 To 259.49
                    MyColor = 4   '緑
                Case 268.5 To 269.49
                    MyColor = 45  'オレンジ
                Case 275.5 To 276.49
                    MyColor = 53  '茶
                Case Else
                    MyColor = xlNone
            End Select
        Case 4                    'D列の設定
            Select Case Target.Value
                Case 197.01 To 197.99 '←の数値は変えてください。
                    MyColor = 5   '青
                Case 201.23 To 202.22
                    MyColor = 3   '赤
                Case 255.5 To 256.49
                    MyColor = 6   '黄
                Case 258.5 To 259.49
                    MyColor = 4   '緑
                Case 268.5 To 269.49
                    MyColor = 45  'オレンジ
                Case 275.5 To 276.49
                    MyColor = 53  '茶
                Case Else
                    MyColor = xlNone
            End Select
                                     '←ここに追加していく。
        End Select
        Target.Interior.ColorIndex = MyColor
End Sub

 (川野鮎太郎)


おしえてください。

1 MyColor = 5の5は青色を指しているのですか。
他の色の色番号がわかる一覧のようなものはエクセルで探すことができますか

2 Case・・・To・・・を追加すれば、6個の設定以上可能ですよね。
(よよ)


 どうぞ。
[[20050115131721]]『条件式書式を6つやりたいんですが・・・』(sirouto)
 そうです。追加していけばOKです^^

 (川野鮎太郎) 


丁寧に記述していただき、よくわかりました。
本当にありがとうございます。
早速トライしてみます。
(よよ)


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.