Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


44081 / 76732 ←次へ | 前へ→

【37674】Re:四捨五入値の合計方法
発言  Blue  - 06/5/15(月) 11:02 -

引用なし
パスワード
   標準ではないんでしょうかね?(知らないだけかもしれませんが)

VBA(マクロ)を使えば、自作の関数をつくることはできます。

メニューバーのツール→マクロ→Visual Basic Editor
でマクロ作成画面に行き、

メニューの挿入→標準モジュール

で開いた画面に、下記のコードをコピペ。

'* ここから **********************
Public Function ROUNDSUM(ByVal target As Range, ByVal digits As Double) As Double
  Dim r As Range
  
  For Each r In target
    ROUNDSUM = ROUNDSUM + WorksheetFunction.Round(r, digits)
  Next
End Function
'* ここまで **********************

で、セルに式

= ROUNDSUM(A1:A5,0)

と入れると 11 とでます。
0 hits

【37669】四捨五入値の合計方法 t29x0479 06/5/15(月) 10:08 質問
【37671】Re:四捨五入値の合計方法 Blue 06/5/15(月) 10:18 質問
【37672】Re:四捨五入値の合計方法 t29x0479 06/5/15(月) 10:19 質問
【37674】Re:四捨五入値の合計方法 Blue 06/5/15(月) 11:02 発言
【37675】Re:四捨五入値の合計方法 ichinose 06/5/15(月) 11:12 発言

44081 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free