2024.01.03

【VBA】エラー「オーバーフローしました」の解決方法

エラーメッセージ「実行時エラー ‘6’: オーバーフロー」の原因と解決方法を紹介します！

原因

Integer型の変数に-32,768～32,767の範囲を超えた値を設定している。

Sub Example1()
    Dim age As Integer
    age = 999999
End Sub

解決策

Long型に型を変更する。

Sub Example1()
    Dim age As Long
    age = 999999
End Sub

関連