エクセルで色を塗る方法
- エクセルで、３００×５００のセルに１～８の数値がランダムに入っています。セルに入っている数値に応じて８色を塗る方法を教えてください。
- 条件付き書式で３色だけぬり、その色を固定して条件付き書式を解除し、次にまた３色塗ろうとしたが初めの３色の条件が解除できません。別のシートにコピーしても、数値だけか条件付きがついたままコピーされるため、うまくいきません。
- １から８の数値がランダムに入っているため、ひとつひとつのセルに色を塗るのには時間と労力が必要です。効率的な方法があれば教えてください。
- ベストアンサー
各セルに色を塗るには
エクセルで、３００×５００のセルがあり、その全てに１～８の数値がランダムに入っています。セルに入っている数値が、例えば１なら黄色、２なら緑、３は青、４はグレー、・・・というように、合計８色を各セルに塗りたいのです。初めは条件付き書式でやろうとしましたが、条件が３つまでしか指定できませんので、８色も塗れません。 初めに条件付き書式で３色だけぬり、その色を固定してその条件付き書式を解除し、次にまた３色塗ろうともしましたが、それも、初めの３色の条件が解除できません。別にシートにコピーしても、数値だけか条件付きがついたままコピーされるので、うまくいきません。 ひとつひとつのセルに色を塗るのは、１から８の数値がランダムのため、気の遠くなるような時間と労力が必要です。 どなたかいい方法があったら教えて下さい。
- outback
- お礼率93% (97/104)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
この問題はＶＢＡが良いでしょう。 ＶＢＥ画面の標準モジュールに下記を貼りつけ、「データが入っているセルを範囲指定し」（忘れないこと）、実行してください。 Sub test02() Dim cl As Range For Each cl In Selection Select Case cl Case 1 cl.Interior.ColorIndex = 1 Case 2 cl.Interior.ColorIndex = 2 Case 3 cl.Interior.ColorIndex = 3 Case 4 cl.Interior.ColorIndex = 5 Case 5 cl.Interior.ColorIndex = 6 Case 6 cl.Interior.ColorIndex = 7 Case 7 cl.Interior.ColorIndex = 8 Case 8 cl.Interior.ColorIndex = 9 End Select Next End Sub Ｃａｓｅの後のデータ値とColorIndex = の後の値とは 関係ありません。好きな色のColorIndex のコードを割り当ててください。（上記の１－９指定は、それに特に意味なし。） またRGB(0,50,50)などの指定でも良く、その場合は cl.Interior.Color =RGB(0,50,50)などと変えてください。 ただどの色がどのコードか調べる必要はありますが。 サンプルとして書式－セル－パターン－色指定を操作し、マクロの記録を取ると判ると思います。
関連するQ&A
- Excel 塗りつぶしの色のセルを並び替え
青色セルと黄色セルが一列ランダムにあります。 青色セルを上位に黄色セルを下位になど色によって並び替えをすることなど出来るのでしょうか？？ おわかりの方教えてくださーい！
- ベストアンサー
- オフィス系ソフト
- エクセルでセルの色を点滅させる方法について
エクセル2013で作成した表の数値をある条件の元でセルの背景の色を点滅させる方法を教えてください。 条件 下記条件の元でカーソルの背景の色を点滅させる。 データ範囲は Ｃ4～Ｆ12 VBAでの使用でよいです。 空白は無色 0～99までは緑の点滅 100～199までは青の点滅 200～299までは黄色の点滅 300以上は赤の点滅 合計の欄は点滅対象外とする。 ※色付けは条件付き書式設定による色付けとフォントの塗りつぶしと2通りあります。 方法が違うなら別々に教えてください。
- ベストアンサー
- Excel（エクセル）
- エクセル２００３で入力もれ防止のためにセルの色を変えたい
はじめまして。エクセルで会計処理をしていて、入力もれ防止のために、数値入力後、合計のセル,A5に=SUM(A2:A4)をいれて、書式の条件で色の変更をしましたが、該当セルの数が多くて、シート全部は使えませんでした。 A2 １００ A3 ０ A4 ５０ A5 １５０ （黄色→白（セルの色）） Ａ２，Ａ３、Ａ４に数字が入ると、Ａ５のセルの色が変わり、ＳＵＭで合計も出来る関数ってありますか？書式の条件を使わずに出来る方法あれば、教えて下さい。おねがいします。
- ベストアンサー
- オフィス系ソフト
- セル内の数値の色を変えたい！
変動する数値に対して、範囲外の数値の色を変えたいのですが何度やってもうまくいきません(T_T) 例えば、【A1】のセルに500、【A2】に480という数値を入力した際、青文字にしたいのです。500から前後14以上の範囲で赤と青にしたいとき、条件付き書式の数式を知りたいです。 どなたか教えてください。
- ベストアンサー
- マーケティング・企画
- ＶＢマクロ 条件によってセルの色を変えたいのですが…
いつもこちらで勉強させて頂いております。 Excelで、ある二つの言葉を含むセルに色を付けたいのですが、 言葉の組み合わせが５パターンあり 条件付き書式では足りません。 ＡとＢを含むセル 赤 ＡとＣを含むセル 青 ＡとＤを含むセル 黄 ＡとＥを含むセル 緑 ＡとＦを含むセル 紫 といった様に、条件によってセルの色を変えたいのですが… マクロなどで良い方法はありますでしょうか？ どなたかアドバイス宜しくお願い致しますm(__)m
- 締切済み
- Visual Basic
- エクセル2003で、数式で出されたセルの値によって、そのセル自体を塗り
エクセル2003で、数式で出されたセルの値によって、そのセル自体を塗り分けしたいのですが、７種類あるため条件付書式では対応出来ず困っています。 具体的には「２．７０００～２．７０９９」ならピンク、「２．７１００～２．７１９９」なら黄色、「２．７２００～２．７２９９」なら黄色「２．７３００～２．７３９９」なら緑色「２．７４００～２．７４９９」なら青色「２．７５００～２．７５９９」なら紫「２．７６００～２．７６９９」なら灰色 という具合です 漠然としていて申し訳ないのですが、マクロを使用したいと思っています。お力を貸していただけないでしょうか？
- ベストアンサー
- オフィス系ソフト
- 複数セルに色をつける
画像のように、同数値・異なる数値問わず 一行の複数セルに情報が入力された際に 該当セルに色を付けるにはどのようにしたらよろしいでしょうか？ また、それが条件付き書式で可能な場合、 一行に対する書式を他の行にコピーするには どのようにすればよろしいでしょうか？ ※今回は異なる数値がありますが、同数値の場合で 『条件付き書式』⇒『重複』を設定し、一行目を 右ドラッグ(又は形式を選択して貼り付け）で 他の行にコピーしようとすると、その際選択された全ての 行での書式になってしまい、一行単位での設定ができません。。。 どうぞよろしくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- 条件付き書式で1行おきに色付けした表のセルの数値によりフォントの色を変更したい
Excel2003です 1行おきに色付け（パターン）した表のC3:C23に計算結果の数値が表示され、その数値がC1より小さいときはフォントの色を「赤」、数値がC1より大きいときはフォントの色を「緑」、数値が表示されないときはその書式を適用しない（1行おきの色付け（パターン）のみ設定）条件付き書式を設定したいのですがその方法を教えてください 例えば 奇数行にパターン「薄い黄色」を設定し、 条件1 =$C3＜$C$1 フォントの色「赤」パターンを「薄い黄色」 条件2 =$C3＞$C$1 フォントの色「緑」パターンを「薄い黄色」 に設定すると数値を入力しないセルにも「薄い黄色」のパターンが設定されてしまいます。偶数行の空白セルにはパターンを設定しない条件の設定の方法を教えてください。 説明でが不足のときは補足したいと思いますのでよろしく御願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルの条件付き書式について
A1セルに「100」が入力された場合、B1セルの色を赤に、同様にして200:青、300:黄、400：緑、500:赤、600:青、700:黄、800：緑という風にB1セルの色を変えたいと思います。 条件付き書式は３つまでしかないのですが、色のパターンは４種類なので、元の書式と合わせると４パターンです。 条件付書式で、A1セルの値が２００又は６００ならB1セルの色を青にするにはどうすればよろしいでしょうか。 つたない文章でわかりにくいかと思いますが、よろしくご回答ください。
- ベストアンサー
- オフィス系ソフト
お礼
完璧なお答えありがとうございました。 うまくいきました。 私はマクロは全くわからないのですが、 こんなに簡単にいろいろなことができるのなら、 少し勉強してみようと思います。