- ベストアンサー
Excelのマクロでセル内の数値によってセルの色分け
fumufumu_2006の回答
- fumufumu_2006
- ベストアンサー率66% (163/245)
こんなのではどうでしょうか？ データがあるのがSheet1だった場合です。 Sub sample() Dim target As Range Dim r As Range Set target = Sheets("Sheet1").UsedRange For Each r In target If r <> "" Then 'とりあえず、色=自動の戻す r.Font.ColorIndex = xlAutomatic '空白を入れて左から4つめの数字が2、5つめが2のときは赤 If (Mid(r, 4, 1) = "2") And (Mid(r, 5, 1) = "2") Then r.Font.ColorIndex = 3 End If '左から4つめの数字が1、5つめの数字が2のときは青 If (Mid(r, 4, 1) = "1") And (Mid(r, 5, 1) = "2") Then r.Font.ColorIndex = 5 End If '必要に応じて条件を追加 End If Next End Sub
関連するQ&A
- Excelでセルの色分け
Excel 2004 Macで、ある条件ごとに自動的にセルの色分けをする方法を教えてください。 たとえば、「共通教育」の文字が入っているセルは赤色に、「専門」の文字が入っているセルは青色に、という風にです。 お願いします。
- ベストアンサー
- オフィス系ソフト
- 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（エクセル）
- 記入した数値によってセルの色分けをしたいのです。
記入した数値によってセルの色分けをしたいのです。 エクセル2007で、セルに入力した数値によって色分け出来るようにしたいのです。 図案等の配色を考える時に利用したいので、数値を変えると色が変わると嬉しいのですが出来るのでしょうか？ 調べていたらcolorindexを使って出来そうなのですが、勉強不足でよくわかりません。 ご存じの方がいらしたら、よろしくお願いします。
- 締切済み
- その他（趣味・娯楽・エンターテイメント）
- セル内の数値の色を変えたい！
変動する数値に対して、範囲外の数値の色を変えたいのですが何度やってもうまくいきません(T_T) 例えば、【A1】のセルに500、【A2】に480という数値を入力した際、青文字にしたいのです。500から前後14以上の範囲で赤と青にしたいとき、条件付き書式の数式を知りたいです。 どなたか教えてください。
- ベストアンサー
- マーケティング・企画
- 記入した数値によってセルの色分け
こんにちは。 エクセルで、セルにある値を入力したらセルの色が自動で変わるようにしたいです。例えば、50未満なら青、50以上なら赤という感じです。どうしてもマクロが必要であれば仕方ありませんが、それ以外の方法であればご教授ください。
- 締切済み
- オフィス系ソフト
- マクロを使って文字が入力されたセル数を数える
マクロを用いて、文字が入力されたセル数をカウントしたいと考えていますがうまくいかず悩んでおります．．． 具体的には、セルB1からB1000にデータが入力された場合、左隣のA列に1から番号を付したいと考えています． B列が空白のままの行は、A列も空白にしておきたいです． （セルB1からB1000まで全てにデータが入力された場合、A1からA1000には1から1000までの番号が入る） また、A列に付された番号を判断し、100番毎にA列からE列までセル背景を色分けしていきたいと考えています． （B列が空白ならxlNoneでその行は無色のままにしたい） セル背景の色分けだけであればうまくいったのですが、B列の入力状況により自動でA列に番号（数字）を変化させたら思い通りに動かず困っています． ご教示、宜しくお願いします．
- ベストアンサー
- その他(Windows)
- エクセルでの計算結果値を色分けする
たとえば、Ａ／Ｂの値が100%以下の場合はその値を赤色の文字にし、100%以上の場合は、その値を青色にする。というような計算結果の数字を色分けすることはできるのでしょうか？（セルの書式設定にマイナス時に赤にするというのがありましたが） 使用エクセルは2003です。
- ベストアンサー
- オフィス系ソフト
- エクセルである数値を色分けする
エクセルである数値の統計表を作成しています。 表全体の数値の中で例えば１５～２０という数値のセルだけ指定の色を付けたいのです。 条件付書式で設定すると複数の条件が重なった時には、指定通りに表示されません。また条件付書式で設定した場合、完成したその表に新たに別の表からコピーした数値を貼り付けると設定した条件が消えてしまいます。 私の作成したいのは、 条件１・表全体の数値から１５～２０という数値のセルを黄色。 条件２・Ｃ列の数値の中で３５以上だけセルを赤色。 条件３・Ｆ列の数値の中で３８～４０だけセルを青色。 条件４・Ｇ列の数値の中で５以下のセルを緑色。 この場合条件２と条件３は数値が重なるので条件３を優先させることは無理でしょうか？ 上記のような条件で表を作成できますか？ もうひとつ、 指定の列の中に、ある条件の数値がある時、別の指定のセルに任意の文字を表示さたいのです。 例えばＡ列の数値の中に５～８の範囲の数字があれば、Ｊ３０のセルに”あああ”という文字を表示させ、９～１２の数値の場合は”いいい”と表示させ、１３～１８の時は”ううう”と表示させる。 このようなことは出来ますか？ 作成方法を教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル セルのカラー設定について
入力した文字に対して自動でカラーを変更できますでしょうか あれば、マクロでも構いませんので教えて頂けますでしょうか。 例えば A１にセルFOR MENと入力した際 自動的にA1のセルの背景が青になり A2のセルの文字が青になる また A１にセルFOR WOMENと入力した際 自動的にA1のセルの背景が赤になり A2のセルの文字が赤になる ようにしたいのですが 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
はじめまして。 ありがとうございます。 こうして書くのですね!! 本当に勉強になります。 これだと、4～5文字目のひとつが変わったときでも 簡単に変えられるのですね。 ありがとうございました。