エクセルＶＢＡについて

質問

エクセルＶＢＡでプログラミングしたのですが、
どんなデータ型を使っても「オーバーフロー」
してしまいます。
重すぎるのでしょうか？
重すぎるとしたら、ＶＢＡの場合、許容範囲は
どれくらいになるのでしょうか？

お願いします。

回答No.7

pen_pen_pen · ベストアンサー

>この作業を実行するとTextBox6に1文字（数字1桁）を入力するとプログラムの実行が中止になり、TextBox16の計算が実行されず、計算結果を確認できませんが・・・。
そうです。なので、「コマンドボタンを押す前に」と前置きしてみました。
まずは普通に実行。TextBox6に入力して、TextBox16に結果が表示されますよね？
それまではいいんです。
いざコマンドボタンを押そうという直前に、ブレークポイントを入れて下さい。
それから、また実行してるフォームに戻ってコマンドボタンを押せばそこで止まります。
それで値を確認してください。ウォッチウィンドウに変数をドラッグするとか。変数の上にマウスを持ってくと見れるかもしれません。

次に、お願い事項Cの話。TextBox6_Changeに、
～省略～
Aone = Val(TextBox6.Text)
If Aone <= 0 Then Exit Sub '☆これを追加

DtyA = Ahlebel / Aone * 100
～省略～
こんな感じで☆部分を一行追加して実行してください。

お願いしたA,Bの結果からするとコマンドボタン以外にもTextBox6を書き換えるイベントがあるようですね。
各お願いの目的は・・・
Aは、一連のクリア操作を一切やめているのでTextBox6を書き換える処理が無くなる。つまりTextBox6_Changeを実行しないので、オーバーフローは起きません。
BはTextBox6を操作してるイベントがコマンドボタンの他に無ければ、オーバーフローは起きないハズだったのです。
でも起きたので、どこかで書き換えていると思われます。その処理が問題というか、要因みたいですね。どこでどう書き換えてるのか調べて下さい。

イベントは、ユーザーがキーボードなどで入力する場合以外にもコードで
TextBox6.Text = ""
と書いた場合にもChangeイベントが発生します。
つまり、コマンドボタンのイベント中でTextBoxをクリアするという事は、TextBox6_Changeが実行されます。
当然そうするとAoneは0になり0割りが出ると思ったのです。

で、今回はTextBox6をクリアする時ではなく、それ以外のTextBoxをクリアする時にTextBox6を書き換えてるように思われますが、どうですか？その時の値がとんでもなく大きくなってるとか。

か、循環的にイベントがイベントを起こしてまたイベントが・・・ってぐるぐる回って何かがオーバーフロー？
（何かってアバウトですね(＾＾；)）

クリアは必要ですよね。とりあえずオーバーフローの原因次第ですけど、
例えばChangeイベントじゃなくてKeyPressイベントに変えれば、ユーザーがキーインした瞬間にしか発生しないからコードでTextBoxの値を変えても問題が無いのかも・・？
でも何となく邪道って言われそう・・・・・・・。
が、たぶん私ならそれで回避できるならやるかな。
けどまずはオーバーフローの原因解明が先ですね。

お礼

丁寧な指導ありがとうございました。

いろいろ試してみて、やはりテキストボックス内の数値を最終的にクリアする行為をやめてみることにしました。（自分でも本意ではないのですが、妥協しちゃいました。）
現時点でエラーが起きない唯一の方法なようなので・・・。

まだ、学習しはじめた初心者なので今回の件でも大変勉強になりました。
また機会がありましたら、指導お願い致します。