Kenshinzdo

 Function CountColor(計算範囲, 条件色セル) ApplicationVolatile CountColor = 0 For y = 1 To 計算範囲ColumnsCount For x = 1 To 計算範囲RowsCount If 計算範囲Rows(x)Columns(y)InteriorColorIndex = 条件色セルInteriorColorIndex Then CountColor = CountColor 1 End If Next NextEnd Function アレンジすればいろいろな事が出来そうですね。結果を表示するセルを選択します。 数式 タブで その他の関数 をクリックし、統計 をポイントして、次のいずれかの関数をクリックします。counta空白ではないセルをカウントします。 count数値を含むセルをカウントします。 countblank空白のセルをカウントします。Excelで1つのセルに複数の数式・関数・文字列を入れる方法 Excelで色付きセル（塗りつぶしたセル）をカウントする方法 Windowsのプロダクトキーがわからない時の確認方法 Excelで文字を入力するとセルの色が変わるようにする方法 方法はいろいろ あるキーワードを含んだセルの色を変える 日経クロステック Xtech 色付きセル カウント 数式