| |
ichinose さん 有難う御座います。
下記のマクロでセルの色は変わるのですが
問題点として
数値を手入力した場合、色が付かない。
一度色の付いたセルに再入力した時に色が消えない。
どの様に工夫すればよいでしょうか？
アドバイスお願いいたします。
Sub 計器()
Dim R As Double
'113Aの測定値RがR<=0.1 Or R>=0.25 のときセルの色を変える
R = Range("c3").Value
If R <= 0.1 Or R >= 0.25 Then
Range("c3").Interior.ColorIndex = 8
End If
'113Bの測定値RがR<=0.1 Or R>=0.15 のときセルの色を変える
R = Range("c4").Value
If R <= 0.1 Or R >= 0.15 Then
Range("c4").Interior.ColorIndex = 8
End If
'113Cの測定値RがR<=0.7 のときセルの色を変える
R = Range("c5").Value
If R <= 0.7 Then
Range("c5").Interior.ColorIndex = 8
End If
'113Dの測定値RがR<=2 Or R>=5のときセルの色を変える
R = Range("c6").Value
If R < 2 Or R > 5 Then
Range("c6").Interior.ColorIndex = 8
End If
'以下永遠と続く
End Sub
|
|
mayu
- 05/6/22(水) 21:56 -
