|
ponponです。
私もichinoseさんの考え方を提示しようと考えていたのですが、
データが必ず、C列ならば、
D,E,F,G列を使って基準値を表示したらいかがでしょうか?
ただichinoseさんが言っているように、
基準値のパターンがよく分かりません。
以下のようにすると、
(=が付くのか付かないのかよく分かりませんが、)
C列の値が基準値の範囲内かどうかを判断しやすくなると思います。
A B C D E F G
1 基準値
2 計器 基準値 測定値 以上 最低値 以下 最高値
3 113A 0.1<0.15 0.1 >= 0.1 <= 0.15
4 113B 0.1<0.25 0.3 >= 0.1 <= 0.25
5 113C 0.7< 0.8 >= 0.7
6 113D 2.0<5.0 4.0 >= 2.0 <= 5.0
7 114A 7.0±1.0 8.0 >= 6.0 <= 8.0
関数を使った方がはやいかもしれませんが、・・・
すべてが、以上 以下でよいパターンなら、
以下コードで何とかなるかも。
Sub test()
Dim myR As Range
Dim C As Range
Set myR = Range("C3", Range("C65536").End(xlUp))
For Each C In myR
If C.Value <= C.Offset(0, 2).Value Or C.Value >= C.Offset(0, 4).Value Then
C.Interior.ColorIndex = 8
Else
C.Interior.ColorIndex = 2
End If
Next
End Sub
|
|