[[20060309180850]]　『セル色をカウントする方法』（よよ）　ページの最後に飛ぶ

『セル色をカウントする方法』（よよ）

セルの色、たとえば、赤色をカウントする方法はありますか。

関数でセルの色番号を数えさせることはできますか。

 　
[背景色によってセルをカウント／集計 ]
http://miyahorinn.fc2web.com/faq/faq030.html
[色の付いたセルをカウント]
http://miyahorinn.fc2web.com/tips/s_02_02_04.html
　
エクセルの学校[無料ダウンロードコーナー]より
http://www.excel.studio-kazu.jp/DL/DL01.html#color
基本的に「色」を通常の関数でカウントすることはできません。
　
【関連ログ】[色 カウント]で検索よりごく一部。
[[20050524155749]] 『色つきの文字だけ』（auto）
[[20050614115616]] 『セルの色をカウントしたい』（なお）
[[20051215100342]] 『色付けをカウントして数をだしたい！』（モカ）
(みやほりん)(-_∂)b

ありがとうございます。みやほりんさま。

色でなく、それを仕分けする条件でカウントするのですね。

よくわかりました。

ありがとうございました。しかし、どれを？使用したらいいのかわかりません。

初心者（４ヶ月）なもんで先ほどの質問を

マクロ式で一発で出来ませんでしょうか？？申し訳ないです。

マクロをいれるのは以前したことがあるので、大丈夫だと思います。

 >マクロ式で一発で
 っちゅうことは複数のセル色をカウントしたいんでっしゃろか？
 ほんならこんなんどうでっか？

 >マクロをいれるのは以前したことがあるので、大丈夫だと思います。
 を信用して、標準モジュールに下のコードをコピペ
 データを拾い出したいセルをアクティブにしてAlt+F11からColCntを実行します。
 　　　　　　　ほな　　（弥太郎）
 '-------------------------
 Sub ColCnt()
    Dim dic As Object
    Dim adrs As Range
    Dim colNo As Integer, Cnt As Integer, i As Integer
    Dim key

    Set adrs = Application.InputBox("参照範囲はどこでっか？  「例　A1:D100」", Type:=8)
    Set dic = CreateObject("scripting.dictionary")
    Cnt = 1
    For Each c In adrs
        colNo = c.Interior.ColorIndex
        If colNo > 0 Then
            If Not dic.exists(colNo) Then
                dic(colNo) = Cnt
            Else
                dic.Item(colNo) = dic.Item(colNo) + 1
            End If
        End If
    Next c
    For Each key In dic.keys
        ActiveCell.Offset(i).Interior.ColorIndex = key
        key = key + 1
        i = i + 1
    Next
    ActiveCell.Offset(, 1).Resize(dic.Count) = Application.Transpose(dic.items)

    Set dic = Nothing
 End Sub

 ↓でここへのリンク貼ったら質問者の方が間違ってこちらにレスしたようです。

http://www.excel.studio-kazu.jp/cgi-bin/kazuwiki2.cgi?mycmd=read&mypage=[[20060502142632]]&mytime=172027

 (MARBIN)

 あちゃ、ほんならこれ無駄レスちゅうことでっか（笑
 まぁ、なんたることをサンタルチア・・・
 MARBINさんおおきに～
 　　　　　（弥太郎）

コメント返信：

[ 一覧(最新更新順) ]

[[20060309180850]] 『セル色をカウントする方法』（よよ） ページの最後に飛ぶ

[[20060309180850]]　『セル色をカウントする方法』（よよ）　ページの最後に飛ぶ