[[20030522020924]]　『色のついたセルの数え方』（ミヤ）　ページの最後に飛ぶ

『色のついたセルの数え方』（ミヤ）

今日は、お願いします。

色のついた（単色）セルの数を数えたいのですが、

 [エクセルの学校（e1k）赤い文字のセルだけ合計したい]を参考にして
 ad.Font.ColorIndex をad.Interior.ColorIndex に変更するとできます。
http://www.excel.studio-kazu.jp/lib/e1k/e1k.html

 Function FCS(adrs,clr)
  sm = 0
   For Each ad In adrs
    fci = ad.Font.ColorIndex
    cv = ad.Value
    If fci = clr Then
     sm = sm + cv
    End If
   Next
 FCS = sm
 End Function

有難う御座います。
　リンク先の意味が解りません、すいません。

（１）挿入メニュー：マクロ：モジュールを選択します。
　　　　　　これで新しいモジュールシートができまキ。

　私のエクセルでは、挿入をクリックしても、マクロが出てきません。
　何か、違うのでしょうか、

 ［ツール］から［マクロ］で［Visual Basic Editor]をクリックしてＶＢＥを開いてから
　［（１）挿入メニュー：マクロ：モジュールを選択します。］　です。

 Webの中身がMacでしかも古くて、ご迷惑をおかけしています。
 とりいそぎ、Webの中に補足説明をいれました。
 （kazu）

お忙しい所、早々の返事を頂き申し訳なく思います。

色のついた数字の集計は、出来ました。しかし、色だけのセルの集計は、
0を表示してしまい、うまくいきません。
何がいけないんでしょうか、すいません、エクセルをいじり始めて、
まだ、1、2ヶ月ご迷惑をおかけします。(ミヤ）

すいません、何度も。

色の付いた数字、数字が入った色の付いたセルの数字の合計は、出来るのですが、
色の付いたセルの数を数える事は出来ません。

こんな事は、出来ないのでしょうか？

質問の仕方が悪かったかと、思います、すいません。
それと、色指定の数字、（3＝赤）他の色では、どんな数字になりますか？
ヘルプなど見ましたが、解りませんでした。
何度も、すいません。

 こちらこそすみません、うっかり答えるのを忘れていました。
 セルの数を数えるのは↓のようなユーザー関数を作ります。
 （kazu）

 Function FCC(adrs,clr)
  sm = 0
   For Each ad In adrs
    fci = ad.Interior.ColorIndex
    cv = ad.Value
    If fci = clr Then
     sm = sm + 1
    End If
   Next
 FCC = sm
 End Function

 思うにミヤさんは、要するに有色のセルを数えたいのではないでしょうか。とすると

 Function FCC(adrs)
  sm = 0
  For Each ad In adrs
    sm=sm+iif(ad.interior.colorindex<>-4142,1,0)
  next
  FCC = sm
 End Function

 それで、関数を利用する時も、
 =FCC(範囲)
 となります。

 しかし、色を指定して数えたく、かつ、色ナンバーが分からない場合は、

 Function ccq(area)
   ccq = area.Interior.ColorIndex
 End Function

 という関数を書いて、使い方は、=ccq(あるセル）
 とういう風にすれば、そのセルの塗りつぶし色のナンバーが返ります。
 青く塗っておいてやると５が返り、赤くしておくと３が返るでしょう。白は２ですが、
 塗りつぶしなしは、白ともまたちがって、-4142 です。

 ついでですが、塗りつぶし色ではなく、フォントの色を問題にする時は、上の、
 Interior を Font に変えます。（通りすがりの者）

出来ました！出来ました！有難う御座います。！全て解決しました。！

kazu様、通りすがり様、有難う御座います！　なんとお礼を申し上げたら良いやら。

有難う御座います。　（ミヤ)　　

コメント返信：

[ 一覧(最新更新順) ]

[[20030522020924]] 『色のついたセルの数え方』（ミヤ） ページの最後に飛ぶ

[[20030522020924]]　『色のついたセルの数え方』（ミヤ）　ページの最後に飛ぶ