セルの色を判断したい

セルの色を判断してそのデータを抽出するちう機能やけどアンタ、エクセルを使っとる人は使いたい機能だと思うんやけどアンタ、標準の機能ではでけへんので関数を使って実行したいと思うで。

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

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

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

　Application.Volatile
　iro = objCell.Interior.ColorIndex

End Function

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

参考にしてみてやってみておくんなはれね。


生き埋め２万人超 中国・四川大地震…死者１万人突破
サンケイスポーツ
地震の死者は１万人を超えた＝１３日（新華社＝共同） １２日の中国・四川大地震で国営通信新華社は１３日、死者が１万２０００人を超え、２万３０００人以上が生き埋めとなっていると報じた。倒壊家屋は３４６万戸以上という。政府は数万人の軍兵士などを投入しているが ...(続きを読む)