[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『色分けしたデータの個数を色別に個数をカウント』(ぽんぽこ)
A1赤色
A2青色
A3緑色
A4赤色
A5黄色
A6空白
とセルを塗りつぶして色分けしています。
これをデータの範囲ないで色別に個数をカウントするにはどうしたらいいでしょうか?
あと空白のセルにどれかの色が追加された場合、自動的にカウントが足されるというようなことは出来るのでしょうか?
Function ColorCnt(HRange As Range, myColor As Range) Dim myRange As Range Application.Volatile For Each myRange In HRange If myRange.Interior.ColorIndex = myColor.Interior.ColorIndex Then ColorCnt = ColorCnt + 1 End If Next myRange End Function
これを標準モジュールにコピーして、普通の関数と同じように使います たとえば、A1からA6のセル範囲でA1と同じ色で塗りつぶされている セルの個数を数えるには =colorcnt(A1:A6,A1) とします [F9]で再計算しますが、自動でしたい場合 Private Sub Workbook_SheetSelectionChange _ (ByVal Sh As Object, ByVal Target As Range) Application.Calculate End Sub これをThisworkbookモジュールにコピーすれば選択セル範囲を変更したとき自動で 再計算されます。もっといい方法があるのかもしれませんが、私にはわかりません (りな)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.