• 締切済み

条件4以上

初めまして。 エクセル初心者です。 エクセルで、ある品物の各メーカーごとの価格表を作成しました。 メーカーは6種類あります。 C2~C218のセルに各メーカーを選択できるように入力規制のリストを設定しました。 そのセルを選択した時に出てくる三角ボタンで選択した時に、セルに各メーカーごとに違ったパターン色を付けたいのですが、やり方が分かりません… メーカー1を選択→黄色 メーカー2を選択→水色 メーカー3を選択→オレンジ メーカー4を選択→緑色 メーカー5を選択→ピンク メーカー6を選択→灰色 分かりにくい説明で申し訳ございません… ご回答宜しくお願いします。

この投稿のマルチメディアは削除されているためご覧いただけません。

みんなの回答

  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.2

条件が4以上になりますとマクロを使うことになりませね。 シート見出しから該当のシートで右クリックし「コードの表示」を選択します。 右側の白い窓に次のコードを入力します。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 And Target.Row >2 And Target.Row <219 Then a = Target.Row If Target.Value = "メーカー1" Then Range(Cells(a, 1), Cells(a, 256)).Interior.ColorIndex = 6 ElseIf Target.Value = "メーカー2" Then Range(Cells(a, 1), Cells(a, 256)).Interior.ColorIndex = 8 ElseIf Target.Value = "メーカー3" Then Range(Cells(a, 1), Cells(a, 256)).Interior.ColorIndex = 46 ElseIf Target.Value = "メーカー4" Then Range(Cells(a, 1), Cells(a, 256)).Interior.ColorIndex = 10 ElseIf Target.Value = "メーカー5" Then Range(Cells(a, 1), Cells(a, 256)).Interior.ColorIndex = 7 ElseIf Target.Value = "メーカー6" Then Range(Cells(a, 1), Cells(a, 256)).Interior.ColorIndex = 15 End If End If End Sub これで該当する行全体に色が付きます。

noname#99913
noname#99913
回答No.1

エクセルのバージョンは何でしょうか?  条件付き書式の機能を使えば出来ますが、2003までは条件を3つまでしかつけられません。2007からはたくさんつけられるようになりました。 バージョンが2007なら、ヘルプから「条件付き書式」を検索してみてください。ちなみに、ホームタブのスタイルグループにアイコンがあります。

yuu_a-i
質問者

補足

ご回答ありがとうございます! 恐らく2003だと思います。

関連するQ&A

専門家に質問してみよう