[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『条件付書式4つ以上の設定』(yuka)
曜日と色の関係がよくわからず、K3、K4 … とアドレスと色が決まっているように思える という前提での話ですが、条件わけの必要がないのでは? (1or8)
>K3は青、K4は赤、K5は緑 >L3は緑、L4は黄、L5は紫、 条件は???
条件が一部だけなので、歯抜けです。(ROUGE) '---- Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, clr1 As Integer, clr2 As Integer If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub For Each rng In Intersect(Target, Range("B:B")) Select Case rng.Value Case "月": clr1 = 5: clr2 = 10 Case "火": clr1 = 3: clr2 = 6 Case "水" Case "木" Case "金" Case "土" Case "日" Case Else: clr1 = xlNone: clr2 = xlNone End Select rng.Offset(, 9).Interior.ColorIndex = clr1 rng.Offset(, 10).Interior.ColorIndex = clr2 Next End Sub
(類似?)
衝突です
同じ方でしたね! ↓に回答をつけましたが… [[20071122155712]]『条件によって色を変えたい』(ゆか)
Worksheet_Change の方が全然いいですね! ROUGE さんの方を参考にしてください! (1or8)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.