EXCELで複数の数式を一括で四捨五入にする方法

質問

EXCEL2000です
数式が何十個もあるのですが一括で四捨五入にする方法がわからず、一つずつ四捨五入にする式に入力しなおしています
一括で入力しなおす方法はあるのでしょうか

回答No.3

nishi6 · ベストアンサー

見た目だけなら、セルの表示形式で、
　　小数点以下の桁での四捨五入（数値の小数点以下の桁数の指定）、
　　円(#,###)、千円(#,###,)、百万円(#,###,,)での四捨五入ができます。

下のマクロは、式そのものを指定した桁で四捨五入する算式に書き換えます。
四捨五入の算式に変更したい式が入力された複数セルを選択して下のマクロを実行します。

下のように書き換わります。２桁目を四捨五入した例です。

　=(C12+D12)/D12*100
　　　　↓
　=ROUND((C12+D12)/D12*100,-2)

マクロ中、
　　Const Keta = -2
の『-2』がROUND関数の引数に取り込まれます。状況に合わせて指定してください。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入します。
出てきたコードウインドウに下記マクロをコピーして貼り付けます。
　↓
Sub chgFormula()
　　Const Keta = -2　　　 '// 四捨五入の桁（Round関数の引数）
　　Dim Rng As Range　　　'// セル
　　Dim FML As String　　 '// 式

　　For Each Rng In Selection
　　　　FML = Rng.Formula　　　　　　　　　　　　　'// 式を取り出す
　　　　FML = Right(FML, Len(FML) - 1)　　　　　　 '// 『=』を除去
　　　　FML = "=Round(" & FML & "," & Keta & ")"　 '// 四捨五入の算式を作る

　　　　Rng.Formula = FML
　　Next

End Sub

お礼

ありがとうございました
「マクロ」というものを使えば可能だということが分かりました
勉強して挑戦してみます。ＰＣやソフトに何も影響がなければ良いと思っています

回答No.2

imogasi

・エクセルで書式設定は３０セルでも４０セルでも範囲指定して、一度に１つの書式設定が出来る。
・関数は式の形が同じなら、複写出来るが、基本的には１セル１セル設定です。式の形が違うとどうしようもない。
・見た目だけでよいなら、エクセルの数の書式設定は四捨五入が基本のようなのでそれを使う。
（以下すべてユーザー定義、半角文字）
小数点以下四捨五入　＃
１００の位で四捨五入　＃，
１０００００の位で四捨五入　＃，，
小数点以下３桁で四捨五入　．＃＃
小数点以下２桁で四捨五入　．＃
１、１０、１０００、１００００の桁の四捨五入が難しい
％の利用もあるが％文字が出るのが邪魔。かつて、ある方は％の文字を改行し、行高を狭くする回答を上げられていた。

お礼

ありがとうございました
式の形が違うとどうしようもない。と言う事が分かりました

回答No.1

pinkwithe

セルの書式設定で設定されてはどうですか？
少数以下を四捨五入？１０万の位を四捨五入ですか？

お礼

ありがとうございました
見た目だけでなく、式そのものをできたらいいなと思っています