[ 返信 ]

エクセルマクロで塗りつぶしのセルのカウント

マクロ初心者です。アドバイスをお願いします。以下のマクロですとB列の100行目までの塗りつぶしのセルのカウントは出来るのですが、シート上の全てをカウントしたいのです。１TO 100の100の部分をどう変更したら良いのか教えてください。

Sub セルの色数1()
Dim I As Integer
Dim Count As Integer
Count = 0
For I = 1 To 100
If Cells(I, 2).Interior.ColorIndex <> xlNone Then Count = Count + 1

Next I
Range("C1").Value = Count
End Sub

[6563] kazu (2009/10/25 Sun 14:53)

残り3件