各セルに1.03 1.04 1.03 と入力したものを一桁、桁下げすると1.0 1.0 1.0となるのですが、それをそのままsumで合計してしまいますと3.1となります。
これを1.03 1.04 1.03というデータを残しつつ、見たままの1.0 1.0 1.0=3.0という答えを計算させる方法はないでしょうか?
SUM(ROUND(A1,1)+ROUND(A",1)+ROUND(A3,1).....)では追いつかないくらいあるのですが・・(;_+)

このQ&Aに関連する最新のQ&A

A 回答 (2件)

何度もあるようでしたら


良ければ、下のマクロを試してみてください。
合計したいセルを選択(反転)してから
マクロを実行してください。
小数点以下を何ケタにするかをきかれます。
(通常2ケタ)

メーセージで答えが分かります。
もしもどこか指定のセルに答えを
書き込んでよければ変更は可能です。
(表を壊さないように、
今はメッセージのみです)

*セル選択は、連続していても
とびとびの項目(A1とD3と・・等)でもできます。




下をコピーしてください。

Sub 希望小数ケタ合計()
選択範囲 = Selection.Address
小数ケタ = InputBox("小数点以下のケタ数を数字で 1.234 =>1.23 は「2」", "小数ケタ", 2)
For Each 選択セル In Range(選択範囲)
保管 = WorksheetFunction.Round(選択セル, 小数ケタ)
結果 = 結果 + 保管
Next
MsgBox 結果
End Sub




'この上までをコピーしてください。
'マクロの設置方法ですが、ご存知なら以下は無視してください。
'1.新規ブックを開く
'2.ツール-マクロー新しいマクロの記録-OK
'3.表示されたボタンをクリック
'4.ツール-マクロ-マクロ-Macro1選択-編集
'5.画面が表示されたら、内容を消去して
'この上のものと置き換えてください。
'6.エクセルに戻る
'準備完了です。
'実行する時は
'合計したい項目を選択してから
'ツール-マクロ-マクロ-希望小数ケタ合計
'を選択して-実行
'ボタンを作ると1クリックで実行できます。

'何かありましたら質問ください。
    • good
    • 0
この回答へのお礼

ありがとうございます。早速、マクロ保存しました。
今のところ無いですが、これから先、セルが飛んだりする場合があるかもしれないのでこれなら簡単に答えが出ます。
本当にありがとうございます。m(__)m

お礼日時:2002/02/20 13:53

数値がA1~A3に入力されているとすると、


=SUMPRODUCT(ROUND(A1:A3,1))
でどうでしょう?
(配列の計算です)
    • good
    • 0
この回答へのお礼

ありがとうございました。これで楽に計算出来ます。m(__)m

お礼日時:2002/02/20 13:48

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード


人気Q&Aランキング

おすすめ情報

カテゴリ