[[20070530152618]]　『色つきのセルの数を数えるには・・・』（おぐおぐ）　ページの最後に飛ぶ

『色つきのセルの数を数えるには・・・』（おぐおぐ）

　　Ａ　Ｂ　Ｃ　Ｄ　Ｅ　　Ｆ

１　80　92　75　82　100

２　88　85　90　84　93　　　　というデータがあるとします。

Ａ1、Ｂ2、Ｃ１、Ｄ１、Ｅ２のセルには黄色の塗りつぶしが設定されています。
つまり、数字の小さいほうに塗りつぶしの条件書式が設定してあります。

そこで、Ｆ列に塗りつぶされているセルの数（個数）を求めたいのです。

過去の質問を検索してみたら「UFClrCntccx（A1：E1）」でできるようなことが出てたんですが、アドインの設定が必要なんですよね。
できれば、アドインの設定なしで求めることはできるんでしょうか？

教えてください。よろしくお願いします。

Excel2003を使用しています。

 条件付書式で付けた色は、関数では数えられないはずです
 作業列に、条件付書式と同じ定義の関数を入力して何か記号を表示させ
 それを数えてはダメですか？

 Color関数(関数、アドイン)
http://www.excel.studio-kazu.jp/DL/UFClr/UFClr.html

 (Ohagi)

 F1
 =Sumproduct(--(A1:E1<A2:E2))
 F2
 =Sumproduct(--(A1:E1>A2:E2))
 (seiya)

 こういった、セル、又はフォントの色を判別して計算したいという要望は結構そこらじゅうで目にしますが、
 はっきり言って、そういった色を判別しての計算はやめたほうがいいでしょう。

 提示の質問であれば、数値の小さいほうの個数を数えるようにすればいいことです。
 セル（又はフォント）の色を変更するには、何かしらの条件があるはずです。
 ですので、その条件を元にして計算するように数式を組み立てれば済む話です。

 提示のものは、
 F1=SUM(($A$1:$E$1<$A$2:$E$2)*1)
 CTRL+SHIFT+ENTER で確定。
 これで３と出ます。
 　　　（TORI)

説明上2行にしましたが、実は50行くらいあるんです。

それから、条件付書式は設定してありませんでした。
ごめんなさい。

（おぐおぐ）

 もう一度、質問を整理した方が良いのでは？
 規則性があるのだから関数で出来ると思うし、わざわざ色を付けなくても
 出来るでしょう。
 (seiya)

 マクロで良ければ、こんなんどうでしょう。黄色限定＆範囲限定ですが(^^;

 Sub 黄色のセルをカウント()
 '
 '黄色限定（ColorIndex=6）で、セルに黄色が塗りつぶされてるものをカウントする。
 '検索範囲はA1:E50　検索結果をF列に記入する
 '
 Dim i As Integer, j As Integer, gokei As Integer
 gokei = 0

    For i = 1 To 50
     gokei = 0
     For j = 1 To 5
            If Cells(i, j).Interior.ColorIndex = 6 Then gokei = gokei + 1
     Next
     Cells(i, 6).Value = gokei
    Next

 End Sub

 （WindowsXP+EXCEL2003)　by　ｗｋｊ

 Function CountColoredCell(rng As Range, myColor As Range) As Long
 Dim r As Range, myClr As Integer
 Application.Volatile
 myClr = myColor.Interior.ColorIndex
 For Each r In rng
      If r.Interior.ColorIndex = myClr Then _
          CountColoredCell = CountColoredCell + 1
 Next
 End Function

 UDF
 1) Alt + F11
 2) [挿入] - [標準モジュール] 上記コード貼り付け
 3) Alt + q

 =CountColoredCell(A1:E1000,A1)
 A1: カウントする色がついたセル

 (seiya)

 >seiyaさん
 いつもながら綺麗なコードですね(^^)
 勉強になります。
 （そうか、関数作って引数でコントロールすれば良かったんですね）
 by　ｗｋｊ

 ｗｋｊさん、Sumは予約語なので、使用を控えた方が良さそうです。
 (ROUGE)

 >ROUGEさん
 ご指摘ありがとうございました。
 >Sumは予約語
 おっしゃる通りですね(^^;;　マクロを修正しました。sum->gokei
 by　ｗｋｊ

 ｗｋｊさん、

 For Next Loop より For Each Loop の方が速度が幾分速いので
 極力For Each Loop の方を使用するように心がけています。
 (seiya)

 >seiyaさん
 わざわざ解説頂き、ありがとうございます。

 >For Next Loop より For Each Loop の方が速度が速い
 ぐはっ、そんな違いがあったとは･･････orz
 勉強になります。（奥が深いですね）
 by　ｗｋｊ

コメント返信：

[ 一覧(最新更新順) ]

[[20070530152618]] 『色つきのセルの数を数えるには・・・』（おぐおぐ） ページの最後に飛ぶ

[[20070530152618]]　『色つきのセルの数を数えるには・・・』（おぐおぐ）　ページの最後に飛ぶ