エクセルＶＢＡにて、２回エラーになってしまう

質問

現在、エクセルVBAにて、エラーのチェックを行っているのですが、
他の数値項目は問題ないのですが、下記の個所のみ、
エラーメッセージが２回出力されます。
（１回目のExitSubがきかない）
お分かりになる方がおられましたら、ご回答、よろしくお願い致します。

'費用（明細1）
Private Sub txtMei4_1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Set mytxt = Me.Controls("txtMei4_1")
If mytxt.Text <> "" And _
IsNumeric(mytxt.Text) = False Then
MsgBox "数値を入力してください"
Cancel = True
Exit Sub　←ここで、Exitせず、もう一度このPrivate Subに戻ってくる
End If
End Sub

他のテキストでも同様のチェックをしているのですが、
この部分のみ、msgboxが２回出力されます。

申し訳ありません。
よろしくお願い致します。

回答No.2

imogasi · ベストアンサー

Private Sub Textbox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox "aaa"
If TextBox1.Text <> "" And IsNumeric(TextBox1.Text) = False Then
MsgBox "数値を入力してください"
Exit Sub
End If
End Sub
と　Cancel = True
を除くと１回しか通りません。入れると確かに２度とおる。
Cancel = Trueが行われる場合このイベントが再度発生しているのでしょう。
似たようなケースで、
Ｃｈａｎｇｅイベントなどでは、よくプログラムで値をセットするが、またイベントを起してしまうケースを経験します。
Application.EnableEvents = False
などを始めに入れたりする。
参考
http://okwave.jp/qa/q3037406.html
ーー
またテキストボックスは値をチェックする機会（タイミング）が難しいように思う。
安全なのは別のコマンドボタンをクリックしたとき行うことでしょうが、外に良い方法があるのかな。
そのほか前後で順次イベントが２重３重に起こるものもあるので、ＶＢＡの初心者はイベントを使うのは難しいと思う。
参考
http://www.geocities.jp/cbc_vbnet/kisuhen/Event.html
Eventの発生する順序

回答No.1

nattocurry

[F8]キーでのステップ実行で、流れの確認をした上での質問でしょうか？
やってないのなら、やってみて、どのような流れでエラーメッセージが2回出力されているのかを分析しましょう。
きっと、あなたが想定しているものとは別の流れになっているはずです。

補足

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

１ステップづつ何度も行っているのですが、
Exit Sub を通っているのに、「Exit Sub」のところで
もう一度、「Private Sub txtMei4_1_BeforeUpdate」に戻ってきます。

もしかしたら、フレーム内の最後の項目なので、
そのせいかなと思ってきました。

本当は、「Exit Sub」の前に、項目をクリアしたいのですが、
それをやると、今度は、カーソルがエラーを出したところに
出てこなくなりました。

てんやわんやです。