エクセルで太字だけの合計を出したい！

エクセルで表を作っているのですが、合計を出す際に太字にしたセルだけを合計する事は可能ですか？

現状としてはオートフィルタを使い、セルC21＝SUBTOTAL（109、C3:C20）としております。C7、C11、C12、C19を太字にしており、この合計を出したいのです。
太字の間隔は不規則で、行の追加・標準文字への変更の可能性もあります。

宜しくお願します！

No.4 ベストアンサー 回答者： shikisaito 回答日時： 2008/12/14 07:13

> ただ、この方法だとオートフィルタで合計が表示されません。

1. セルD3:D20を選択して（セルD3をアクティブセルとすること）、
　[挿入]-[名前]-[定義]で、[名前]に「bold」を、[参照範囲]に
　「=GET.CELL(20,Sheet1!C3)+NOW()*0」を、それぞれ入力して[OK]。
2. （セルD3:D20選択状態のまま、)
　「=C3*bold」と入力して、[Ctrl]+[Enter]。
3. セルC21に「=SUBTOTAL(109,D3:D20)」を入力して、[Enter]。

この回答へのお礼

ご連絡が遅くなり、すいませんm(__)m
出来ました！有難う御座いました！！

お礼日時：2008/12/15 10:58

No.3 回答者： shikisaito 回答日時： 2008/12/12 22:57

1. セルD3:D20を選択して（セルD3をアクティブセルとすること）、

　[挿入]-[名前]-[定義]で、[名前]に「bold」を、[参照範囲]に
　「=GET.CELL(20,Sheet1!C3)+NOW()*0」を、それぞれ入力して[OK]。
2. （セルD3:D20選択状態のまま、)
　「=bold」と入力して、[Ctrl]+[Enter]。
3. セルC21に「=SUMIF(D3:D20,1,C3:C20)」を入力して、[Enter]。

ただし、書式（標準・太字）の変更だけでは再計算されませんので、
[F9]キーを押してください。

この回答への補足

ありがとうございます！
ただ、この方法だとオートフィルタで合計が表示されません。
やはり、マクロ（ＶＢＥ）じゃないと無理ですか？
素人なのでマクロはちょっと・・・

補足日時：2008/12/13 09:00

No.2 回答者： mt2008 回答日時： 2008/12/12 10:31

Excelの関数では、太字になっているかどうかは判りません。

ユーザ関数を使用して良いのなら、

Function fSample(rTarget As Range) As Boolean
　fSample = False
　If rTarget.Count > 1 Then Exit Function
　fSample = rTarget.Font.Bold
End Function

↑の様なユーザ関数を使えば、対象セルが太字がどうかは判りますので、空いている列でこのユーザ関数を使用して判定を行い、後は太字と判定された行のセルの合計をSUMIF　あたりを使用して出せば良いかと。

ただし、条件付書式で太字にした太字はこのユーザ関数では判りません。

例：
D3に　=fSample(C3) を入れてD20までコピー
太字の合計　=SUMIF(D3:D20,TRUE,C3:C20)

No.1 回答者： mu2011 回答日時： 2008/12/12 10:27

一例です。

太字行の別列に固定文字列が定義できれば、ワークシート関数で合計する事が可能です。（書式で行う場合はＶＢＡを組み込む事になります）

仮に太字行にＤ列に"小計"と設定すれば、=SUMIF(D:D,"小計",C:C)