[[20020512232753]] 『任意の色つきセル[背景]の値を表示、集計させたい』(頭がパニック) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『任意の色つきセル[背景]の値を表示、集計させたい』(頭がパニック)


 残念ながら、単純な関数ではできません。

 (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.