[[20030717174307]]　『色がついていないセルの値を違うセルに抽出』（taki）　ページの最後に飛ぶ

『色がついていないセルの値を違うセルに抽出』（taki）

ある一列を参照して色がついていないセルの値のみを、違う列に抽出
したいのですが、どうやればよいのでしょうか？
教えてください。。。。。

     A     B
 1  10
 2   5
 3   6 
 4   4
 5   3
とあったとしてA1、A3、A5に色がついているとします。
B1を名前の定義でカラーとして参照範囲に=GET.CELL(63,A1)+NOW()*0とします。
B1の数式を=カラーとしてB5までフィルします。そうすると色番号がでます。
塗りつぶしなしのばんごうは0となるので=SUMIF(B1:B5,"0",A1:A5)とすれば色のないセルの
合計が出ます。ちなみに今回の例はB列でやりましたが他の空いている列やB列を非表示して
色番号は隠して頂ければ見栄えも良くなります。PS、色を変えたりした場合はF9で再計算
させて下さい。（ケン）

解答ありがとうございます。
ただ、今回の場合値が文字列（名前等）なので、合計は必要ないのです。
教えていただいた方法でやると、B列でフィルした際に、A列で色がついていないセル
は0と表示されますが、その0は表示しないで、セルの文字列だけを抽出したい
のですが、何か方法はありますでしょうか？（taki）

 すいません。勘違いしていました。合計でなく抽出ですね。
=IF(カラー=0,A1,"")とB1にしてB5までコピーするではだめですか？
（ケン）

 衝突しました。

 ケンさんの、
 B1の数式を=カラーとしてB5までフィルします。の部分を、
 B1の数式を=IF(カラー=0,A1,"")としてB5までフィルします。に変更すれば
 塗りつぶしのあるセルのみ抽出できましたよ。

 ただし、「色なし」でパターン(網掛け)を設定しているセルは抽出できないようです。
 空白セルに色を塗った場合は 0 と表示されます。
 また、塗りを変更した時は、再計算しないと(自動計算では)反映されませんでした。

 それにしてもこんなワザは初めてで、驚きました。
 ケンさん、GET.CELL の63の意味や、それ以外の設定値を知りたいのですが、
 ヘルプなどでどのように調べたら見つかるか教えて下さい。(うまく見つかりませんでした)
 最後の +NOW()*0 は計算の時に実行させるための工夫ですね？感服！
 (ちゅうねん)

 自分も教えてもらったワザです。Excel4.0マクロの関数です。
 Excel2000以降にはヘルプにも載っていないそうです。引数については1～63まであり
ますが9,10,11,12は、セルの左端、右端、上端、下端に設定されている罫線の種類
34,35,36,37は、セルに設定されている罫線の色位しか自分も知りません。まだまだ勉強不足
です。（ケン）

 ありがとうございます。勉強になりました。(ちゅうねん)

コメント返信：

[ 一覧(最新更新順) ]

[[20030717174307]] 『色がついていないセルの値を違うセルに抽出』（taki） ページの最後に飛ぶ

[[20030717174307]]　『色がついていないセルの値を違うセルに抽出』（taki）　ページの最後に飛ぶ