Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9848 / 13644 ツリー ←次へ | 前へ→

【25143】条件によって、4色以上の色付け&網掛け KOH 05/5/22(日) 3:53 質問[未読]
【25144】Re:条件によって、4色以上の色付け&網掛け ponpon 05/5/22(日) 10:42 回答[未読]

【25143】条件によって、4色以上の色付け&網掛け
質問  KOH  - 05/5/22(日) 3:53 -

引用なし
パスワード
   初めて書き込みさせて頂きます。

「条件付き書式」(範囲「F19」から「BS119」)で、
1.セルの値が、「A」の時、「セル色赤&12.5%灰色網掛け」
2.セルの値が、「B」の時、「セル色青&12.5%灰色網掛け」
3.セルの値が、「C」の時、「セル色黄&12.5%灰色網掛け」
と行っていましたが、3パターンしか追加できません。

これに、
4.セルの値が、「D」の時、「セル色黄緑&12.5%灰色網掛け」
5.セルの値が、「M」の時、「12.5%灰色網掛け」
6.セルの値が、「K」の時、「Kの文字を消す」
という条件をつけることはできますでしょうか。

VBAの本を購入してみたのですが、よくわかりません。
何か良い方法はないでしょうか?
お知恵を拝借したく宜しくお願い致します。

【25144】Re:条件によって、4色以上の色付け&網...
回答  ponpon  - 05/5/22(日) 10:42 -

引用なし
パスワード
   おはようございます。


A,B,Cの時も書式を設定するようになってます。条件付き書式は、
そのままでも結構ですが、後で変更する場合などが考えられるので、
はずした方がよいと思います。

以下をシートモジュールに貼り付けて試してみてください。

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
     If .Count > 1 Then Exit Sub
     If Application.Intersect(Target, Range("F19:BS119")) _
      Is Nothing Then Exit Sub
      Application.EnableEvents = False
      Select Case .Value

   '↓条件付き書式をはずさないなら、ここから↓
       Case Is = "A"
        .Interior.ColorIndex = 3
        .Interior.Pattern = xlGray16
       Case Is = "B"
        .Interior.ColorIndex = 5
        .Interior.Pattern = xlGray16
       Case Is = "C"
        .Interior.ColorIndex = 6
        .Interior.Pattern = xlGray16
   '↑ここまでを削除してもできます。↑      

       Case Is = "D"
        .Interior.ColorIndex = 4
        .Interior.Pattern = xlGray16
       Case Is = "M"
        .Interior.ColorIndex = xlNone
        .Interior.Pattern = xlGray16
       Case Is = "K"
        .Interior.ColorIndex = xlNone
        .ClearContents
       Case Else
        .Interior.ColorIndex = xlNone
      End Select
      Application.EnableEvents = True
  End With

End Sub

9848 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free