Excel2003で実行時エラー6 オーバーフロー

質問

Excel2003で実行時エラー6 オーバーフローが出るようになりました。
Sheets(1).Range("O98") = 3000
Sheets(1).Range("O99")= 2000
Sheets(１).Range("O100") = Round(Sheets(1).Range("O98") / Sheets(1).Range("O99") * 10, 2) * -1
で使用できていましたがSheets(1).Range("O98") = 0　Sheets(1).Range("O99")= 0　にした途端上記のようなエラーが出るようになりました。
色々やってみたのですが上手くいきません。
シートを替えてやっても同じ事がでましたがシートを替えてRange("O100")を書式設定で数値に変えて良くはなりましたが本来のシートでは上手くいきません。
教えてくださいよろしくお願いします。

回答No.1

neKo_deux · ベストアンサー

> Sheets(１).Range("O100") = ～ Sheets(1).Range("O98") / Sheets(1).Range("O99") ～
> で使用できていましたがSheets(1).Range("O98") = 0　Sheets(1).Range("O99")= 0　にした途端

ゼロ÷ゼロは定義されません。

割る数がゼロの場合は、場合分けするとかが一般的です。

ゼロ除算 - Wikipedia
http://ja.wikipedia.org/wiki/%E3%82%BC%E3%83%AD%E9%99%A4%E7%AE%97
ゼロ割るゼロ - Google 検索
http://www.google.co.jp/#gs_rn=14&gs_ri=psy-ab&gs_is=1&cp=4&gs_id=4r&xhr=t&q=%E3%82%BC%E3%83%AD%E5%89%B2%E3%82%8B%E3%82%BC%E3%83%AD&es_nrs=true&pf=p&sclient=psy-ab&oq=%E3%82%BC%E3%83%AD%E5%89%B2%E3%82%8B&gs_l=&pbx=1&bav=on.2,or.r_qf.&bvm=bv.46751780,d.aGc&fp=c30b7cc289a76955&biw=1136&bih=720

お礼

Sheets(1).Range("O98") / Sheets(1).Range("O99")数値を入れてテストしましたがオーバーフローでましたがご指摘の”ゼロ÷ゼロは定義されません。”でエラー処理をしましたらエラーは出なくなりました。
ゼロ÷ゼロは定義でもオーバーフローと言うERRORが出るのですね
本当にありがとうございました。

補足

回答ありがとうございます説明不足ですみません
If Sheets(1).Range("O98") <> 0 and Sheets(1).Range("O99") <> 0 then
　　Sheets(１).Range("O100") = ～ Sheets(1).Range("O98") / Sheets(1).Range("O99") ～
End If
としています。
プログラム上クリアーすると0にはなるのですがSheets(1).Range("O98") =　3000　Sheets(1).Range("O99")=　-1000にしてもエラーはでます。（オーバーフローしました）
とでます。
追加でよろしくお願いします。