• ベストアンサー
  • 困ってます

エクセルでセルの色を条件に使いたい

エクセルの表のなかに、たくさん色分けをしているのですが、 その色分けの色を変更したいと思っています。 ・今赤で塗っているところを緑に、今黄色または黒で塗っているところを青にという ふうに、複数の変更をしたいのですが、どうしたらよいでしょうか。 教えてください。

共感・応援の気持ちを伝えよう!

  • 回答数3
  • 閲覧数194
  • ありがとう数3

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

  • ベストアンサー
  • 回答No.3
  • ARC
  • ベストアンサー率46% (643/1383)

Excelには色を置換する機能はありません。(多分) どうしても置換したかったら、マクロを組むしかないと思います。 ↓面白そうだったので、作ってみました。(テストに時間かけてないのでバグありかもしれません。) Public Sub SelectSameColorCells()   Dim SrchColor As Long   Dim ReplaceColor As Long   Dim SearchArea As Range   Dim V As Variant   Dim Ret As String   '検索する色を取得する   Ret = InputBox("検索する色、もしくは、検索する色が設定されたセルのアドレスを指定してください。" & vbNewLine _           & "例:255 (10進数で指定する場合)" & vbNewLine _           & "例:&H0000FF (16進数で指定する場合)" & vbNewLine _           & "例:A1 (セルのアドレスで指定する場合)" & vbNewLine & vbNewLine _           & "注:色の並びはBGRの順。&H0000FF=赤, &HFF0000=青。")   Ret = Trim$(Ret)   If IsNumeric(Ret) Then     SrchColor = Val(Ret)   Else     SrchColor = Range(Ret).Interior.Color   End If   '置換後の色を取得する   Ret = InputBox("置換後の色、もしくは、置換後の色が設定されたセルのアドレスを指定してください。" & vbNewLine _           & "例:65536 (10進数で指定する場合)" & vbNewLine _           & "例:&H00FF00 (16進数で指定する場合)" & vbNewLine _           & "例:A1 (セルのアドレスで指定する場合)" & vbNewLine & vbNewLine _           & "注:色の並びはBGRの順。&H0000FF=赤, &HFF0000=青。")   Ret = Trim$(Ret)   If IsNumeric(Ret) Then     ReplaceColor = Val(Ret)   Else     ReplaceColor = Range(Ret).Interior.Color   End If   '検索対象となる範囲を取得する   Ret = InputBox("検索の対象となる範囲を指定してください。 例:A1:Z100")   Ret = Trim$(Ret)   Set SearchArea = Range(Ret)      '同じ色のセルを検索し、色を変更する   For Each V In SearchArea     If V.Interior.Color = SrchColor Then       V.Interior.Color = ReplaceColor     End If   Next End Sub

共感・感謝の気持ちを伝えよう!

質問者からのお礼

どうもありがとうございました。 こんな難しいことをしなくてはいけないのですね。。 いろいろ考えた挙げ句、手でやっちゃいました。 でも、勉強になりました。ありがとうございました。

関連するQ&A

  • エクセルの表でCOUNTやSUMの条件について

    表の中に条件によって数値のフォントの色わけをしているんですが、特定の色だけCOUNTやSUMで結果を出すときに計算から抜かす事とかできるんでしょうか? 数値の色は黒、赤、緑、青、紫を使ってます。 COUNTは青と緑の数値を抜いた個数を返したくて SUMは青の数値を抜かした合計を出したいのですが。

  • エクセルの一つのセルに複数の色をつけたいのですが、可能ですか

    エクセルの一つのセルに複数の色をつけたいのですが、可能ですか 例えば、赤、青、黄色を三等分にしてひとつのセルに色をつけたいのですが よろしくお願いします。

  • EXCEL セル内の一部文字色を太字にしたい。

    EXCEL2003を使用しています。 アンケートの集計を行っています。 C・D・E列にコメントが入力されています。 その列それぞれのセル内の一部が、赤・青・緑と色分けされているので、その色の付いた文字を太字に変えたいのですが、どうしたらいいのでしょうか? 使用している色は、黒・赤・青・緑です。 VBAで変えられそうですが、全くわかりませんので、ご回答の程、どうぞよろしくお願いいたします。 また、色の数値の出し方も併せて教えてください。

その他の回答 (2)

  • 回答No.2
  • Naka
  • ベストアンサー率44% (527/1181)

◆それまで何によって色分けをしていたのか、というのはバラバラなのでしょうか?? 通常、何らかの条件(曜日、計算結果など)によって色分けしていると思うのですが、その数式や値によって、「条件付き書式」を用いてはどうでしょうか?? そんなところしか、思い浮かびませんが。m(_ _)m

共感・感謝の気持ちを伝えよう!

  • 回答No.1
  • y45u
  • ベストアンサー率27% (140/516)

私もこの回答が知りたい! こういう事を仕事でちょくちょくやるのですが、手作業でコントロールキーを押しながら同色を選んで一括変換しか思いつかなくて・・・膨大な量になるとしんどいんですよねえ。

共感・感謝の気持ちを伝えよう!

