エクセルで色のついたセルを間単に数える方法はありますか

質問

エクセルでランダムに２万個の升目の中に、数千個の色付きセルがあるとします。これをすばやく短時間で数える方法は無いでしょうか。ご存知の方がいらっしゃいましたら教えて下さい。ちなみに色付きセルの中に数字やテキストデータは入ってません。

回答No.1

inte-nori · ベストアンサー

１．「ツール」＞「マクロ」＞「Visual Basic Editor」を開きます。

２．「挿入」＞「標準モジュール」を実行し、右側に表示されたウィンドウに下記のコードを貼り付けます。

Sub count()
　　a = 0
　　For Each b In Selection
　　　　If b.Interior.ColorIndex <> xlNone Then
　　　　　　a = a + 1
　　　　End If
　　Next
　　MsgBox a
End Sub

３．画面下のタスクバーでエクセルの画面に戻します。

４．色つきセルの数を求めたいセル範囲を選択しておきます。

５．「ツール」＞「マクロ」＞「マクロ」を実行し、「count」を選択して[実行]を押します。

以上で出来ると思うんですが。

お礼

助かりました。感謝感謝です！