Excel VBA質問箱 IV

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

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


56344 / 76732 ←次へ | 前へ→

【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
1 hits

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

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