エクセル2003で①色の付いたセルのみの合計②太字のセルのみの合計を行う方法はありますか？|質問・相談が会員登録不要のQ&AサイトSooda!(ソーダ)

標準の関数ではできませんのでユーザ定義関数を作ります。

ALT＋F11でVBE画面を開きます。
左側のツリー上のVBA Project下のシート名を右クリックし、
[挿入]→[標準モジュール]　で開いた画面に以下の関数を貼り付けます。

Function COLsum(ByVal 範囲, 見本 As Range) As Double
Dim r As Range
For Each r In 範囲
If r.Interior.ColorIndex = 見本.Cells(1, 1).Interior.ColorIndex Then
If IsNumeric(r.Value) Then
COLsum = COLsum + r.Value
End If
End If
Next r
End Function

Function BOLsum(ByVal 範囲) As Double
Dim r As Range
For Each r In 範囲
If r.Font.Bold = True Then
If IsNumeric(r.Value) Then
BOLsum = BOLsum + r.Value
End If
End If
Next r
End Function

①セルの色で集計するとき
　ワークシート画面を開き、
　=COLsum(範囲,背景色のセル)
　と入力します。

　"範囲"とは、合計したいセルの範囲を指定します。
　"背景色のセル"は、あらかじめどこかのセルを、
　合計したい背景色で塗っておき、そのセルを選択します。

②太字のセルを集計するとき
　=BOLsum(範囲)
　と入力します。
　"範囲"とは、合計したいセルの範囲を指定します。

※セルの色や文字の太さを後から変えた場合は自動計算されません。
この場合はALT＋Ctrl＋F9で再計算されます。

回答者：タリラリラン (質問から6時間後)
3

質問

回答

関連する質問・相談

Sooda!からのお知らせ