関連するQ&A

  • エクセルで条件付きでセルの色を変更させたい

    例えば、A1~DZ1までに0~10000迄の数字が入っています。 2000~3000以下を青 3001~4000以下を赤 4001~5000以下を黄 というように色分けをしたいのですが 個別に色分けをしていると大変&間違える可能性があるので 何かよい方法がないかと思い質問しました。 質問はセルの背景色ですが、フォントの変更も出来ましたら教えていただけると嬉しいです。 宜しくお願いしますm(__)m

  • エクセル名の変更(色)…。

    簡単な質問なのですが、作成したエクセル名を好きな色に変更出来るのでしょうか??通常は黒ですが例えば緑とか赤とかに変更したいのですが…。どうぞ宜しくお願い致します。

  • 色が違う!

    エクセルで表を作り、印刷したのですが、画面でセルに付けた色と印刷されたときの色が違うのです。 赤が黄色になってたり、グレーが緑になってたり。。 どうすれば直るのでしょうか? よろしくお願いします↓

  • エクセル クリックでセルの色を変えるには?(3)

    15人をA、B、C、D、Eの5チームに分ける表をエクセルでつくりたいと考えています。    (1)1行目に1人目のデータ。A1列に氏名。  (2)1人目がAチームなら、B1をクリックすると赤に変わり、かつ「A」とそのセルに表示。  (3)Bチームに変更したければ、C1をクリックすると青に変わり、かつ「B」とそのセルに表示。その際、B1の色を消す。  (4)Cチームの場合は、D1をクリック、黄色に変わり、かつ「C」と表示。その際、B1もしくはC1の色を消す。  (5)Dチームの場合はオレンジ、Eチームの場合は緑、でそれぞれ同様にE1、F1に「D」「E」と表示。  (6)2人目以降は同様に、2行目以降に表示。それぞれの行が干渉しないようにする。    以上が1試合目で、2試合目、3試合目も行う。  ただし、2試合目以降は、3チームに分ける。  (1)2試合目はG、H、Iのセル、3試合目はJ、K、Lセルを使う。  (2)2試合目、3試合目のチーム名はA、B、Cではなく、ア、イ、ウとする。(2試合目、3試合目共にア、イ、ウ)  (3)1試合目はそのままで、2試合目、3試合目は別の色に変える。(Aチームは薄い赤、Bチームは薄い青、Cチームは薄い黄色)→細かな色の違いにはこだわりません。  (4)4試合目以降は行わない。    文章だけでは、表現力不足が大きく、非常にわかりにくいと思いますが、どうぞよろしくお願いいたします。  何度も同じような質問を重ねています。大変申し訳ありません。

  • エクセルのオートサムについて

    エクセルのオートサムについて質問があります。 エクセルの表の中に黒、赤、青、黄色など色をかえてそれぞれ数字を入力していった場合、 (すべてバラバラの行)、各色ごとの合計を出すような機能はあるでしょうか?  つまり、色を認識して、黒の文字の合計はいくら、青で記入した文字の合計はいくら、 といった出し方ができないかということです。 どうぞよろしくおねがいします。

  • 複数の色つきセルを一つにまとめる

    エクセルで複数の色つきセルを一つにまとめる方法について伺いたいです。 例えば、A1が赤、B1が青、A2が赤、B2が赤、A3が青、B3が青、C3が緑などのセルがあります。(これはセル内の文字に対応させて色づけさせたものです。)このときに、1行目に対応した1つのセル内に赤1/2,青1/2、2行目に対応した1つのセル内に赤1色、、1行目に対応した1つのセル内に赤1/3,青1/3,緑1/3を表示させたいと考えています。 最終的には、パワーポイントに貼り付けるため、対応するセルがかたまりのように見えればよいのですが、このようなことは可能でしょうか? よろしくお願いします。

  • Excel 自動色分け

    部品交換経過年数で自動色分けしたいのですが、やり方を教えてください。 交換して・・・ 3か月以内なら、黒 3か月から半年なら、緑 半年から一年なら、青 一年以上なら、赤 という感じで色分けしたいです。 またフォントの色でなく、塗りつぶしで自動色分けを行いたいのですが可能でしょうか?

  • excel関数について

    エクセルでセルの色をその中の数字よって分けたいですが。。。。 たとえば 8 15 17.3 18 19 15 11 12 14 16.3 10以下は赤 10-12はオレンジ 12-14は黄色 14-16は緑 16-18は青 18-20は白 20以上は紫 7種類の色が付けたいです。   どうすればいいのでしょうか? それとも、不可能でしょうか?

  • エクセル

    エクセルシートに数字を打ち込んでいくのですが、数字の大小によって 色分けして表示させたいのですが、たとえば50未満の数値であれば、 赤、50以上、100未満なら、青、100以上なら緑のように、 何種類かの色分けによって表示させたいと考えているのですが、 可能でしょうか?

  • エクセルでセルの塗りつぶし

    お世話になります。セルの塗りつぶしに関して教えてください。 セルC11の色を、セルA3に1を入れると黄色に、2を入れると緑に、3を入れると赤に、さらにA4に1を入れると黄色に、2を入れると緑に、3を入れると赤に、さらにA5に1を入れると黄色に、2を入れると緑に、3を入れると赤に、塗りつぶしたいのですが、どうすればよいでしょう。 セルA3とA4とA5には同じ数字は入らないのと、何も入っていない時は塗りつぶし無しにしたいのです。 宜しくお願いします。