[[20071126145010]]　『条件付書式４つ以上の設定』（yuka）　ページの最後に飛ぶ

『条件付書式４つ以上の設定』（yuka）
条件をつけて色を返したいんですが、条件付書式だと条件が多すぎるため、
設定ができません。
過去ログ等で調べると、ＶＢＡを使えばよいというところまでは
理解しましたが、プログラムの意味が理解できず、自分のシートに応用
できません。
Ｂ３、Ｂ４、・・・・という順番で、月、火、水、木、金・・・と曜日が
入っています。色を返したいのはＫ列とＬ列。
Ｋ３は青、Ｋ４は赤、Ｋ５は緑、・・・
そして、
Ｌ３は緑、Ｌ４は黄、Ｌ５は紫、・・・
という具合です。
どうか教えてください。

 曜日と色の関係がよくわからず、K3、K4 … とアドレスと色が決まっているように思える
 という前提での話ですが、条件わけの必要がないのでは？
 (1or8)

 >Ｋ３は青、Ｋ４は赤、Ｋ５は緑
 >Ｌ３は緑、Ｌ４は黄、Ｌ５は紫、
 条件は？？？

説明がわかりにくくすみません、Ｂ３が月なら、Ｋ３に青、Ｌ３に緑、
Ｂ４が火なら、Ｋ４に赤、Ｌ４に黄です。

Ｂ３が月でなくほかの文字なら？？？

 条件が一部だけなので、歯抜けです。(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]]　

 (類似？)

 衝突です

 同じ方でしたね！ ↓に回答をつけましたが…
[[20071122155712]]『条件によって色を変えたい』（ゆか）

 Worksheet_Change の方が全然いいですね！
 ROUGE さんの方を参考にしてください！
 (1or8)

みなさん、ありがとうございます。
これできっと、私の帰宅時間も早くなります。
うれし～！！
ほんとに、ありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20071126145010]] 『条件付書式４つ以上の設定』（yuka） ページの最後に飛ぶ

[[20071126145010]]　『条件付書式４つ以上の設定』（yuka）　ページの最後に飛ぶ