すべてのカテゴリ » インターネット・パソコン » ソフトウェア » 使い方・不具合

質問

終了

エクセル2003で
①色の付いたセルのみの合計
②太字のセルのみの合計
を行う方法はありますか?

並び替え:

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

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!からのお知らせ

一覧を見る