| |
こんばんは。
>AとBの列にしたのような値が入っています。
>A B
>15% 20%
>23% 25%
>40% 29%
>25% 24%
>
>Bの方が+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
これで概ねは大丈夫ですが・・・。
これだとＡ１に31.81% Ｂ１に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位の指定なら、正しく色を付けてくれます。
>では、うまくいきませんでした。
こういう曖昧な記述は止めましょう！！
例
Ａ１に３１％ Ｂ１に３５％と入力して、
プログラムを実行してもセルに色を付けてくれません。
または、
プログラムを実行したところ、
ｘｘｘｘｘｘｘｘｘｘ
の行でエラーメッセージが「ｘｘｘｘｘｘ」と表示され、
プログラムは止まってしまいました。
とはっきりと記述してください。
|
|
ichinose
- 06/7/6(木) 21:53 -
