システムトレード大全

セルの色を判断してそのデータを抽出するという機能ですが、Excelを使っている人は使いたい機能だと思うんですが、標準の機能ではできないので関数を使って実行したいと思います。

まずはセルの色を指定してデータ抽出をしてみましょう。
Excelの機能ではオートフィルタというデータを抽出して表示させる機能があるのですが、これはセルの値によって判断するものであって、セルの色によって判断は出来ないようになっています。

では、どうやったらセルの色別に表示が出来るのでしょうか？まずはセルの色を取得する関数を使って、セルの色別に値を設定して分けます。その列を使ってオートフィルタ機能を使うとセルの色別に表示させることが出来るという事になります。

【セルの色（ColorIndex）を取得する関数】
Function iro(objCell As Range) As Integer

　Application.Volatile
　iro = objCell.Interior.ColorIndex

End Function

上記のコードを使用して各セルのColorIndex値を取得、表示させます。
例えば、Ａ５のセルの色を取得し、Ｂ５に値を表示するのであれば、Ｂ５のセルに「=iro(B5)」と指定してください。そうするとＢ５にＡ５のセルのColorIndex値が表示されます。
これを取得したい行全てに設定して、この値に対してフィルタをかけると色別に表示することが出来ます。

参考にしてみてやってみてくださいね。