Excel VBAを掌握する極限の知見：型変換関数（CInt, CLng, CDbl）の落とし穴とオーバーフロー対策
開発現場で最も恐ろしい瞬間の一つは、運用開始から数ヶ月経った巨大な自動化ツールの締め日処理で、突然「オーバーフローしました。（エラー 6）」が突発的に発生することだ。
原因を辿ると、大抵犯人は `CInt` や `CLng` といった「安易な型変換」にある。
「動くからいいや」と書かれたそのコードは、データ量が増大する未来や、外部から予期せぬ文字列が飛んでくる現実の業務を想定していない。
今回は、VBAにおける数値の型変換と、メモリ・オブジェクトの挙動の裏側を紐解きながら、二度と実行時エラーを起こさない「堅牢なプロダクションコードの設計手法」を叩き込む。
—
なぜ `CInt` は地雷なのか？メモリと型の境界線
VBAの数値型変換関数（`CInt`, `CLng`, `CDbl` など）は、一見するとただの「型の見た目を変える関数」に見える。しかし、扱うデータ型の物理的なサイズを理解していなければ、それは時限爆弾をコードに埋め込んでいるようなものだ。
1. Integer型（CInt）の限界：32,767の呪縛
`CInt` が返すのは 16ビット（2バイト）の `Integer` 型である。表現できる範囲は -32,768 から 32,767 まで。
現代の業務データにおいて、売上金額、伝票行数、ID、在庫数が「3万2千」を超えることは日常茶飯事である。
- 「テスト時は件数が少なかったから動いた」
- 「月次処理でデータが倍増したら突如止まった」
この現象を引き起こす元凶が `CInt` である。開発では原則として `CInt` の使用を禁止し、32bit（4バイト）の領域を持つ `CLng`（Long型）を標準とすべきだ。
2. 暗黙の型変換（Variant）という見えないコスト
VBAで最も多い悪習が、変数を省略して `Variant` 型のまま計算させ、最後に `CInt` で丸める手法だ。
`Variant` は内部で型を動的に判断するため、メモリのオーバーヘッドが大きく、ループ処理内ではパフォーマンスが劇的に低下する。さらに、予期せぬNullや空文字が混入した際のエラーハンドリングが極めて曖昧になる。
—
現場で必ず起きる「3大トラブルパターン」
実務の現場で発生する型変換にまつわるトラブルは、主に以下の3パターンに集約される。
1. データ件数・金額のオーバーフロー
- `CLng` で足りると思っていた計算結果が、数百万の積算により `Long` の限界（約21億）を超える。
2. 外部データ（CSV / Excel / DB）の文字列混入
- 数値であるべきセルに「N/A」「-」「全角スペース」「空欄」が混ざっており、型変換時に「型が一致しません（エラー 13）」で即死する。
3. 四捨五入の罠（バンクヤード丸め）
- `CInt` や `CLng` は、単なる切り捨てではなく、JIS丸め（偶数丸め）を行う。財務計算などで致命的なズレを生む。
—
堅牢な設計：安全なキャストとバリデーションの極意
安全な処理を実現するための鉄則は、「変換する前に検証し、適切な型へエスカレーションする」ことだ。
- 整数はすべて `Long` (CLng) を使う（16bitの `Integer` はGUIの座標やループの極小カウンター以外で使う必要はない）。
- 小数は `Double` (CDbl) を使い、通貨や厳密な計算は `Currency` 型を検討する。
- 外部からの入力値は必ず `IsNumeric` 等でガードし、直にキャストしない。
—
コピペで使えるプロダクションコード例
以下に、実務のデータ集計・CSV取込などを想定した、頑健な型変換ラッパー関数および処理のサンプルコードを提示する。エラーで止まらない、保守性の高い設計を体感してほしい。
Option Explicit
‘ ==============================================================================
‘ 処理名: 堅牢なデータ集計・型変換サンプル
‘ 概要: 外部からの不正値やオーバーフローを完全にブロックし安全に計算を行う
‘ ==============================================================================
Public Sub ExecuteRobustCalculation()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row
If lastRow < 2 Then MsgBox "処理対象データが存在しません。", vbExclamation Exit Sub End If Dim targetRange As Range Set targetRange = ws.Range("B2:B" & lastRow) ' B列に数値、C列に単価があると仮定 Dim cell As Range Dim safeQty As Long Dim safePrice As Currency ' 精度を保つため通貨型を使用 Dim totalAmount As Currency totalAmount = 0 Dim errorCount As Long errorCount = 0 ' 画面描画停止による高速化 With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With On Error GoTo ErrorHandler For Each cell In targetRange ' 1. 【ガード節】数値判定を行い、ゴミデータによる「型不一致エラー」を事前回避 If IsNumeric(cell.Value) And Not IsEmpty(cell.Value) Then ' 2. 【安全なキャスト】CIntは使わず、より大きな範囲を扱えるCLngを使用 ' さらにオーバーフローの危険性を検知するため独自の安全関数を通す safeQty = SafeCLng(cell.Value) ' 3. 小数点や金額データに対するCDbl/Currencyの適用 safePrice = SafeCCur(cell.Offset(0, 1).Value) ' 計算実行（Long × Currency = Currency） totalAmount = totalAmount + (safeQty safePrice) Else ' 不正データはカウントしてログ等に残す（処理は中断させない） errorCount = errorCount + 1 End If Next cell ' 結果出力 MsgBox "集計完了！" & vbCrLf & _ "総額: " & Format(totalAmount, "#,
0円”) & vbCrLf & _
“除外された不正データ件数: ” & errorCount & “件”, vbInformation
CleanUp:
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
‘ ==============================================================================
‘ 独自安全キャスト関数: Long型への安全な変換（オーバーフロー対策）
‘ ==============================================================================
Private Function SafeCLng(ByVal rawValue As Variant) As Long
On Error GoTo OverflowHandler
‘ VariantからDouble等へ一度受けてから判定、または直接CLng
Dim dblVal As Double
dblVal = CDbl(rawValue)
‘ Longの上下限を超えている場合はクランプするかデフォルト値を返す設計にする
If dblVal > 2147483647# Or dblVal < -2147483648# Then
' 限界値を超える場合のビジネスロジック（今回は0とするか最大値にするか）
SafeCLng = 0
Exit Function
End If
SafeCLng = CLng(dblVal)
Exit Function
OverflowHandler:
' 万が一のオーバーフロー捕捉
SafeCLng = 0
End Function
' ==============================================================================
' 独自安全キャスト関数: Currency型への安全な変換
' ==============================================================================
Private Function SafeCCur(ByVal rawValue As Variant) As Currency
If IsNumeric(rawValue) And Not IsEmpty(rawValue) Then
' 最大値チェックなどをここに挟む
SafeCCur = CCur(rawValue)
Else
SafeCCur = 0
End If
End Function
---
アーキテクトからの提言
コードの品質は、「正常系がうまく動くこと」ではなく、「異常系（ゴミデータ、巨大データ、予期せぬ型）が飛び込んできたときに、いかにシステムを優雅に守り抜くか」で決まる。
`CInt` や `CLng` を思考停止で使うのではなく、
1. そのデータは本当にその型に収まるのか？
2. 外部からの入力をそのまま信じていないか？
3. エラーが起きたときに全体の処理を巻き込んでクラッシュしないか？
この3点を常に自問自答し、今回紹介したガード節と堅牢なラッパー関数の設計思想をあなたのプロジェクトに標準装備してほしい。それこそが、プロフェッショナルなVBAエンジニアの仕事である。
