セルの塗りつぶしの色ごとに計算(足し算)出来たらいいなぁとは思っていました。
これで合ってるのか解らないが、やってみました。 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 関数の名前はDSUMをまねて『CSUM』とした。
by slayer0210
| 2005-10-18 09:46
| マクロ
|
カテゴリ
以前の記事
フォロー中のブログ
検索
最新のトラックバック
その他のジャンル
ファン
記事ランキング
ブログジャンル
画像一覧
|
ファン申請 |
||