- ベストアンサー
VBAで色分け
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
過去スレから利用させていただきました。 Sub Macro1() Range("A1:J10").Select For Each r In Selection Select Case r.Value Case 1 r.Interior.ColorIndex = 3 Case 2 r.Interior.ColorIndex = 4 Case 3 r.Interior.ColorIndex = 5 Case 4 r.Interior.ColorIndex = 6 Case 5 r.Interior.ColorIndex = 7 End Select Next r End Sub 後は適当に変更してください。
関連するQ&A
- Excelでセルの色分け
Excel 2004 Macで、ある条件ごとに自動的にセルの色分けをする方法を教えてください。 たとえば、「共通教育」の文字が入っているセルは赤色に、「専門」の文字が入っているセルは青色に、という風にです。 お願いします。
- ベストアンサー
- オフィス系ソフト
- Excelのマクロでセル内の数値によってセルの色分け
はじめまして。マクロ初心者です。 よろしくお願いいたします。 エクセルに入力されている数値によってセルを色分けしたいのです。 数値はこんなふうに入力されています↓ A0＊22＊33＊44 B1＊22＊33＊44 A2＊12＊55＊66 D1＊77＊22＊88 C1＊12＊55＊66 E2＊99＊12＊11 こういったものが全部で1500行ほどです。 ＊は空白を表しています。 この中の、空白を入れて左から4つめの数字が2、5つめが2のときは赤、 左から4つめの数字が1、5つめの数字が2のときは青、 それ以外のときはそのまま… といった具合に全部で5種類5色に色分けしたいのですが、どうにも能力が足りなくて困っています。 最初、自分なりにネット等参考にしながら「22という数値を含むセルは赤」といったように作ったのですが、 どうしても左から4文字目5文字目に限定しないと余計なセルにも色が付いてしまうのです。 もう2日も悩んでいますが、どうにも手も足も出ません。 ご指導いただけると本当に助かります。 どうぞよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- テキストボックスの色分け
シート１のA１のセルに数字、B1に数字が記載されています。 その数字にてシート２のテクストボックスの色分けをしたいのですが。 A1のセルが－５より小さい場合は赤 A1のセルが－５より大きく、B1のセルが－３より大きい場合は緑 A1のセルが－５より大きく、B1のセルが－３から－５の場合は青 A1のセルが－５より大きく、B1のセルが－５より小さい場合は赤 A1が－５より小さい場合はすべて赤 A1の値が－５より大きい場合にB1のセルの値で色分けをしたいのです。 ちなみに－３は－５より大きいと思って説明しています。 説明が下手ですいませんが、よろしくお願いいたします。 エクセルは２００３です。
- ベストアンサー
- オフィス系ソフト
- EXCEL セルの色分け方法を教えてください
１年間の毎日の気温（平均値、最高、最低）を平年値（既知）と比べて、高ければ『赤』、低ければ『青』にセルの色分けをしたいのですが、気温の数値をセルに入力すれば自動的に色分けされる方法を教えてください。 また、１か月ごとの『赤色セル』と『青色セル』のそれぞれの各気温ごとの個数をカウントして別のセルに表示させる方法も合わせて教えてください。 EXCELの表は以下のように作っております。 平年値 2013年１月 平均気温 最高 最低 平均値 最高 最低 4.3 9.0 0.2 １日 1.9 6.7 -3.0 4.2 8.9 0.1 ２日 5.1 10.5 0.6
- ベストアンサー
- Excel（エクセル）
- VBAの条件分岐を利用したセルの色分け
VBAの条件分岐を使用してセルの色分けをしようとしています。 （条件が5つあり、条件付書式では対応できないためです。） 得点による色分けを行いたいのですが、色分けを行いたいセルに関数（ただ単に「=（イコール）」です）を入れて他のセルを参照する様にしたら、色分けが無効になってしまいました。 例： 【設定した条件】 0～20点の場合 赤 21～40点の場合 橙 41～60点の場合 黄 61～80点の場合 緑 81～100点の場合 青 【現象】 VBAでプログラミング後にセルA1に数値「50」を入力したら、セルの色は「黄」になった。しかし、他のデータシートの値を参照させたいと思い、セルA1に「=データシート!B1」と入力したら、セルの色は消えてしまった。 VBAでセルの色分けをしようとする時は、セルに関数を入力してはいけないのでしょうか？条件付書式の時は問題なさそうなのですが。 お分かりになる方がいらっしゃいましたらお願いいたします。
- ベストアンサー
- Visual Basic
- エクセルでの計算結果値を色分けする
たとえば、Ａ／Ｂの値が100%以下の場合はその値を赤色の文字にし、100%以上の場合は、その値を青色にする。というような計算結果の数字を色分けすることはできるのでしょうか？（セルの書式設定にマイナス時に赤にするというのがありましたが） 使用エクセルは2003です。
- ベストアンサー
- オフィス系ソフト
- 数値色分けで（VBA）問題が発生しました再度教えて下さい。
いつもお世話になります。 先日VBAの記述の件でアドバイスを頂き運用していましたが、困った問題が発生しましたので再度質問を致します。 それは、エクセルで約２０の数値を色分けすると言うものでした。 下記記述を教えて頂きました。 Sub Macro1() For Each c In Selection Select Case c.Value Case "010" c.Interior.ColorIndex = 3 Case "020" c.Interior.ColorIndex = 4 問題は、途中未記入の行があれば識別出来ないと言う問題です。 例は NO 数値 色分け 1 010 赤 2 020 青 3 4 132 と言うように途中行に数値が無いと変化しません。 お手数ですが方法があれば教えて下さい。 又、数値が無い行は色無しに出来る方法があれば教えて下さい。
- ベストアンサー
- オフィス系ソフト
- エクセルである数値を色分けする
エクセルである数値の統計表を作成しています。 表全体の数値の中で例えば１５～２０という数値のセルだけ指定の色を付けたいのです。 条件付書式で設定すると複数の条件が重なった時には、指定通りに表示されません。また条件付書式で設定した場合、完成したその表に新たに別の表からコピーした数値を貼り付けると設定した条件が消えてしまいます。 私の作成したいのは、 条件１・表全体の数値から１５～２０という数値のセルを黄色。 条件２・Ｃ列の数値の中で３５以上だけセルを赤色。 条件３・Ｆ列の数値の中で３８～４０だけセルを青色。 条件４・Ｇ列の数値の中で５以下のセルを緑色。 この場合条件２と条件３は数値が重なるので条件３を優先させることは無理でしょうか？ 上記のような条件で表を作成できますか？ もうひとつ、 指定の列の中に、ある条件の数値がある時、別の指定のセルに任意の文字を表示さたいのです。 例えばＡ列の数値の中に５～８の範囲の数字があれば、Ｊ３０のセルに”あああ”という文字を表示させ、９～１２の数値の場合は”いいい”と表示させ、１３～１８の時は”ううう”と表示させる。 このようなことは出来ますか？ 作成方法を教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 記入した数値によってセルの色分けをしたいのです。
記入した数値によってセルの色分けをしたいのです。 エクセル2007で、セルに入力した数値によって色分け出来るようにしたいのです。 図案等の配色を考える時に利用したいので、数値を変えると色が変わると嬉しいのですが出来るのでしょうか？ 調べていたらcolorindexを使って出来そうなのですが、勉強不足でよくわかりません。 ご存じの方がいらしたら、よろしくお願いします。
- 締切済み
- その他（趣味・娯楽・エンターテイメント）
- excel関数を使っての色分け
エクセルの関数を使ってたとえばＡ１のセルに１と入力するとＡ２のセルの文字を赤に、２と入力すると青になるような関数があったら教えてください。
- ベストアンサー
- オフィス系ソフト
お礼
素早い回答ありがとうございます。とても助かりました。過去スレも見たのですが初心者ゆえに応用が出来ませんでした。今後もよろしくお願いします。