• ベストアンサー

ある条件の下でセルに色を付けるには??

いろいろ検索してみたのですが、自分がやりたいのに近いものが なかったと思うので質問させていただきます。 やりたいことは、 下記のような表に 左側の変数間の条件に当てはまる場合に 変数がある行に色を付けたいというものなのですが 基本的に、変数の指定は小さい順から大きいほうだけです。 n|b という指定はありません。 1    |a|b|c|d|e|f|g|h|i|j|k|l|m|n| 2 c|k| この行に色を付けたい 変↑数 尚、2行目には関数を入れたくないのです。 マクロ、VBA初心者なので考え方がさっぱり分からず 条件文(If文)を使うのか、はたまた別な方法なのかが 見当がつかないので質問させていただきます。 具体例及び考え方を教えていただければと思います。 どうぞ宜しくお願いいたします。

質問者が選んだベストアンサー

  • ベストアンサー
  • mshr1962
  • ベストアンサー率39% (7418/18948)
回答No.2

色をつけるのは条件付き書式ですね。 a~nは変数ということはセル参照した値ということでしょうか? 「数式が」「=AND(COLUMN()>=MATCH($A2,$1:$1,0),COLUMN()<=MATCH($B2,$1:$1,0))」 で出来ると思います。

nexthop
質問者

お礼

早速のご返答ありがとうございます。 > a~nは変数ということはセル参照した値ということでしょうか? はい。別のシートのセルを参照しております。 andとmatchは、なんとなくイメージできたんですが column()とは、知りませんでした;; こういうものは、てっきりマクロなどを使うものだと 思っていたのですが まだまだ、エクセルの使い方のレベル・・・低いままです>< イメージどおり変化したときは ものすごく感動しました。 ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

  • nobu555
  • ベストアンサー率45% (158/345)
回答No.1

条件付書式で如何でしょう。 変数が、サンプルのように文字で セルA1からN1まで変数がならんでいて セルA2に小側、セルB2に大側の指定があるとすると 『セルが』を『数式が』にして 隣の欄に下記数式を入力 =AND(CODE($A$2)<=CODE(A1),CODE(A1)<=CODE($B$2)) 変数が、数字のときや条件付書式の詳細は、 下記を参考にしてください。 http://www.eurus.dti.ne.jp/~yoneyama/Excel/jyo-syo.html

nexthop
質問者

お礼

