[[20030522020924]] 『色のついたセルの数え方』(ミヤ) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『色のついたセルの数え方』(ミヤ)

今日は、お願いします。

色のついた(単色)セルの数を数えたいのですが、


 [エクセルの学校(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

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

(1)挿入メニュー:マクロ:モジュールを選択します。
      これで新しいモジュールシートができまキ。

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


 [ツール]から[マクロ]で[Visual Basic Editor]をクリックしてVBEを開いてから
 [(1)挿入メニュー:マクロ:モジュールを選択します。] です。

 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(あるセル)
 とういう風にすれば、そのセルの塗りつぶし色のナンバーが返ります。
 青く塗っておいてやると5が返り、赤くしておくと3が返るでしょう。白は2ですが、
 塗りつぶしなしは、白ともまたちがって、-4142 です。

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

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

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

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


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.