こんにちは！バックエンドからフロントエンド、そしてExcel VBAの深淵まで知り尽くしたチーフアーキテクトの私です。
マクロの記録を卒業し、いざ本格的な業務自動化ツールを作ろうと意気込んだものの、金額の計算をしたときに「あれ？ 1円合わないぞ……」「最後に `.0000000001` みたいな謎の端数が出るんだけど……」と頭を抱えた経験はありませんか？
今回は、金融系や厳密な数値管理が求められる現場で絶対に知っておくべき「浮動小数点演算の罠と、それを完全無欠に回避するCurrency型・Decimal型の極意」を、優しく、そして本質的なところまで徹底的に解説していきます。
ここをクリアすれば、あなたのVBAスキルは「初心者」から「信頼できるエンジニア」へと確実にステップアップしますよ。バッチリついてきてくださいね！
—
1. なぜ「Double型」で金額計算をしてはいけないのか？
VBAで変数を宣言するとき、なんとなく `Dim total As Double` と書いていませんか？ 実はこれが、金融計算において最大の禁忌です。
パソコンは「小数」が大嫌い
私たちが普段使っている「10進数（0.1, 0.2など）」を、コンピュータは「2進数（0と1の組み合わせ）」に変換して計算しています。
ここで悲劇が起きます。10進数の「0.1」は、2進数に直すと「無限に続く循環小数」になってしまうのです。
円周率が「3.141592…」と無限に続くように、コンピュータも途中で数値を「四捨五入（丸め）」して保存せざるを得ません。その結果、次のような恐ろしい現象が起きます。
Sub CheckDoubleError()
Dim a As Double
Dim b As Double
a = 0.1
b = 0.2
‘ 0.1 + 0.2 は 0.3 になるはず……？
If (a + b) = 0.3 Then
MsgBox “一致しました！”
Else
‘ なんと、こちらが実行されてしまう！
MsgBox “誤差が発生しました！ 値は ” & (a + b) & ” です”
End If
End Sub
メッセージボックスに表示されるのは `0.3` ではなく、`0.30000000000000004` といった不気味な数値です。
お小遣い帳なら笑って済むかもしれませんが、これが企業の給与計算や請求書システムだったら大問題ですよね。この誤差の蓄積こそが、現場を崩壊させる「浮動小数点演算の呪い」なのです。
—
2. 金融計算の救世主：Currency型とは？
この誤差問題を鮮やかに解決するのが、VBAに標準で用意されている「Currency（通貨）型」です。
Currency型が最強である理由
- 内部構造の秘密: Currency型は、数値を「小数点以下4桁までの固定小数点」として整数で管理します。要するに、内部的には値を「10,000倍した整数」として扱っているため、10進数特有の計算誤差が絶対に発生しません。
- 扱える範囲: 整数部が15桁、小数部が4桁。最大で「922兆円」まで扱えるため、日本国内のビジネスであればオーバースペックなほど十分です。
基本的な書き方
Currency型を宣言するには、型名を書くか、型文字の `@` を使います。
Dim price As Currency
price = 1280@ ‘@を付けるとCurrency型として即座に解釈される
—
3. さらに巨大な数値を！裏技的データ型「Decimal型」
「922兆円じゃ足りない！ 国家予算レベルの計算がしたい！」あるいは「もっと細かい小数点以下の桁数が必要だ！」という極稀なケース（あるいは厳格な財務監査ツールなど）では、Decimal型の出番です。
実は、VBAの `Dim x As Decimal` という構文は、そのままでは直接書くことができません（バリアント型を経由する必要があります）。そのため、少し特殊な書き方をします。
Dim decVal As Variant
decVal = CDec(123456789.12345)
`CDec` 関数を使うことで、小数点以下28桁までの超高精度な計算が可能になります。ただし、Currency型に比べて動作がわずかに重くなるため、日常の業務自動化であれば Currency型を第一選択 にするのがプロの知見です。
—
4. 【実践】誤差ゼロ！信頼の金融系計算ツールを実装する
それでは、ここまでの知識を総動員して、実務でそのまま使える「消費税・源泉徴収税を考慮した厳密な見積り計算ツール」のコードを書いてみましょう。
以下のコードをVBAの標準モジュールに貼り付けて実行してみてください。
Option Explicit
Sub CalculateInvoiceWithCurrency()
‘ — 1. 変数の宣言 (すべてCurrency型で統一) —
Dim unitPrice As Currency 2000 単価
Dim quantity As Long ‘ 数量 (整数なのでLong型)
Dim subtotal As Currency ‘ 小計
Dim taxRate As Currency ‘ 消費税率 (10%)
Dim taxAmount As Currency ‘ 消費税額
Dim totalAmount As Currency ‘ 総合計
‘ — 2. 値の代入 —
unitPrice = 1280@ ‘ 1280円
quantity = 3 ‘ 3個
taxRate = 0.1@ ‘ 10%
‘ — 3. 計算処理 (誤差は一切発生しない) —
subtotal = unitPrice quantity
taxAmount = subtotal taxRate
‘ 小数点以下の端数処理 (今回は切り捨ての例：Int関数を使用)
‘ ※厳密な四捨五入には Round関数 ではなく、ビジネスロジックに応じた調整が必要です
taxAmount = Int(taxAmount)
totalAmount = subtotal + taxAmount
‘ — 4. 結果の出力 —
Debug.Print “———————————-”
Debug.Print “【お見積り計算書 (Currency型)】”
Debug.Print “小計: ” & Format(subtotal, “#,
0″) & ” 円”
Debug.Print “消費税: ” & Format(taxAmount, “#,
0″) & ” 円”
Debug.Print “合計金額: ” & Format(totalAmount, “#,
0″) & ” 円”
Debug.Print “———————————-”
MsgBox “計算が正常に完了しました。イミディエイトウィンドウを確認してください。”, vbInformation
End Sub
コードのポイント
1. 型を混在させない: 計算に関わる金額データは、すべて `Currency` 型で統一しています。途中で `Double` が混ざると、その瞬間に誤差のウイルスが感染するので注意しましょう。
2. `Format` 関数の活用: 出力時に `Format(subtotal, “#,
0″)` を使うことで、カンマ区切りの綺麗な金額表示に整えています。
—
5. 陥りやすい罠：セルの値とのやり取りにおける注意点
Excelのセルから値を取得するとき、VBA側で型を意識しないと、思わぬ罠にハマります。
‘ 悪い例
Dim myMoney As Currency
myMoney = Range(“A1”).Value ‘ セルが空白だったり、文字列が入っていると型不一致エラーの元！
‘ 良い例 (安全な型変換)
Dim myMoney As Currency
myMoney = CCur(Range(“A1”).Value)
セルから数値を取り出すときは、`CCur()` 関数（Currency型への明示的な変換）を使うのが、堅牢な（バグりにくい）マクロを書くためのシニアエンジニアの鉄則です。セルが空欄であっても `0` に変換して安全に処理してくれます。
—
まとめ：今日から使える設計基準
ここまでの内容をまとめます。
- 通常のカウンターやループ変数: `Long` 型
- 通常の計算や統計データ: `Double` 型
- お金、税金、数量×単価など「1円の狂いも許されない」データ: `Currency` 型
「たかが小数点、されど小数点」。このデータ型の選択ひとつで、あなたの作ったマクロの信頼性は天と地ほどの差が出ます。
ここをクリアしたあなたなら、もう「マクロの記録を微修正するだけの人」ではありません。実務で頼られる「自動化エンジニア」への道を確実に歩んでいますよ。
次の業務ツール作成では、ぜひ `Currency型` をスマートに使いこなしてみてくださいね！
