エクセル実践塾　>　エクセル実践塾2013

指定色で塗りつぶされているセルの個数を求められる、ユーザー定義関数を作りたい

ユーザー定義関数は、その処理を拡張できますセルを塗りつぶしている色は、標準の関数では判別できませんが、ユーザー定義関数ならそれが可能です。そのユーザー定義関数を利用して、セル範囲から該当個数まで求められるユーザー定義関数を作ることもできます。
Excel 2013/2010/2007

	①前号で作成したCellColor関数と同じモジュールウィンドウに、該当するセル個数まで求められるCellColorIf関数を作る「function CellColorIf(範囲, 条件色セル)」というコードを入力し、「範囲」と「条件色セル」の2つの引数を持つCellColorIf関数を作ります。
	②Enterキーを押すと、末尾に「End Function」が追加される
	③次のようなコードを入力して、ユーザー定義関数が、標準の関数と同じように自動再計算されるようにする Application.Volatile
	④次のようなFor Each文を使って、指定範囲内のセルすべてと、指定セルの塗りつぶし色を比較する
For Each cc In 範囲　　　　　　　If CellColor(cc) = CellColor(条件色セル) Then kosu = kosu + 1 　　　　　Next cc	ccは、範囲内の個々のセルを、 kosuは、塗りつぶし色の一致した数の累計です。 CellColorは、前号で作成した、指定セルの塗りつぶし色を数値で表すユーザー定義関数です。
	⑤次のようなコードで、累計した一致個数を、CellColorIf関数の値として返せるようにする CellColorIf = kosu
Function CellColorIf(範囲, 条件色セル) 　　　　　Application.Volatile 　　　　　For Each cc In 範囲　　　　　　　If CellColor(cc) = CellColor(条件色セル) Then kosu = kosu + 1 　　　　　Next cc 　　　　　CellColorIf = kosu End Function	左のコードが、CellColorIf関数のコード全文ですが、CellColorはユーザー定義関数なので、前号で作成した次のようなコードが別に必要です（左上のモジュールウィンドウの上部に作成してあるものです）。 Function CellColor(セル) 　　　　Application.Volatile 　　　　CellColor = セル.Interior.Color End Function
	⑥作成したCellColorIf関数は、標準の関数と同じように使える
	⑦1つ目の引数には、検索対象となるセル範囲を指定する ※作例では、テーブルの表が検索対象となっているので、構造化参照でセル範囲が表示されています。通常のセル番地による指定も行えます。
	⑧半角のカンマを挟んで、検索条件となる塗りつぶし色のセルを指定する
	⑨CellColorIf関数を完成させれば、指定セルと同じ塗りつぶし色のセルの個数が表示される