VBAにおけるRound関数の真実と正しい数値制御の極意
Excel VBAで数値計算を行う際、避けて通れないのが「端数処理」です。多くの開発者が組み込み関数である「Round関数」を安易に使用し、後に「なぜか金額が1円合わない」「期待した結果と異なる」といったバグに頭を悩ませます。
本記事では、VBAにおけるRound関数の仕様、なぜ多くのエンジニアが罠に陥るのか、そして実務で求められる正確な数値制御の手法について、ベテランの視点から徹底的に解説します。
VBAのRound関数が抱える「銀行丸め」という特性
まず、最も重要な事実からお伝えします。VBAのRound関数は、私たちが小学校の算数で習った「四捨五入」とは異なる挙動をします。
VBAのRound関数は「銀行丸め（Banker’s Rounding）」または「偶数丸め」と呼ばれるアルゴリズムを採用しています。具体的には、端数が「0.5」ちょうどの場合、最も近い偶数に丸められるという仕様です。
例えば、Round(2.5, 0)の結果は「2」となり、Round(3.5, 0)の結果は「4」となります。これは、統計学的な誤差を最小限に抑えるための国際的な標準規格（IEEE 754）に基づくものですが、日本の商習慣や経理業務においては「四捨五入（0.5以上は切り上げ）」が一般的であるため、この挙動は致命的な不整合を引き起こします。
なぜ「四捨五入」を自分で実装すべきなのか
VBAで四捨五入を実現するには、標準のRound関数をそのまま使うのではなく、ワークシート関数の「Application.WorksheetFunction.Round」を利用するか、あるいは算術的に数式を組み替える必要があります。
VBAのRound関数は「引数の数値を偶数に寄せる」という強力なバイアスを持っています。この特性を理解せずに「四捨五入できるはずだ」という思い込みでコードを書き進めると、データの件数が増えるほど計算結果の累積誤差が大きくなり、最終的な決算数値や見積書の金額で致命的な差異が生じます。
プロフェッショナルなエンジニアは、言語仕様を鵜呑みにせず、業務要件が「四捨五入」なのか「切り捨て」なのか「切り上げ」なのかを明確に定義し、それに合致したロジックを自ら実装します。
実務で使える四捨五入・切り捨て・切り上げのサンプルコード
以下に、VBAで正確に端数処理を行うための汎用的なモジュール例を提示します。これらは、ワークシート関数を呼び出す方法と、算術計算で行う方法の双方を網羅しています。
' ---------------------------------------------------------
' 汎用的な端数処理モジュール
' ---------------------------------------------------------
' 1. ワークシート関数のRoundを利用した四捨五入
' ※これはExcelのセルで行う「四捨五入」と完全に一致します
Public Function RoundStandard(ByVal TargetValue As Double, ByVal Digits As Integer) As Double
RoundStandard = Application.WorksheetFunction.Round(TargetValue, Digits)
End Function
' 2. 算術演算による四捨五入（Int関数を利用）
' 負の数にも対応した汎用ロジック
Public Function MyRound(ByVal TargetValue As Double, ByVal Digits As Integer) As Double
Dim multiplier As Double
multiplier = 10 ^ Digits
MyRound = Fix(TargetValue * multiplier + Sgn(TargetValue) * 0.5) / multiplier
End Function
' 3. 切り捨て（Truncate）
Public Function RoundDown(ByVal TargetValue As Double, ByVal Digits As Integer) As Double
Dim multiplier As Double
multiplier = 10 ^ Digits
RoundDown = Fix(TargetValue * multiplier) / multiplier
End Function
' 4. 切り上げ（RoundUp）
Public Function RoundUp(ByVal TargetValue As Double, ByVal Digits As Integer) As Double
Dim multiplier As Double
multiplier = 10 ^ Digits
If TargetValue > 0 Then
RoundUp = Int(TargetValue * multiplier + 0.9999999999) / multiplier
Else
RoundUp = Fix(TargetValue * multiplier - 0.9999999999) / multiplier
End If
End Function
浮動小数点演算の落とし穴とCurrency型の活用
数値制御において、もう一つ重要なのが「データ型」の選択です。VBAでDouble型を使用すると、コンピュータの内部表現（2進数）に起因する微細な誤差（0.1が0.0999999999999998になる等）が発生します。
この誤差がある状態でRound関数を通すと、本来「0.5」であるはずの数値が「0.499999999999999」と判定され、切り捨て処理が働いてしまうという悲劇が起こります。
これを防ぐためのベストプラクティスは、金額計算のような厳密さが求められる場面では「Currency型」を使用することです。Currency型は小数点以下4桁までを固定小数点として保持するため、Double型で発生するような浮動小数点誤差を回避できます。
実務においては、計算過程ではDouble型を避け、可能な限りDecimal型やCurrency型にキャストしてから計算を行うのが、プロのエンジニアとしての鉄則です。
実務アドバイス：仕様書に「丸めルール」を明記せよ
システム開発の現場において、数値の丸めルールは「仕様」の一部です。クライアントや経理担当者から「端数を処理しておいて」と言われた場合、必ず以下の点を確認してください。
1. どのタイミングで丸めるか（計算の都度か、合計に対してか）
2. どの桁で丸めるか（整数か、小数点以下か）
3. どのようなルールで丸めるか（四捨五入、切り捨て、切り上げ）
これらが曖昧なまま開発を進めると、後工程での手戻りが非常に大きくなります。特に消費税計算や按分計算では、たった1円の差異がシステム全体の信頼性を損なうことにつながります。
また、VBAのコード内には、なぜその丸め関数を採用したのか、コメントを必ず残してください。「VBAのRound関数は銀行丸めのため、業務要件に合わせてワークシート関数を使用」といった短いコメントがあるだけで、後任のエンジニアや数年後の自分自身が、そのコードの意図を即座に理解できるようになります。
まとめ
VBAのRound関数は、その仕様を正しく理解していれば強力なツールになりますが、無知なまま使用すればバグの温床となります。
* VBAのRound関数は「偶数丸め（銀行丸め）」であるという事実を常に意識する。
* 業務上の四捨五入が必要な場合は、Application.WorksheetFunction.Roundを使用する。
* 金額計算にはDouble型を避け、Currency型を活用する。
* 端数処理ルールを仕様として明確化し、コード内に意図を明記する。
プログラミングとは、単にコードを書くことではなく、コンピュータの特性を理解し、業務の要件を正確に変換する作業です。VBAという古くからある言語であっても、その挙動の裏側にある理論を理解しているかどうかが、エンジニアとしての価値を決定づけます。
本稿で解説した丸め処理の知識を武器に、ぜひ堅牢で信頼性の高いシステムを構築してください。あなたの書くコードが、誰かの業務を正確に支えるものとなることを期待しています。
