【入門編】VBAにおける「型変換関数」の正しい使い分け：CStr, CLng, CDblでデータ型の不一致エラーを防ぐ – Excel VBA解析バイブル

こんにちは！マクロの記録を卒業して「さあ、本格的なVBAを書くぞ！」と意気込んだものの、突如として画面に現れる赤い警告や、冷酷な「実行時エラー 13: 型が一致しません」に頭を抱えていませんか？

大丈夫、その壁はすべてのVBAエンジニアが最初に通る通過点です。ここをクリアすれば、あなたの書くコードは見違えるほど頑健（ロバスト）になり、予期せぬエラーで夜中に呼び出されることもなくなります。

今回は、VBAの現場で最も重要かつ避けて通れない「明示的な型変換関数（CStr, CLng, CDbl）」の正しい使い分けについて、プロの知見を交えて優しく、そして深く解説していきますね。ここをクリアすれば、Excel VBAの基本はバッチリですよ！

—

1. なぜ「型不一致エラー」は起きるのか？（Excelの優しい嘘）

私たちが普段使っているExcelのセルは、非常に「おせっかい」です。
セルには「文字」も入れば「数値」も「日付」も自由に入りますよね。例えば、A1セルに `100` と入力されていても、Excel内部ではそれが「数値」なのか「文字列」なのかを曖昧にしたまま保持しています。

しかし、VBA（プログラミングの世界）は人間とは違い、極めて厳格（厳密）です。

‘ 【悲劇のコード例】
Sub ErrorSample()
Dim total As Long
‘ A1セルに「100」という文字（あるいは空白）が入っていると…？
total = Range(“A1”).Value + 50
‘ 「おい！文字に数値を足そうとするな！」とVBAが怒り出す（型不一致エラー）
End Sub

VBAは「型」の違うデータを計算させようとしたり、予期せぬデータを代入しようとしたりすると、容赦なく処理を中断します。この事故を防ぐために、「今からこのデータを強制的に〇〇の型に変換する！」とプログラマが明示的に指示するのが型変換関数です。

—

2. 三大・型変換関数の特徴と正しい使い分け

VBAには多くの変換関数がありますが、実務で9割方使うのは以下の3つです。それぞれの性格をしっかりと把握しましょう。

① `CStr`：あらゆるデータを安全に「文字列」にする

データベースへの登録文字列の作成や、セルへの出力時に最も重宝します。数値だけでなく、後述する「Null」や「空欄」が混ざる不安定なデータに対して使うと、思わぬエラーを防げます。

② `CLng`：数値を「整数（Long型）」にする

Excelの行番号やIDなど、小数点以下を持たない数値の計算に使います。裏技として、`CLng` は四捨五入の挙動をするため、単なる切り捨て（`Int`など）とは違う点も覚えておくとプロっぽいです。

③ `CDbl`：小数を扱う計算の要「倍精度実数型」

単価や税率など、小数点を含む計算を行う場合は必ずこれを通します。VBAで「通貨型（Currency）」を使う手もありますが、一般的な数値演算では `CDbl` が最も汎用的です。

—

3. 【実践】現場で使える！型変換を組み込んだ堅牢なマクロ

それでは、実際の業務でそのまま使えるサンプルコードを見てみましょう。
今回は、「空白セル」や「文字混じりのデータ」が含まれていても絶対にエラーで止まらない、プロ仕様の安全な集計マクロを書きます。

Option Explicit

Sub SafeCalculationSample()
Dim ws As Worksheet
Set ws = ActiveSheet

Dim lastRow As Long
Dim i As Long

Dim rawValue As Variant ‘ あえて何でも入るVariant型で受ける
Dim unitPrice As Double
Dim quantity As Long
Dim lineTotal As Double
Dim sumTotal As Double

sumTotal = 0

‘ データの最終行を取得
lastRow = ws.Cells(ws.Rows.Count, “A”.End(xlUp).Row

For i = 2 To lastRow
‘ セルから値を取得（この時点では型は不定）
rawValue = ws.Cells(i, “A”.Value ‘ A列：単価

‘ 【重要】もしセルが空欄、あるいは文字列が入っていた場合の対策
If IsNumeric(rawValue) And Not IsEmpty(rawValue) Then
unitPrice = CDbl(rawValue) ‘ 安全に小数（Double）へ変換
Else
unitPrice = 0 ‘ 数値でなければ0として扱う
End If

‘ B列（数量）の処理
rawValue = ws.Cells(i, “B”.Value
If IsNumeric(rawValue) And Not IsEmpty(rawValue) Then
quantity = CLng(rawValue) ‘ 安全に整数（Long）へ変換
Else
quantity = 0
End If

‘ 計算実行（型が完全に保証されているのでエラーが起きない）
lineTotal = unitPrice quantity

‘ C列（金額）に出力。CStrを使って確実に文字列として出力することも可能
ws.Cells(i, “C”.Value = lineTotal

‘ 合計に加算
sumTotal = sumTotal + lineTotal
Next i

‘ 最終結果をメッセージで通知（CStrで文字列化して連結）
MsgBox “集計が完了しました。総額: ” & CStr(sumTotal) & ” 円”, vbInformation, “処理完了”

End Sub

このコードの美しいポイント

1. `Variant`型で受け、判定してから変換している
いきなり `CDbl(Range(…))` と書くのではなく、`IsNumeric` 関数で「これ、本当に数値に変換できるデータか？」とワンクッション挟んでから変換しています。これが実務で神と呼ばれる所以です。
2. `CDbl` と `CLng` の使い分け
単価（小数点の可能性がある）には `CDbl` を、数量（必ず整数）には `CLng` を適用し、メモリと計算の精度を最適化しています。

—

4. 初学者がやりがちな「危ない罠」と回避策

ここで、よくある失敗パターンを一つご紹介します。

> NG例：`CStr` や `CLng` すれば何でも解決すると思っていませんか？
> 「文字が入っていてエラーになるなら、全部 `CLng` で囲んじゃえ！」と、文字（例: `”りんご”`）に対して `CLng(“りんご”)` を実行すると……はい、見事に「型が一致しません」エラーで強制終了します。

変換関数は「魔法の杖」ではありません。あくまで「その型に変換可能なデータ構造をしているもの」を、明確に型定義された変数へ流し込むためのトランスポーター（橋渡し）です。

だからこそ、先ほどのサンプルコードのように：
1. `IsNumeric` などのチェック関数で確認する
2. デフォルト値を決めておく（エラーなら 0 や “” にする）

この「二段構え」の思考回路を持つことが、プログラマとしての第一歩なのです。

—

まとめ：型を制する者は、VBAを制す

今回は、VBAにおける型変換関数（`CStr`, `CLng`, `CDbl`）の正しい使い分けと、エラーを防ぐための実践的なテクニックを解説しました。

Excelの「おせっかい」を信じず、VBAの「厳格さ」に歩み寄る
データを受け取ったら、`IsNumeric` 等で確認して明示的に変換する
用途に合わせて `CStr`（文字）、`CLng`（整数）、`CDbl`（小数）を使い分ける

この基本原則さえ頭に入れておけば、どれほど汚いデータが外部から送られてきても、あなたのマクロはビクともしないタフなシステムになります。

「動くだけのコード」から「信頼できるプロのコード」へ。
今日の学びをあなたのVBAエディタでぜひ試してみてくださいね。次回の記事もお楽しみに！