Excel VBAでプログラムを実行していると、時折表示される「オーバーフローしました」というエラーメッセージ。初心者にとっては、何が原因でエラーになっているのか分かりづらく、つまずきやすいポイントの一つです。このエラーは、変数に代入された数値が、その型で扱える範囲を超えた場合に発生します。
この記事では、「オーバーフローしました」エラーの意味から、よくある原因、そして解決方法までをわかりやすく解説していきます。実際のコード例も交えながら、VBAのエラー解消に役立つ情報をお届けします。
「オーバーフローしました（Overflow）」とは、VBAで数値を扱う際に、変数に代入した値がその変数の型で扱える上限・下限を超えてしまったときに出るエラーです。
たとえば、Integer型の変数に大きすぎる値を代入しようとした場合に発生します。
Dim num As Integer
num = 40000 ' Integer型の上限は32,767のため、オーバーフロー
この場合、numが扱える最大値は32,767なので、それを超えると「オーバーフローしました」と表示され、処理が停止します。
もっとも多い原因がこれです。Integer型は-32,768〜32,767の範囲しか扱えません。
この範囲を超える値を代入すると、即エラーです。
Dim i As Integer
i = 100 * 1000 ' → 100000 は Integer型の範囲外
計算そのものは正しくても、結果が大きくなりすぎるケースがあります。
Dim a As Integer
a = 32760 + 10 ' 合計が32770でオーバーフロー
入力値がVariantやStringで受け取られたあと、明示的に型変換する際に発生することがあります。
Dim x As Integer
x = CInt("40000") ' 文字列をIntegerに変換しようとして失敗
ループカウンタや配列のインデックスにも注意が必要です。
Dim i As Integer
For i = 1 To 50000 ' 50000 は Integer の範囲外
Next i
多くのケースは、変数の型を Integer → Long に変更するだけで解決します。Long型は-2,147,483,648〜2,147,483,647まで扱えるので、かなり広い範囲に対応できます。
Dim num As Long
num = 40000 ' 問題なし
CIntなどの型変換関数を使うときは、対象の文字列や数値が適切な範囲内にあるか事前にチェックすることが大切です。
If Val(txtValue.Text) <= 32767 Then
result = CInt(txtValue.Text)
Else
MsgBox "値が大きすぎます"
End If
オーバーフローは、変数にどんな値が代入されたかを確認すれば、たいてい原因がわかります。
ブレークポイントを設定し、「イミディエイトウィンドウ」や「ウォッチウィンドウ」で変数の中身をチェックしましょう。
Option Explicit を必ずコードの最初に記述することで、変数の宣言漏れによる意図しないオーバーフローを防げます。
Option Explicit
Dim total As Integer
total = 1000 * 100
解決策：
Dim total As Long
total = 1000 * 100
Dim result As Integer
result = CInt("100000")
解決策：
Dim result As Long
result = CLng("100000")
「オーバーフローしました」エラーは、型の選び方を見直すことで解決できます。
VBAでは、Integer型よりもLong型を基本とする方が安全です。特に、大きな数値を扱う可能性がある場合は、最初からLongを使っておくと安心です。
また、エラーが出たときは焦らずに、変数の値と型を確認し、必要に応じて型を変更しましょう。
基本をしっかり押さえておけば、VBAのプログラムはもっとスムーズに動作してくれるはずです。