塗りつぶされたセル数を数える(ユーザー定義関数)

以前にユーザー定義関数(色合計)赤色の数を数えるでもやってみてはいるが、
今回は指定した範囲内に塗りつぶされたセルの数を数える関数を作ってみた。

Function CCOUNT(範囲 As Range) As Integer
   Dim myrange As Range
   Dim i As Integer
     i = 0
    For Each myrange In 範囲
      If myrange.Interior.ColorIndex <> xlNone Then
        i = i + 1
      End If
    Next
      CCOUNT = i
End Function

コードは出来るだけ簡略化したが、目的の関数が出来たのでよしとしよう。
e0080122_9564711.gif

e0080122_958453.gif

関数名はDCOUNTをまねてCCOUNTとした。
[PR]
by slayer0210 | 2005-12-22 09:59 | マクロ


<< 色に応じて個数を数える(ユーザ... 目次シート作成(イベントマクロ) >>