Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


41714 / 76735 ←次へ | 前へ→

【40100】Re:2つの数字を比べてセルに色づけしたい
発言  ichinose  - 06/7/6(木) 21:53 -

引用なし
パスワード
   こんばんは。

>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」と表示され、
プログラムは止まってしまいました。


とはっきりと記述してください。

0 hits

【40090】2つの数字を比べてセルに色づけしたい cancan 06/7/6(木) 20:42 質問
【40092】Re:2つの数字を比べてセルに色づけしたい たけ 06/7/6(木) 20:54 発言
【40093】Re:2つの数字を比べてセルに色づけしたい cancan 06/7/6(木) 21:06 発言
【40101】Re:2つの数字を比べてセルに色づけしたい たけ 06/7/6(木) 22:09 発言
【40102】Re:2つの数字を比べてセルに色づけしたい たけ 06/7/6(木) 22:10 発言
【40100】Re:2つの数字を比べてセルに色づけしたい ichinose 06/7/6(木) 21:53 発言
【40107】Re:2つの数字を比べてセルに色づけしたい cancan 06/7/6(木) 23:06 お礼

41714 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free