• ベストアンサー

エクセルで、条件により一括してセルの色を替える

A=3の場合、指定した範囲のセルを 一括して色を替える方法はないでしょうか? 例えばA=3の場合    B1:C3が赤色に変わる    A=4の場合    B1:C3が黒に変わるのように・・ 変更したいセルがたくさんありすぎて セルごとに変更するのが大変なのです。

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

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17069)
回答No.4

#2です。 >色が4色を越える場合には何かないでしょうか VBAになるでしょう。 (1)Interior。ColorIndex 50数種 (2)vbXX 下記 (3)RGB   種類が多いが視覚で区別できる色でないと意味なし。 などで色を指定できます。 (2)の例で指定の仕方の例を上げます。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then 'A列限り Select Case Target Case 1 Target.Interior.Color = vbYellow Case 2 To 4 Target.Interior.Color = vbGreen Case 6, 7 Target.Interior.Color = vbRed Case Is > 20 Target.Interior.Color = vbBlue Case Else Target.Interior.Color = vbCyan End Select End If End Sub 色は vbRed 赤 vbBlack    黒  vbGreen    緑  vbYellow    黄  vbBlue     青  vbMagenta  マゼンタ  vbCyan    シアン  vbWhite    白 があります。

kei3999
質問者

お礼

できました。ありがとうございました。

その他の回答 (3)

  • yastaro
  • ベストアンサー率23% (5/21)
回答No.3

(1) まず、色を変えたいところを範囲指定する (2) 書式⇒条件付書式⇒左の▼を選んで「数式が」⇒右の入力欄に「$A$1=3」と入力。「書式」ボタンを押して、「パターン」を選び、好きな色を選ぶ

kei3999
質問者

お礼

ありがとうございます。 解決しました。 数式があるのは知りませんでした^^ 条件は4つまででしたっけ? 色が4色を越える場合には何かないでしょうか?

  • imogasi
  • ベストアンサー率27% (4737/17069)
回答No.2

>変更したいセルがたくさんありすぎて B1:C3に当たる範囲の中の、セル数がたくさんあっても、1つ1つのセルに、別操作で条件設定をしなくてもいいのですよ。 B1:C3に当たるところを範囲指定して、条件付書式を設定すればよい。 A1=3の場合、B1:C3とGi:I3を色をつける場合 B1:C3を範囲指定 CTRLを押しながら G1:I3を指定 CTRLを押しながらB1をクリック 書式-条件付貴書式 数式がー=$A$!=3 $が肝心です。 書式パターンの色設定 OK 別の条件(=$A$!=4 など)を設定し、追加

kei3999
質問者

お礼

ありがとうございます。 解決しました。 条件は4つまででしたっけ? 色が4色を越える場合には何かないでしょうか?

  • 134
  • ベストアンサー率27% (162/600)
回答No.1

書式→条件付書式 で、条件を入力すれば、可能です。

kei3999
質問者

お礼

ありがとうございます。 解決しました。 数式は知りませんでした。 条件は4つまででしたっけ? 色が4色を越える場合には何かないでしょうか?

関連するQ&A