[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『任意の色つきセル[背景]の値を表示、集計させたい』(頭がパニック)
残念ながら、単純な関数ではできません。
(1)下の式をコピーします
(2)[ツール]メニュー→[マクロ]→[VisualBasicEditor]へ
(3)[挿入]メニュー→[標準モジュール]を選択
(4)コピーした式を貼り付けます。
下のユーザー関数を使えば=FCIS(A1:A5,3)で
セルA1からA5までの赤いセルの値を合計できます。
(kazu)
Function FCIS(adrs, clr)
Dim sm As Integer, ad As Range, fci As Variant
sm = 0
For Each ad In adrs
If ad.Interior.ColorIndex = clr Then
sm = sm + ad.Value
End If
Next
FCIS = sm
End Function
Function FCB(adr)
FCB = adr.Interior.ColorIndex
End Function
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.