- 締切済み
条件4以上
初めまして。 エクセル初心者です。 エクセルで、ある品物の各メーカーごとの価格表を作成しました。 メーカーは6種類あります。 C2~C218のセルに各メーカーを選択できるように入力規制のリストを設定しました。 そのセルを選択した時に出てくる三角ボタンで選択した時に、セルに各メーカーごとに違ったパターン色を付けたいのですが、やり方が分かりません… メーカー1を選択→黄色 メーカー2を選択→水色 メーカー3を選択→オレンジ メーカー4を選択→緑色 メーカー5を選択→ピンク メーカー6を選択→灰色 分かりにくい説明で申し訳ございません… ご回答宜しくお願いします。
- みんなの回答 (2)
- 専門家の回答
みんなの回答
- KURUMITO
- ベストアンサー率42% (1835/4283)
条件が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 これで該当する行全体に色が付きます。
エクセルのバージョンは何でしょうか? 条件付き書式の機能を使えば出来ますが、2003までは条件を3つまでしかつけられません。2007からはたくさんつけられるようになりました。 バージョンが2007なら、ヘルプから「条件付き書式」を検索してみてください。ちなみに、ホームタブのスタイルグループにアイコンがあります。
補足
ご回答ありがとうございます! 恐らく2003だと思います。