色なしセルの合計値の出し方について

おせわになります。

縦行のセルのうち、色がついていないセルの
合計値を出したいのですが、どのようにすれば
よいのでしょうか？
どなたかお知恵をお貸しください。

よろしくお願いいたします。

No.2 ベストアンサー 回答者： zap35 回答日時： 2007/07/02 17:52

ユーザ定義関数を使用する方法があります。

以下のマクロをALT＋F11でVBE画面を開き、「VBAProjectエクスプローラのシート名右クリック」→「挿入」→「標準モジュール」で表示される画面にペーストして下さい。

そしてVBE画面を閉じてワークシート画面に戻り、任意のセルに
　=SumColor(A1:A100)
とユーザ定義関数と集計したい範囲を指定して下さい。すると背景色がつけられたセルのみの合計値が得られるはずです。
（範囲は実際のデータ範囲にしてください）

Function SumColor(ByVal trg As Range)
Dim r As Range
　For Each r In trg
　　If IsNumeric(r.Value) And r.Interior.ColorIndex <> xlNone Then
　　　SumColor = SumColor + r.Value
　　End If
　Next r
End Function

ただし制限事項があります。数値を先に入力して、後から背景色を変更しても合計値は自動で変わりません。このときはAlt＋Ctrl＋F9で強制再計算させる必要があります
（後から数値を入力したときは自動的に合計値が変わります）

No.1 回答者： ariakenori 回答日時： 2007/07/02 16:39

言っているあまり意味が解りませんが、

ローマ字入力ならキーボードの
シフトキーを押したまま＝キー（ほ）を1回押して
合計をしたいセルをクリックしていって下さい。
それでいいなら最後にエンターキーを押す。