早速のご返答ありがとうございます。 マクロとかVBAを使わずに出来るんですね^^; 教えていただいたサイトも大変役に立ちました。 ただ、変数のところが 数式が入っていて単なる文字列じゃなかったので 若干違いましたが、 大変助かりました。 ありがとうございます。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • ある条件の下でセルに値を入力するには??

    以前、似た様な質問をしたのですが、 今回は、色を付けるのではなく、値を入力することになったのですが 具体例としては ....A........B.......C.......D.......E........F..........G..........H..........J..........K 1 ....................8:00..9:00..10:00..11:00..12:00..13:00..14:00..15:00 2 ..8:00 12:00 1.....1.......1..........1..........1 3 10:00 15:00..................1..........1..........1..........1...........1..........1 このような感じにしたいのです。 (A2からB2間の時間を1行目を参照して2行目のC2以降の セルに値を入力する) 『.』は、あわせるために入れたので気になさらないでください。 色がつけるのは条件付書式で解決しました。 ですが、今回は値を入力する形にして セル内に数値が入力されていると 条件付書式で色を付けたいと考えております。 どうか、ご教授していただけないでしょうか? ちなみに、これはマクロで可能なのでしょうか?

  • エクセル条件付き書式をマクロにしたいです

    Excel2007使用しています。 類似質問が見つかりましたが、VBA勉強中でそこからの応用ができないので 教えていただけると助かります。 条件付き書式を毎回作成するのが大変なので、マクロで自動設定したいと考えています。 条件付き書式で設定していたのは「C4に指定文字があったら、B4・C5・D4・E4のセルを指定した色に塗りつぶす」を5パターン使用していました。 色を変えるかどうか判断する文字が含まれているのはC列にあります。 C4に「ああ」の文字があればB4・C5・D4・E4のセルを赤色に塗りつぶす C4に「いい」の文字があればB4・C5・D4・E4セルをアクア色に塗りつぶす C4に「うう」の文字があればB4・C5・D4・E4セルを黄色に塗りつぶす C4に「ええ」の文字があればB4・C5・D4・E4セルをオリーブ色に塗りつぶす C4に「おお」の文字があればB4・C5・D4・E4セルを紫色に塗りつぶす これを、C4から文字がある行まで(200行~15,000行まで対象行数が変動)処理して欲しい イメージで伝えて申し訳ありません、 情報足りなければご指摘いただければと思います。 どうぞ宜しくお願い申し上げます。

  • エクセルVBA 条件にあうときセルを塗りつぶすには?

    エクセルVBA 条件にあうときセルを塗りつぶすには? エクセルVBAについて教えてください。 _________A 列 _________B 列_________C列_________D列 -------------------------------------------- 1行| 基準値_________ 5_____________1____________8 2行| りんご____________1_____________9____________0 3行| みかん___________12___________5____________3 4行| ぶどう____________15___________7____________8 5行| バナナ____________3_____________1____________4 上図のようにデータがあります。 (実物は列行共に膨大です。また条件を4つ以上つける予定なので条件付書式は使えません) 各列の基準値に対して、セルの増減が、0以下のときに黄色に、5から8のとき大きくなるときに赤、9以上のときに青にセルの色を塗りつぶしたいです。 どのようにすればよいでしょうか? B列の場合、基準値が5です。 B2のセルの場合、基準値5と1(B2セル)の増減は-4です。 増減が0以下のときは黄色に、増減が5から8のときは赤に、増減が9以上のときに青にするので、このときは黄色に塗りつぶします。 B3のセルの場合、基準値5と12(B3セル)の増減は7です。 増減が5から8のとき赤に塗りつぶすので、このセルは赤に塗りつぶします。 B4のセルの場合、基準値5と15(B4セル)の増減は10です。 増減が9以上のとき青色に塗りつぶすので、このセルは青色に塗りつぶします。 C2のセルの場合は、C列の基準値は1(C1セル)です。 基準値1と9(C2のセル)の増減は8です。 増減が5から8のとき赤に塗りつぶすので、このセルは赤に塗りつぶします。 よろしくお願いいたします。

  • セルの色によって条件文をつけることはできますか?2

    以前質問させていただいた内容なのですが、 質問用にフォーマットを作って質問させていただきました。 質問の通りであれば、問題なく解決できたのですが、 本物のデータで少し違うだけで動作ができません。 お力頂けますでしょうか。よろしくお願いします。 Excelでの質問です。vista利用。 セルの色によって条件文(IF)をつけることはできますか? やりたいのは、下図で説明しますと、 A15のセルに色付データが入ったらC15とE15のセルを掛け算し、 G15のセルに表示。 A16のように色無なら、Gは計算しない(表示しない)。 例      A            C     E   G 15  色付セル        3     2   6 16  白セル(色無し)    5     4    17  色付セル        2     6   12 A列には、別のデータシートからデータをコピーし貼り付けます。 全て数字が入っているのですが、数字は無視し、背景の色で判断します。 --------------------------------- 以前は下記のフォーマットで質問しました。 A1のセルに色付が入ったらB1とC1のセルを掛け算し、 D1のセルに表示。(Dセルにif文) A2のように色無なら、Dは計算しない(表示しない)。 例      A           B     C   D 1  色付セル        3     2   6 2  白セル(色無し)    5     4    3  色付セル        2     6   12 ここで、下記のVBAを教えていただきました。 Sub test() 'この行から Dim i As Long For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1).Interior.ColorIndex <> xlNone Then Cells(i, 4) = Cells(i, 2) * Cells(i, 3) End If Next i End Sub 'この行まで --------------------------------- これならできたのですが、今回のようにセルの行が途中だとどこを修正すれば よいのか分かりません。 「1」の表示がある3か所をいじったのですがダメでした。 計算部分については Cells(i, 4) = Cells(i, 2) * Cells(i, 3) ↓↓↓ Cells(i, 7) = Cells(i, 3) * Cells(i, 5) 前回の質問URL http://oshiete1.watch.impress.co.jp/qa6855834.html よろしくお願いします。

  • 空白セルと行に色をつけるVBA Excel2010

    VBAの超初心者です。 条件が一致した時に、セルの背景を黄色にしたいのですが、VBAで教えて下さいませんか? D1が空白セルの場合には、C1のみを黄色。 D1とB1の両方が空白の場合は、A1からC1を黄色にしたいのです。 尚、行はどんどん増えて行く予定です。 「条件付き書式」では考えておりません。 よろしくお願いします。

  • セルに自動で色をつける

    仕事で使うタイムシートを作っています。 A6 =DAY(DATE(A1,A2,1)) 日付を表示(1~31の数字がでるように書式を変更) A7~A36 =IF(A6="","",IF(MONTH(DATE($H$3,$I$3,A6+1))=$I$3,A6+1,"")) 28日、31日に対応できるよう関数をオートフィルでコピーしてあります。 B6 =IF(A6="","",DATE($H$3,$I$3,A6)) 曜日を英語で表示Monday~Sunday (B6~B36までオートフィルで関数をコピーしてあります。)   A    B    C     D     E     F     G     H     I     J     K ------------------------------------------------ 6 1 Sunday 7 2 Monday 8 3 Tuesday 9 4 Wednesday . . . 36 31 Saturday ------------------------------------------------ 【セルに自動で色をつける】 B6~B36のセルにMonday~Fridayの文字が入っている場合、C6~K6のセルに色をつけたい 同様にC7~K7、C8~K8、C9~K9..........最後のC36~K36まで条件に当てはまる時に、 セルに色をつけたいです。SaturdayとSundayの時は色はつけなくて良い 条件付き書式では無理があったので、マクロで実現するしかないのかと試行錯誤しましたが、 何ぶんマクロ初心者のため、記述方法が分かりません。 どなたかヒントを頂けると嬉しいです。 宜しくお願いします。

  • Excel 「条件付き書式」でセルの範囲に色を付ける場合

    いつも大変お世話になります。 Excelの「条件付き書式」を使って指定するセルの範囲に色を付けたいのですが、どうすればよいでしょうか。状況は以下のような感じです。   A  B  C  D 1 ○  ×    文字列  ←色を付けたい行 2 ○  ○ 3 ×  × ○  文字列  ←色を付けたい行 Dセルで文字列の入力されてある行(AからDセル)に色を付けたいのです。 何とぞよろしくお願いいたします。

  • エクセル表、条件によりフォントの色を変えたい

    初めて質問します。Excel2003使用です。 管理表です、B1とC1は定数日付を入れます、例えばB1=2008/12/31、C1=2009/05/31です。 B7からB500まで入荷日付を入力していきます、その時に、B7<$B1$ならば"黒",B7>$B1$でB7<$C1$ならば"青"太字、B7>$C1$ならば"緑”太字にして行全部上記の条件のフォントの色にしたいのです。 さらにB7~B500をキーにして行全体をソートする可能性があります。 条件式書式は他の条件で3ケ使ってしまっています。 色々模索したのですがどうしてもうまくいかないので相談かけました。 どなたかサンプルVBAをいただきたいのです。よろしくお願いします。

  • セルの色によって条件文をつけることはできますか?

    Excelでの質問です。vista利用。 セルの色によって条件文(IF)をつけることはできますか? やりたいのは、下図で説明しますと、 A1のセルに色付が入ったらB1とC1のセルを掛け算し、 D1のセルに表示。(Dセルにif文) A2のように色無なら、Dは計算しない(表示しない)。 例      A           B     C   D 1  色付セル        3     2   6 2  白セル(色無し)    5     4    3  色付セル        2     6   12 A列には、別のデータシートからデータをコピーし貼り付けます。 全て数字が入っているのですが、数字は無視し、背景の色で判断します。 このようなことはできますでしょうか? 説明が下手で申し訳ないのですが、教えていただけると助かります。 よろしくお願いします。

  • エクセルでセルに色を付ける(多条件)

    質問を検索していてある程度はわかったのですが、 セルに条件によって色を付けるやり方は条件付書式でできるみたいですが、条件が3つまでしか指定できません。 4つ以上ある場合はどうすればよいでしょうか。 例えば、A1セルにはAからEまでの文字が入力されます。 入力された文字によってB1セルをAなら赤、Bなら青といった具合に違う色を表示させたいのです。 エクセル2000です。 宜しくお願いします。

専門家に質問してみよう