| |
ponpon さん ありがとう御座います。
説明不足で申し訳ありません。
基準値の記載について下記のようにB,C,Dセルに分ければ簡単でしょうか？
できれば測定値は日付順に列を追加しようと思います。
測定値の列は日付順であれば何処でも構いません。
また、関数の利用も考えたのですがコピー＆ペーストが出来なくなると思いますので適さない次第です。
A B C D E F G H
2 計器 基準値 測定値6/1 測定値6/2 6/3 6/4
3 113A 0.1 < 0.15 0.1 0.1
4 113B 0.1 < 0.25 0.3 0.2
5 113C 0.7 < 0.8 0.8
6 113D 2.0 < 5.0 4.0 4.0
7 114A 6.0 <= 8.0 7.0 7.0
8 115A なし 1.0 2.0
・ ・
・ ・
・ ・
全部で500行程度
ご教授頂いた下記マクロ、今の私のレベルで理解でませんのでしたので
参考にして再度挑戦してみます。
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
|
|
mayu
- 05/6/22(水) 23:55 -
