赤色の数を数える

数えたい選択範囲を指定してから実行するマクロだが
赤色の数を数えたくて作成してみました。

Sub 赤色を数える()

Dim i As Integer
Dim j As Integer
Dim 赤色数 As Integer
 赤色数=0

For j = 1 To Selection.Columns.Count
   For i = 1 To Selection.Rows.Count
      If Selection.Cells(i, j).Interior.ColorIndex = 3 Then
         赤色数 = 赤色数 + 1
     End If
  Next
Next
    MsgBox 赤色数
End Sub
[PR]
by slayer0210 | 2005-10-28 12:57 | マクロ


<< セル内改行 カメラ機能 >>