[[20021219151458]]　『オートフィルタでの抽出条件について』（中央）　ページの最後に飛ぶ

『オートフィルタでの抽出条件について』（中央）

はじめて質問させていただきます、中央と申します。

オートフィルタで、「セルに色が付いたもの」や「文字が赤いもの」などだけを

抽出したりする方法はありますか？もし方法がありましたら教えていただけると

うれしいのですが・・・。

 書式でフィルターはできないんじゃないかな。

 どこかにそういうVBAやアドインがありそうな気がして

 探してみましたが...（汗）。

 書式を確認して該当する書式を含んだレコード以外を非表示にする

 VBAを組めばできるんですけど...

 きちんと作って安くしたら売れそうですね。

 答えになっていませんでした（汗）。

 （ramrun）

 ramrunさんの案内されたアドインソフトが

http://ftool.tripod.co.jp/　のEXCELソフトの中にありました。

エクステントファンクションｆｏｒＥｘｃｅｌ　Ｖｅｒ1.00

　Ｅｘｃｅｌの代表的な機能はやはりワークシート関数です。いろんなものがあり、どれも便利です。

　しかしＥｘｃｅｌを使っているとこんな関数があったらなとかこういうことは関数でできないのかと

　よく思うものです。そこでこのエクステントファンクションです。これはＥｘｃｅｌに

　１００個ものワークシート関数を追加します。こんな関数があったらなというような関数が

　これをアドインすることで使えるようになります。これでＥｘｃｅｌの機能・便利性が

　格段に上がります。ヘルプファイルもあるので関数が苦手でもすぐに使えます。

上記案内はFTOOLの転記です。

COLOR関数でセルのパターンの色に対応した数値を返します。

FONTCOLOR関数でセルの文字の色を表す数値を返します。

などの関数で表示されたカラー色番号を活用されたら如何ですか。

 （シニア）

お二方とも、どうもありがとうございました。

シニアさんのおっしゃっている関数で、ちょっとチャレンジしてみます！

（中央）

 シニアさん、フォローありがとうございます（汗）。

 ズバリ「書式からフィルターをかけてくれるもの」を探していましたけど、

 書式情報の数値で普通にフィルターすればいいんですよね。

 気付いていませんでした（笑）。

 そしてやっぱり有料なんですね。

 （ramrun）

 そうなんです「きちんと作って安くしたら売れそうですね。」の案内のように

「試用期間に気に入ったら、どうぞ！」なんです。

２つの関数であれば、下記の案内でユーザー関数をALT＋Ｆ11で貼り付けて

http://www.excel.studio-kazu.jp/lib/e1k/e1k.html（e1k）赤い文字のセルだけ合計したい

 パターン色番号を表示　COLOR(セル)　で表示

Function Color(adr)

Color = adr.Interior.ColorIndex

End Function

 フォント色番号を　FCOLOR(セル)　で表示

Function FColor(adr)

FColor = adr.Font.ColorIndex

End Function

で利用するのも、良いかもしれません。

 (シニア）

コメント返信：