エクセル-計算式以外の数値のみを合計

質問

エクセルで、合計範囲内に数値と計算式がある
場合、数値のみを合計するにはどうしたらいいで
しょうか。現在は、ＣＯＴＲＬキーで、数値のみを
手動で範囲選択していすが、数値のセルが計算式に
変わっても対応できるように、関数などで指定を
したいと思います。

　対象となる表は以下の通りです。
　　　＊横に製品名・縦に日付、製品ごとの日々の
　　生産数を入力、１ヶ月分を１シートとする。
　　　＊さらに、１週間毎に２列挿入。１つは生産数
　　　の合計、もう一つは全生産数の％。
　　　＊表の右端には製品ごとの１月分の合計を
　　表示←この部分に入れる計算式が質問内容です。

回答No.1

Wendy02 · ベストアンサー

ユーザー定義関数はいかがですか？

ツール－マクロ－Visual Basic Editor
挿入－標準モジュール
で、
Function nonFormula_Sum(ByVal 範囲 As Range)
　Dim c As Range
　Dim myTotal As Double
　For Each c In 範囲
　　If VarType(c) = vbDouble Then
　　　If Not c.HasFormula Then
　　　　myTotal = myTotal + c.Value
　　　End If
　　End If
　　nonFormula_Sum = myTotal
　Next c
End Function

閉じたら、ふつうと同じ関数のように、
=nonFormula_Sum(A1:A10)
というようにすればよいです。

関数名が、長くてわずらわしいようでしたら、置換して、変えてしまってくだ
さい。最初のFunction の行と、最後から３行目を書き換えても良いです。

お礼

上手くいきました！！
ユーザー定義関数は今まであまり使ったことがなかった
のですが、大変勉強になりました。

　ありがとうございます。

回答No.2

subri

A1から右に
１　２　=SUBTOTAL(9,A1:B1)　３　４　=SUBTOTAL(9,D1:E1)　=SUBTOTAL(9,A1:F1)
と入力してみてください。
C1とF1を小計、G1を総合計に見立てています。

SUBTOTALで引数を9にすると、範囲の合計を返しますが、
範囲にSUBTOTALで帰った合計のセルが含まれると、
それは無視します。

お礼

ご回答ありがとうございます。
申し訳ありませんが、ちょっと希望している結果とは
異なるようです。私の理解不足だとは思いますが。