こんにちは！VBAのスキルを次のステージへと引き上げる旅へようこそ。
「マクロの記録」から一歩踏み出し、自分でコードを書くようになると、避けて通れないのが「型（Data Type）」の話です。そして、その型を意図的に変換する型変換関数（CInt, CLng, CDblなど）は、実務の自動化においてなくてはならない強力な武器になります。
しかし、この型変換関数、実は数多くの開発者を泣かせてきた「知られざる落とし穴」が潜んでいるんです。
「昨日まで動いていたマクロが、処理するデータが増えた途端に止まった…」
「原因不明の『オーバーフローしました』というエラーに頭を抱えている…」
そんな悩みを抱えていませんか？大丈夫、今日ここでその仕組みを完全に理解してしまえば、もうエラーに怯える必要はありません。
今回は、実務の計算処理を例に、安全なキャスト（型変換）の方法と、エラーを未然に防ぐチェックロジックを、優しく、そして深く解説していきます。ここをクリアすれば、あなたのVBAスキルは確実にプロの領域へ近づきますよ！
—
1. なぜ型変換（CInt, CLng, CDbl）が必要なのか？
Excelのセルに入力されているデータは、見た目が数字であっても、VBAから見ると「文字列（String）」として扱われていることがよくあります。
例えば、ユーザーがフォームに入力した値や、外部から読み込んだCSVの数値を使って計算をしようとしたとき、VBAは混乱します。
‘ セルA1に「10」、セルB1に「20」が入っているとする
Dim result As Long
result = Range(“A1”).Value + Range(“B1”).Value
「あれ？これ普通に動くじゃん」と思いましたね？ 実はExcelの `.Value` は、セルの書式や状態によってVariant型としてよしなに計算してくれることが多いのです。
しかし、以下のようなケースではどうでしょう。
- 文字が混ざっているかもしれないデータを計算する
- 消費税率（1.10など）を掛け算した結果を、小数点も含めて厳密にコントロールしたい
- 大量のデータをループ処理で高速に集計する
ここで、VBAに「今からこのデータをこの型として扱いますよ」と明確に教えるために使うのが、型変換関数です。
主要な型変換関数の特徴と「扱える数字の範囲」
まずは、今回主役となる3つの関数の違いを整理しておきましょう。ここがオーバーフロー対策の第一歩です。
| 関数名 | 変換先の型 | 扱える数値の範囲（メモリの大きさ） | 主な用途 |
| :— | :— | :— | :— |
| `CInt` (Convert to Integer) | Integer型（整数） | -32,768 ～ 32,767 | 小規模なループカウンタ、IDなど |
| `CLng` (Convert to Long) | Long型（長整数） | -2,147,483,648 ～ 2,147,483,647 | 金額、件数、行番号など実務のほとんど |
| `CDbl` (Convert to Double) | Double型（倍精度浮動小数点数）| 非常に大きな実数（小数点も可） | 単価計算、税計算、確率など |
「あれ、Integerってよく見かけるから使えばいいや」と思っていませんか？
ここに最初の大きな落とし穴があります。現代のビジネスデータにおいて、`CInt` が扱える「32,767」という上限はあまりにも小さすぎます。 売上金額の計算などで `CInt` を使ったが最後、データが少し増えただけで容赦なく「オーバーフロー」を引き起こすのです。
—
2. 恐怖の「オーバーフロー」：実際のトラブル事例
実務でよくある、こんなコードを見てみてください。
Sub BadExample()
Dim totalSales As Integer
‘ セルにある「50,000円」の売上を足し込もうとする
totalSales = CInt(Range(“A1”).Value) ‘ ←ここで一発アウト！
MsgBox “合計売上：” & totalSales
End Sub
セル `A1` の値が `50,000` だとします。
`CInt` 関数は「32,767」までしか扱えないため、50,000をねじ込もうとした瞬間、VBAは「エラー 6: オーバーフローしました」と叫んで処理を強制終了させます。これが、型変換におけるオーバーフローの正体です。
小数点の扱いの罠（四捨五入の仕様）
もう一つの罠が、整数系（`CInt` や `CLng`）に小数を変換するときの挙動です。
VBAの型変換関数は、「四捨五入」ではなく「銀行丸め（偶数丸め）」を行います。
- `CInt(1.5)` ➔ `2` になる
- `CInt(2.5)` ➔ `2` になる（えっ！？）
端数処理の仕様を知らずに `CInt` や `CLng` を使っていると、意図しない金額のズレ（1円の誤差など）を生む原因になります。正確な計算が必要な場合は `CDbl` や `CCur`（通貨型）を使い、必要に応じて `WorksheetFunction.Round` などを併用するのが安全です。
—
3. 実務で使える！安全なキャストとエラー回避のチェックロジック
では、一体どう書けば安全なのでしょうか？
「エラーが起きるかもしれないデータ」を扱うときは、①型を `Long` などの十分な大きさにし、②変換前にチェックを入れる（あるいはエラーハンドリングを行う）のがプロの作法です。
以下に、実務の「売上集計処理」を想定した、堅牢（ロバスト）なコードを用意しました。
Sub SafeTypeConversionDemo()
Dim rawData As Variant
Dim safeSales As Long
‘ セルA1からデータを取得（文字列や空欄かもしれない）
rawData = Range(“A1”).Value
‘ 1. 「そもそも数値か？」を判定する (IsNumeric関数)
If IsNumeric(rawData) And Not IsEmpty(rawData) Then
‘ 2. 数値であっても、Long型の範囲内（-21億〜+21億）収まるかチェック
‘ ※CDblで安全に実数として受けてから範囲チェックを行うのがコツ
If CDbl(rawData) >= -2147483648# And CDbl(rawData) <= 2147483647# Then
' 安全にLong型にキャスト
safeSales = CLng(rawData)
' 計算処理を続行
MsgBox "安全に変換できました！ 売上: " & safeSales, vbInformation
Else
MsgBox "値が大きすぎるか、小さすぎて扱えません。", vbExclamation
End
Else
MsgBox "セルA1に入力されているのは数値ではありません。", vbCritical
End If
End Sub
このコードの優れたポイント
1. `Variant` で一度受ける: どんなデータが入っているか分からないセルから値を取得するときは、最初の器を `Variant` にしておくことで、型ミスマッチによる即死を防ぎます。
2. `IsNumeric` で事前チェック: 文字列の「あいうえお」や空白が混ざっていても、ここで弾くことができます。
3. 余裕のある型選定: 金額や集計には `CInt` ではなく、常に `CLng` を選んでいます。これにより、通常の業務でオーバーフローすることはまずなくなります。
—
4. まとめ：ここをクリアすれば、もう怖くない！
今回は、型変換関数（`CInt`、`CLng`、`CDbl`）の基本と、実務で絶対に知っておくべきオーバーフロー対策について解説しました。
- 基本方針: 金額や件数、行番号には `CInt` ではなく、許容範囲の広い `CLng` を使おう。
- 鉄則: 外部から取得するデータやユーザーが触るセルの値は、そのまま変換せず `IsNumeric` 等でチェックしてからキャストしよう。
- 丸めの注意: 整数変換の丸め誤差（銀行丸め）に気をつけ、正確な計算が必要な場面を見極めよう。
型を制する者は、VBAを制す。
変数の型やキャストを意識できるようになると、あなたの書くコードは見違えるほど安定し、バグの少ない美しいものになります。
「ここをクリアすれば、Excel VBAの基本はバッチリですよ！」
自信を持って、次の自動化のステップへ進んでいきましょう。あなたのVBAライフを、これからも応援しています！
