色のついたセルを合計 -Excel Macro

●はじめてのユーザー定義関数 ～ 色のついたセルを合計
http://hp.vector.co.jp/authors/VA016119/hajimete/udf1.html

Function CellColor(セル)
CellColor = セル.Interior.ColorIndex
End Function

という関数を作り、セルの横に色番号を記入し、それをキーに足し合わせる、という方法


●（EXCEL）CELLの色をカウントする。 - Windows NT/2000 - 教えて！goo
http://oshiete.goo.ne.jp/qa/1225959.html

上記同様に、
=GET.CELL(24,A1)
という関数で、セルの横に色番号を記入し、それをキーに足し合わせる、という方法