• ベストアンサー

エクセルで色の付いたセルを抽出したいです

エクセル2003を使っていてOSはウインドウズXPです エクセルで色をつけたセルの行だけを抽出したいです 例えば セルB1に =IF(A1=セルパタ-ン緑色,"抽出","") のようにして、"抽出"という言葉を表示させれば、オ-トフィルタで抽出できると思っています ですが、「セルパタ-ン緑色」の部分をどうすればいいかわかりません また書式を条件に並べ替えをすれば、抽出できると思っています 何かいいアイデアがありましたら教えてください

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

  • ベストアンサー
  • zap35
  • ベストアンサー率44% (1383/3079)
回答No.1

CELL関数で色が付いているかどうかまでは確認できますが、色までは分かりません。ユーザ関数を記述する必要があります まず以下のマクロをALT+F11でVBE画面を開き、「VBAProjectエクスプローラのシート名右クリック」→「挿入」→「標準モジュール」で表示される画面にペーストして下さい。 Private Function CellColor(ByVal target As Range) As Integer CellColor = target.Interior.ColorIndex End Function シートに戻り任意のセルに =IF(CELLCOLOR(A1)=10,"抽出","") と入力すると「背景色が緑色」のセルの時「抽出」となります(=CELLCOLOR(A1) はセルの背景色を返すユーザ関数となります) 色と数値(カラーインデックス)の対応表は下記URLを参照してください

参考URL:
http://www.eurus.dti.ne.jp/~yoneyama/Excel/dic/dic02a.html#colorpalet
hiroki-73
質問者

お礼

ご返信ありがとうございます 難しそうですが勉強のためにトライしてみます ありがとうございます、大変参考になりました

関連するQ&A

  • エクセルの並び替え (セルの色を除いて)

    エクセルの並び替えにつきまして質問させて頂きます。 入力の際見やすいように一行おきに薄くグレイにしています。 この表で並び替えをしますと、行の色も並べ替えられて白の行が続いたり、薄いグレイの行が続いたりします。 この様な場合、「セルの書式」のセルの色だけ移動せずに並べ替えをすることは可能でしょうか? 可能でしたら、手順を是非ご教授下さい。 よろしくお願いいたします。

  • エクセル:色の付いたデータをまとめて抽出したい。

    いつも、参考にさせて頂いております。エクセルの抽出について教えて頂きたい事があり、こちらでアドバイスを頂こうと思いました。例えば エクセルの並べ替えで最優先で並べ替えで 昇順又は降順を指定    ↓ 2番目に優先されるキーで昇順又は降順で並べ替えを行ないます。 次に、塗りつぶしの色が付いたセル(データを入力しています。)だけをまとめて抽出する場合どのような操作を行なえばよいでしょうか? 宜しくお願いします。

  • エクセル2016で重複データのみ抽出

    ホームタブ、「条件付き書式」でセルの強調表示ルールの「重複する値」で設定すると、重複する値に色をつけられますね。 この「色のついた」セルを含む行のみを抽出する方法はありますか? 例えば、 1 2 2 3 3 3 4 5 6 6 という列で重複チェックをすると、 2 2 3 3 3 6 6 に色をつけることはエクセルの機能で可能ですが、この行のみ表示で絞り込みたいです。 よろしくお願いします。

  • 各セルに色を塗るには

    エクセルで、300×500のセルがあり、その全てに1~8の数値がランダムに入っています。セルに入っている数値が、例えば1なら黄色、2なら緑、3は青、4はグレー、・・・というように、合計8色を各セルに塗りたいのです。初めは条件付き書式でやろうとしましたが、条件が3つまでしか指定できませんので、8色も塗れません。 初めに条件付き書式で3色だけぬり、その色を固定してその条件付き書式を解除し、次にまた3色塗ろうともしましたが、それも、初めの3色の条件が解除できません。別にシートにコピーしても、数値だけか条件付きがついたままコピーされるので、うまくいきません。 ひとつひとつのセルに色を塗るのは、1から8の数値がランダムのため、気の遠くなるような時間と労力が必要です。 どなたかいい方法があったら教えて下さい。

  • Excelで、選択したセルがある行を色を変える。

    MS Excelで、選択したセルがある行を色を変える方法を知りたいです。 たぶん、条件付書式だったと思ったのですが、 回答よろしくお願いします。

  • 2013 セルの数値によりその行に色をつける方法

    こんにちは Excel2013を使用しています。 A~AM、50列ほどの表があります。 AC行に1~150までの数値が入っています。 そのセルの数値によってその行に色をつけたいと思います。 1~29は色をつけません 30~59はその行に緑を 60~89はその行に黄色を 90以上はその行に赤をと言う具合です。 「ホーム」---「条件付き書式」や =if("AC2">=60 のような式で設定しようと 考えましたが、方法が見つかりません。 マクロを組みたいと思っていますので なお「並び替え」----範囲を「塗りつぶし」以外の方法をお願いします ご存じの方お教えください。

  • エクセルのセルの色が変わらない

    エクセル2010を使用しています。 別の人が作ったエクセルファイルを開いて、編集している途中、 セルの色(ぬりつぶし)を自分で変えました。 その後、そのセルの色を元にもどす(「ぬりつぶしなし」にする)ことができません。 「条件付き書式」でも設定されているのかと思い、 「条件付き書式」→「ルールのクリア」→「選択したセルからルールをクリア」 をクリックしましたが、塗りつぶしをなしにできません。 どうすればセルの色をぬりつぶしなしにすることができるでしょうか?

  • エクセルでセルに色をつける

     エクセル2003を使用しています。 数値をランク付けしてセルに色をつけたいのですがランクが1から6まであり条件付書式を活用しようと思ったら3つの条件までみたいで困っております。1から6まですべて違う色のセルにしたいのですが、なにか、いい方法はないでしょうか?

  • 一つ上のセルと同じセルに色をつける条件書式

    Excelで一つ上のセルと同じセルに色をつける条件書式を設定したいです。 たとえば、 A1に「123」A2に「123」があればA2を黄色く塗る と言う具合です。 条件式ではなくて、関数を使ってでもかまいませんのでどうすればよいかご教示ください。 私は、B1に「IF(A1=A2,"○","")」という条件式を入れて○のところを黄色く塗る、と言うことしかできませんでした。

  • Excelでデータ抽出!

    かなり切羽詰ってます。助けてください。 excelで3×15の表を作ってそこからデータを抽出したいのです。列と行の数値はそれぞれ別のセルからの参照にしたいのですが...。ifとかvlookupとかいろいろ使ってみたのですがうまくいきません。エクセルでゆーところの'B3'を出したいだけのことなのですが...。誰か助けてください。

専門家に質問してみよう