ベストアンサー

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

2009/01/30 19:29

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

hiro3310H
お礼率97% (520/535)

オフィス系ソフト
回答数4
ありがとう数4

みんなの回答 （4）
専門家の回答

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

ベストアンサー

rukuku
ベストアンサー率42% (401/933)

2009/02/02 08:03 回答No.4

はじめまして塗りつぶしの色は１色でしょうか？（応用で３色までは対応できます）セルに直接色をつける代わりに、開いている列（例えばF列）に"a"と入力します。色をつけたいセルには「書式」－「条件付き書式」で「数式が」「=$F2="a"」「書式」－「パターン」で塗りつぶしの色を設定とするとF2にaを入力するとセルが塗りつぶされます。これなら、「データ」－「フィルタ」－「オートフィルタ」を使って、F列にaが入っている行だけ表示させることができます。

質問者

お礼 2009/02/08 18:59

お返事が遅くなりました。早速、表示させてみます。

その他の回答 (3)

Wendy02
ベストアンサー率57% (3570/6232)

2009/01/31 23:26 回答No.3

こんばんは。今、どんな状況なのでしょうか。マクロ関数で番号を出したのでしょうか。それとも、ユーザー定義関数でしょうか。いずれか一つを選んで、数字を出していただきます。 [水色]ですと、8あたりになると思いますが、空いている列で、 =IRO=8 または、 =FIRO(A2)=8 という数式を、オートフィルでコピーし、TRUE になったものだけをオートフィルタなどで、抽出すればできるはずです。

Wendy02
ベストアンサー率57% (3570/6232)

2009/01/31 10:16 回答No.2

こんにちは。色自体で並べ替えというのは、その色に意味付けを持たない限りは不可能です。 Excel2007 で、あたかも色の並べ替えのような操作はあっても、それは、その数値データ自体の意味があって並べ替えをしているので、色で並べ替えをしているわけではありません。ですから、その色自体を数値化しなければなりません。例 A列 ----- データ1 640　　=IRO ....[B2] 118 642 790 306 921 850 638 470 629 上記の場合、B列の[B2]に入れるとすれば、マウスカーソルを「B2」に置き、メニュー－[挿入]－[名前]－[定義] 名前(W) 「IRO」参照範囲(R) =GET.CELL(63,!A2)+NOW()*0 (相対参照ですから、2行目なら、A2 になります。）として、「B2」に、以下の数式を置きます。 =IRO オートフィルで、ドラッグすると、数字が出てきますから、それで、並べ替えしてください。なお、この数式は、シート間、ブック間でコピーはせずに、数式を数式バー等から入力してください。（Excel2007でも可能です。これは、ExcelのVer.4マクロ関数を利用したものです。それ以外は、VBAのユーザー定義関数を使います。下記参照） Ver.4マクロ関数が分からないという場合、 Excel 4.0 マクロ関数 http://office.microsoft.com/ja-jp/excel/HP010475331041.aspx をご覧ください。Excel2000で使用できると書かれていますが、それは、ワークシートにリンクするという意味で、ヘルプ自体は、参照できます。（内容は英語）この関数を使用していると、Excelでメッセージが出ることがあります。このメッセージを出さないようにするには、レジストリの操作が必要です。 http://support.microsoft.com/kb/820739/ja ユーザー定義関数 '標準モジュールに登録してください。 Function fIro(rng As Range) Dim i As Long 　i = rng.Interior.ColorIndex If i > 0 Then 　fIro = i End If End Function 一般の関数と同じように、 =fIRO(A2) とすれば、同じように可能です。

質問者