このマクロについて…（オーバーフローといわれる）

質問

なんとなくの流れですが、D列からH列まで入力箇所があって、Iに合計が出るようになっています。
D列は10000円、E列は5000円、F列は1000円、G列は500円、H列は100円というような金種表のようなものです。
Iは上記の金額に入力した数値をかけて、その合計を出すように数式が入っています。
そしてボタンを押すと、この数値をそれぞれの変数に代入するようになっています。

【例】
I6→hensuu1
I7→hensuu2
このI列の合計値が32800以下だった場合、通常とおりに動くのですが、32800以上だった場合、「オーバーフローしました」と
エラーが出てしまいます。
これは一体なぜでしょうか？

コードの一部ですが載せておきます。
If Range("I6") = "" Then
hensuu1 = 0
Else
hensuu1 = Range("I6")
End If

If Range("I7") = "" Then
hensuu2 = 0
Else
hensuu2 = Range("I7")
End If

回答No.2

MSZ006 · ベストアンサー

#1です。
>stringにしてみたら無事動きました。
stringで動きますか？string型は文字列型なので違うような気がしますが…

integer型は-32768～32767の範囲の整数数値しか扱えないのでこの範囲を超えるとエラーになります。
数値の型ではinteger,long,single,doubleなどがあります。（他にもあると思いますが思いつきません…）

お礼

はい、動きました(^^;

INTEGERは値が決まっていたんですね。
今後はLONGとか使うようにしたいと思います。

ありがとうございました。

回答No.1

MSZ006

変数hensuu1、hensuu2の型の問題だと思います。
longやdoubleなどで宣言しておけばよいと思います。

例：
Dim hensuu1 as long, hensuu2 as long

お礼

回答ありがとうございます。

integer→stringにしてみたら無事動きました。
なぜ32700まではOKで、32800～ダメになってしまうのでしょうか？