エクセルってこんな事出来ますか？

エクセルってこんな事出来ますか？

例えばＡ1に100と言う基準値があります
Ｂ1に100に対して±2（2％　98～102）値を入力した場合その枠が赤に表示され
±2％を超え±4％の数値には青、4％超えの±6％には緑、6％超えの±8％には紫、8％超えの10％には桃
といった感じに表現する事は出来るのでしょうか？
もし出来るのであらばやり方を教えてください
手順で教えてもらえると、なおいいです
お願いします

No.2 ベストアンサー 回答者： tom04 回答日時： 2010/10/13 23:26

こんばんは！

条件付書式の設定で可能だと思います。
Excel2007以降では上限なし？（←はっきり判りません）で設定できるはずですが
優先順位に気を付けて設定する必要があると思います。

当方使用のExcel2003の場合、条件付書式は3条件までしか設定できませんので、
今回のように4色以上必要な場合はVBAの方法になってしまいます。

参考になるかどうかわかりませんが、操作したいSheet見出し上で右クリック　→　コードの表示　→　白い画面が出ますので

↓のコードをコピー＆ペーストしてマクロを実行してみてください。（一例です）

Sub test()
Dim i As Long
Dim j As Double
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
j = (Cells(i, 2) - Cells(1, 1)) / Cells(1, 1)
If j >= -0.02 And j <= 0.02 Then
Cells(i, 2).Interior.ColorIndex = 3
ElseIf j >= -0.04 And j <= 0.04 Then
Cells(i, 2).Interior.ColorIndex = 5
ElseIf j >= -0.06 And j <= 0.06 Then
Cells(i, 2).Interior.ColorIndex = 10
ElseIf j >= -0.08 And j <= 0.08 Then
Cells(i, 2).Interior.ColorIndex = 13
ElseIf j >= -0.1 And j <= 0.1 Then
Cells(i, 2).Interior.ColorIndex = 7
End If
Next i
End Sub

参考になれば良いのですが・・・m(__)m

No.4 回答者： MackyNo1 回答日時： 2010/10/14 13:56

>うむぅ・・・

出来ませんでした・・・

このような補足回答ではなく、具体的にどのセルにどのような数式を設定したら、どのようにうまくできなかったのかを提示するようにしてください。
Excel2000なら、「セルの値が」の部分を「数式が」に変更して、すでに回答した数式を入力し「書式」ボタンから希望の書式を設定し、「追加」でその外側の条件範囲の数式を順次3つまで設定することになります。

また、実際に条件付き書式を設定したいセルや参照するセルがB1やA1セルだけでなく、他の行や列のセルにも設定したいような場合は、そのレイアウトを具体的に提示されたほうが的確な回答が得られると思います。

＃基本的にこの質問と同じ内容の質問（http://questionbox.jp.msn.com/qa6248994.html
）を立ち上げていますが、このような掲示板でのマナー違反のような気がします。
新しく質問を立て直す場合は、新しいスレッドでこの質問をリンクで表示して、回答者にこれまでの経過をわかるようにし、この質問は解決処理または、補足回答で新しい質問へのリンクを貼るようにしましょう。

この回答へのお礼

えっと・・・
マナー違反になるのかな？
ここでの質問は5つの設定の場合で
もう一つの質問は3つの場合
条件付とマクロによる違いがあるので分けました
もう一つの方は条件付で出来ましたので質問は打ち切りましたが
本来の希望は5つの設定が出来る事です
現在はここ一つなので問題はないと思います

細かい指導ありがとうございました

お礼日時：2010/10/18 11:01

No.3 回答者： tom04 回答日時： 2010/10/13 23:35

No.2です！

たびたびごめんなさい。

投稿した後、間違いに気づきました。
各行ごとに判断しなくてはいけないのですよね？

前回は常にA1セルに対する増減率でしたので
前回のコードを1行訂正してください。

j = (Cells(i, 2) - Cells(1, 1)) / Cells(1, 1)　の行を
　　　　　↓
j = (Cells(i, 2) - Cells(i, 1)) / Cells(i, 1)　です。

何度も失礼しました。m(__)m

この回答へのお礼

エクセル2000と言う古いバージョンを使っています
1をｉに変更しましたが実行したらエラーが出ました・・・（ｊ＝（Ｃｅｌｌｓ・・・の部分ですね）
対応してなかったのか、まだ設定に足りない物があったのか・・・？
マクロはちんぷんかんぷんなので自分で間違いが全く探せません（ごめんなさい）
このマクロはＡ1とＢ2以外に、このマクロを使うとダメなのかな？
実行エラー13　型が一致しませんと出ました・・・
わざわざこんな難しいマクロを作ってもらって
上手に活用できなくてごめんなさい
ありがとうございました

お礼日時：2010/10/14 08:18

No.1 回答者： MackyNo1 回答日時： 2010/10/13 21:58

ご使用のバージョンがエクセル2007以降なら条件付き書式で、何種類でも自由にセルの色を変更できます。

エクセル２００３までバージョンの場合は、最大3種類までの条件なら設定することが可能です。

設定方法は、バージョンによって少し操作方法が異なりますが、以下のような数式を使った条件付き書式になります。

=AND(A1*1.02<=B1,A1*0.98>=B1)

＃エクセルなどのOfficeソフトはバージョンによって操作法や使用できる機能が異なりますので、質問の際には必ずバージョンを明記するようにしましょう。

この回答へのお礼

うむぅ・・・
出来ませんでした・・・
バージョンはエクセル2000とかなり古いものを使っております
対応してなかったのかな？
それともやり方が悪いのかな？
返事をくれてありがとうございました

お礼日時：2010/10/14 08:06