TEXTBOX_CHANGEのイベント抑制

TEXTBOX_CHANGE　イベントでのイベント抑制方法を教えてください。
エクセルのVBAで、ユーザーフォーム内のTEXTBOXの内容を変更した際にイベントが発生しない様にしたいのですが、うまくいきません。


Private Sub TextBox1_Change()
Application.EnableEvents = False
UserForm1.TextBox1.Text = ""
Application.EnableEvents = True
UserForm1.TextBox1.SetFocus
End Sub

　ユーザーフォーム内では　Application.EnableEvents 　は使えないのかな？？
どなたかご教授をお願いします。

No.1 ベストアンサー 回答者： redfox63 回答日時： 2012/02/03 17:11

UserFormには影響を及ぼさないと思いますよ

フォーム変数として
Dim bFlag as Boolean
を定義しておいて

Private Sub TextBox1_Change()
　　' 再突入際には処理を中断する
　　if bFlag then Exit Sub
　　' 再突入用にフラグを設定
　　bFlag = True
　　TextBox1.Text = ""
　　' 次回のためにフラグを設定
　　bFlag = False
End Sub

この回答へのお礼

ありがとうございました。
　教えていただいた方法で、うまく動作しました。

お礼日時：2012/02/10 09:39