ユーザー定義関数(色合計)

セルの塗りつぶしの色ごとに計算(足し算)出来たらいいなぁとは思っていました。
これで合ってるのか解らないが、やってみました。

Function CSUM(範囲 As Range, 色見本 As Range) As Double
Dim kazu As Double
Dim myran As Range
Dim iro As Integer
 iro = 色見本.Interior.ColorIndex
 kazu = 0
 For Each myran In 範囲
   If myran.Interior.ColorIndex = iro Then
     kazu = kazu + myran.Value
  End If
 Next
CSUM = kazu
End Function
e0080122_9451772.gif

関数の名前はDSUMをまねて『CSUM』とした。
[PR]
by slayer0210 | 2005-10-18 09:46 | マクロ


<< 連続データ作成 アクティブなシート名で保存 >>