[[20110326223259]]　『色付きセルの数』（アデランスが必要な年寄り）　ページの最後に飛ぶ

 『色付きセルの数』（アデランスが必要な年寄り）
 セルA1からC500にところどころに赤色のセルがあります。
 このセルの数を数えられないでしょうか。
 Excel2000です。

 こんな関数があります。
http://www.excel.studio-kazu.jp/DL/UFClr/UFClr.html
(bbq)

 色つきのセルは通常の関数ではカウントできません。
　
「ある条件のセルの数を数える」・・・ＳＵＭＩＦ関数
「ある条件のセルに自動的に色をつける」・・・条件付書式
　
「ある条件」が同一なら、
この二つの機能を使って「赤色のセル」を数えたことにはなります。
(みやほりん)(-_∂)b

 bbq様
 =UFClrCntfc(A1:C100)
 の式では「#NAME?」となってしまいだめでした。
 どういう式を書けばいいんでしょうか。
 みやほりん様有難うございます。
 （アデランスが必要な年寄り）

 UFClr0322.lzh (34KB) 
 圧縮書類がダウンロードされます 
 こんなのがあったけれど怖いので止めました。
 （アデランスが必要な年寄り）

＞こんなのがあったけれど怖いので止めました

 代わりに開いてみました。
中に御希望の「赤色のセル」を数えるＶＢＡのコードがありました。
 Alt+F11を押して、挿入⇒標準プロシージャ
 で表示されたウィンドウに下記をコピーして貼り付けて下さい。
Public Function UFClrCntcc(adrs, clr)
' 特定のセル色の数
Dim sm As Variant, cv As Variant, fci As Integer, ad As Range
  sm = 0
   For Each ad In adrs
    fci = ad.Interior.ColorIndex
    If fci = clr Then
     sm = sm + 1
    End If
   Next
 UFClrCntcc = sm
 End Function

 貼り付けが終わりましたら、ワークシートに戻り、どこかのセルに
=UFClrCntcc(A1:C100, 3)
としてみて下さい。
　（ri)

 すごい。勇気がありますねー。
 riさん有難うございました。
 イヤーこの学校の人たちはすごいわー
 （アデランスが必要な年寄り）

 質問者さん（←いくらハンドルとはいえ、自虐的なお名前を呼ぶのは気が進みません。
 　　　　　　　この辺り、気遣っていただけると良いなぁと思います。どなたに限らず。）
 は気がついておられるかどうかわかりませんが、
 リンク先関数の作者はこのエクセルの学校のkazu校長です。
 少なくとも私は何年も前からこちらでお世話になっており、
 こちらの校内にあるものは信頼しています。
 もちろん、私の勝手ではあります。
 （参観者）

 個人的な意見ですが、

 (1)ファイルのウィルスが心配？
 ウィルス対策ソフトは導入されていないでしょうか。
 ファイルのダウンロード時にたいていこれでスキャンしてくれます。

 (2)マクロの中身が心配？
 マクロの中身が信頼できないなら、どうしようもないですね。
 私の場合は胡散臭げな場合はマクロを無効にして開き、内容をある程度確認して
 から実行します。
 （パスワードが掛かっていて中が見えない）＆（怪しげ）
 のときは削除します。

 もちろん何かあったら結局は自己責任なので、「使わない」のも自由です。
 (Mook)

コメント返信：

[ 一覧(最新更新順) ]

[[20110326223259]] 『色付きセルの数』（アデランスが必要な年寄り） ページの最後に飛ぶ

[[20110326223259]]　『色付きセルの数』（アデランスが必要な年寄り）　ページの最後に飛ぶ