|
おはようございます。
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
|
|