質問: エクセルで色の付いたセルを抽出したいです エクセル2003を使っていてosはウインドウズxpです エクセルで色をつけたセルの行だけを抽出したいです 例えば セルb1に =if(a1=セルパタ-ン緑色,"抽出","") のようにして、"抽出"という言葉を表示させれば、オ-トフィルタで抽出できると思っています ですが、「セルパタ-ン緑色」の部分をどうすればいいかわかりません また書式を条件に並べ替えをすれば、抽出できると思っています 何かいいアイデアがありましたら教えてください
回答: 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