Excel(エクセル) VBA入門：色付きのセルを数える/合計する

• Excelの一般的な関数では塗りつぶしたセルの個数や数値の合計をすることができません。
  ここではユーザー定期関数を作成して塗りつぶしたセルの個数や合計を計算してみたいと思います。

ユーザー定義関数を作成する　　　Topへ

• [Alt]+[F11]でVBEを開きます。
  標準モジュールに下表のようなコードを入力します。
  ここでは　Colorプロパティを利用していますので、Excel2007以降で利用できます。なお、Excel2003以前ならColorIndexが利用できます。
  • なお、条件付き書式で設定された色については計算されませんのでご了解ください。

  Function ColorCount(R1 As Range, C As Range) 　　Dim r As Range 　　Application.Volatile 　　ColorCount = 0 　　For Each r In R1 　　　　If r.Interior.Color = C.Interior.Color Then 　　　　　　ColorCount = ColorCount + 1 　　　　End If 　　Next r End Function

  • VBEの画面は下図のようになります。
    
• 実行例
  • 求めるセルに　=ColorCount(B2:B17,D2) と入力しています。
    カウントする対象のセル範囲が　B2:B17、セルの塗りつぶしの色(条件とする色)のセルを　D2　とした例です。
    A列はB列のセルのColorの値を表示しています。説明用ですので計算には何も影響していません。
    

• 同じ色のセルの値の合計を計算したいときは?

  • コードの例
    

    Function ColorSum(R1 As Range, C As Range) 　　Dim r As Range 　　Application.Volatile 　　ColorSum = 0 　　For Each r In R1 　　　　If r.Interior.Color = C.Interior.Color Then 　　　　　　ColorSum = ColorSum + r.Value 　　　　End If 　　Next r End Function

  • コードの実行例
    

スポンサードリンク

PageViewCounter
　
　Since2006/2/27