|
こんばんは。
↓のレスのようにセルに基準値が入力されているのなら、
シートモジュールにコピペしてください。
測定値が変更されると(手入力でも)色づけをします。
測定値が基準内なら色も白に戻ります。
基準値がB列にしか入れられないなら使えません。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If IsNumeric(.Value) = False Then Exit Sub
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
Application.EnableEvents = False
.Interior.ColorIndex = xlNone
If .Value <= .Offset(0, 2).Value Or .Value >= .Offset(0, 4).Value Then
.Interior.ColorIndex = 8
Else
.Interior.ColorIndex = 2
End If
End If
Application.EnableEvents = True
End With
End Sub
|
|