|
こんばんは。
>AとBの列にしたのような値が入っています。
>A B
>15% 20%
>23% 25%
>40% 29%
>25% 24%
>
>Bの方が+3%であれば両方のセルを青色、 -3%であれば赤色としたいです。
>
まず、プロパティはきちんと記述する癖をつけましょう!!
3%って、0.03のことですよね?
だったら・・・、
if Range("B1").value-Range("A1").value>0.03 then
> Range("A1").Interior.ColorIndex=34
> Range("A1").Interior.ColorIndex=34
>End if
これで概ねは大丈夫ですが・・・。
これだとA1に31.81% B1に34.81% なんて入力された場合でも
色が付いてしまいます。本来なら、付きませんよね?
If CDec(Range("B1").Value) - CDec(Range("A1").Value) > CDec(0.03) Then
Range("A1").Interior.ColorIndex = 34
Range("b1").Interior.ColorIndex = 34
End If
とすると、小数第2位の指定なら、正しく色を付けてくれます。
>では、うまくいきませんでした。
こういう曖昧な記述は止めましょう!!
例
A1に31% B1に35%と入力して、
プログラムを実行してもセルに色を付けてくれません。
または、
プログラムを実行したところ、
xxxxxxxxxx
の行でエラーメッセージが「xxxxxx」と表示され、
プログラムは止まってしまいました。
とはっきりと記述してください。
|
|