[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『セル色をカウントする方法』(よよ)
セルの色、たとえば、赤色をカウントする方法はありますか。
関数でセルの色番号を数えさせることはできますか。
[背景色によってセルをカウント/集計 ] http://miyahorinn.fc2web.com/faq/faq030.html [色の付いたセルをカウント] http://miyahorinn.fc2web.com/tips/s_02_02_04.html エクセルの学校[無料ダウンロードコーナー]より https://www.excel.studio-kazu.jp/DL/DL01.html#color 基本的に「色」を通常の関数でカウントすることはできません。 【関連ログ】[色 カウント]で検索よりごく一部。 [[20050524155749]] 『色つきの文字だけ』(auto) [[20050614115616]] 『セルの色をカウントしたい』(なお) [[20051215100342]] 『色付けをカウントして数をだしたい!』(モカ) (みやほりん)(-_∂)b
色でなく、それを仕分けする条件でカウントするのですね。
よくわかりました。
ありがとうございました。しかし、どれを?使用したらいいのかわかりません。
初心者(4ヶ月)なもんで先ほどの質問を
マクロ式で一発で出来ませんでしょうか??申し訳ないです。
マクロをいれるのは以前したことがあるので、大丈夫だと思います。
>マクロ式で一発で っちゅうことは複数のセル色をカウントしたいんでっしゃろか? ほんならこんなんどうでっか?
>マクロをいれるのは以前したことがあるので、大丈夫だと思います。 を信用して、標準モジュールに下のコードをコピペ データを拾い出したいセルをアクティブにして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
↓でここへのリンク貼ったら質問者の方が間違ってこちらにレスしたようです。
(MARBIN)
あちゃ、ほんならこれ無駄レスちゅうことでっか(笑 まぁ、なんたることをサンタルチア・・・ MARBINさんおおきに〜 (弥太郎)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.