Excel VBAでの「実行時エラー ‘6’ オーバーフロー」の原因と対処法

皆さん、こんにちは。今日は、Excel VBAを使っていて遭遇することがある「実行時エラー ‘6’ オーバーフロー」についてお話しします。突然このエラーが出て、驚いた経験はありませんか？今回は、その原因と解決策を、初心者の方にもわかりやすく解説します。

「実行時エラー ‘6’ オーバーフロー」とは？
オーバーフローが発生する具体例
オーバーフローを防ぐ方法
計算結果によるオーバーフローの注意点
よくある質問や疑問
1. Q1: すべての変数をLong型にすれば、オーバーフローを完全に防げますか？
2. Q2: オーバーフロー以外の実行時エラーにはどのようなものがありますか？
今すぐ解決したい！どうしたらいい？
まとめ

「実行時エラー ‘6’ オーバーフロー」とは？

Excelのイメージ

まず、このエラーが何を意味するのかを見てみましょう。これは、変数に格納しようとした値が、その変数のデータ型で許容される範囲を超えているときに発生します。例えば、整数を扱うInteger型の変数は、-32,768から32,767までの値しか扱えません。これを超える値を代入しようとすると、オーバーフローが発生します。

オーバーフローが発生する具体例

具体的な例を見てみましょう。以下のコードを考えてみます。

vba

Sub Test()

    Dim intValue As Integer

    intValue = 50000

    Debug.Print intValue

End Sub

このコードを実行すると、エラーが発生します。なぜなら、50000という値はInteger型の範囲を超えているからです。

オーバーフローを防ぐ方法

では、どのように対処すれば良いのでしょうか？解決策としては、より大きな範囲を扱えるデータ型を使用することです。上記の例では、Integer型ではなくLong型を使用することで解決できます。

vba

Sub Test()

    Dim lngValue As Long

    lngValue = 50000

    Debug.Print lngValue

End Sub

Long型は、-2,147,483,648から2,147,483,647までの値を扱えるため、50000を問題なく格納できます。

計算結果によるオーバーフローの注意点

計算結果を変数に代入する際にも、オーバーフローが発生することがあります。例えば、以下のコードを見てください。

vba

Sub Test()

    Dim lngTotal As Long

    lngTotal = 5000 * 10

    Debug.Print lngTotal

End Sub

一見問題なさそうですが、これもエラーになります。なぜなら、VBAは数値リテラルを自動的にInteger型として扱うため、5000 * 10の結果である50000がInteger型の範囲を超えてしまうからです。これを防ぐには、数値をLong型に変換するか、Long型の変数に代入してから計算します。

vba

Sub Test()

    Dim lngTotal As Long

    lngTotal = CLng(5000) * 10

    Debug.Print lngTotal

End Sub

または、

vba

Sub Test()

    Dim lngTotal As Long

    Dim lngValue As Long

    lngValue = 5000

    lngTotal = lngValue * 10

    Debug.Print lngTotal

End Sub

これらの方法で、オーバーフローを防ぐことができます。