Excel VBA オーバーフローしましたは許容範囲を超えたときのエラー

以下のようなシーンで発生します。

・ループ処理や計算を行う際

・大きな数値を扱う際

・関数やプロシージャでの値の受け渡し

Option Explicit

Sub OverflowExample()
    Dim i As Integer
    i = 32768 ' Integer型の範囲を超える値を代入しようとする
End Sub

このコードは、i がInteger型であるため、32768を代入しようとするとオーバーフローエラーが発生します。

Option Explicit

Sub OverflowSolution()
    Dim i As Long
    i = 32768 ' Long型はより大きな数値を扱える
End Sub

このコードでは、i をLong型に変更することで、32768を代入してもエラーが発生しません。

Option Explicit

Sub OverflowCheck()
    Dim i As Long
    Dim inputValue As Long
    inputValue = 32768 ' 任意の数値を入力
    
    If inputValue < -2147483648# Or inputValue > 2147483647 Then
        MsgBox "数値が範囲外です"
    Else
        i = inputValue
    End If
End Sub

このコードでは、数値がLong型の範囲内であるかをチェックし、範囲外の場合はメッセージボックスを表示します。