エクセルVBAのテキストボック、Exitイベント

質問

エクセルのＶＢＡで簡単なデータ登録のマクロを作成しています。
フォームのテキストボックスに入力した値を、エクセルシートに展開する程度の機能です。

製品コードを必須にしており、製品コードが入っていない時はエラーメッセージを表示します。
製品コードが入力されていないときは、製品コードのテキストボックスにフォーカスがあたったままにしたく、ネットで調べてＥｘｉｔイベントに以下の処理を作成しました。

Private Sub mySeiCD_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim myMsgBoxValue As String

If Len(mySeiCD.Value) = 0 Then
myMsgBoxValue = MsgBox("製品コードは入力必須です。" ,vbOKOnly, "製品コード未入力")
Cancel = True
End If
End Sub

製品コード未入力の際にフォーカスはそのままになりましたが、フォームを閉じることができなくなりました。
閉じるボタンを押しても、Exitイベントにひっかかてしまいます。
当然の動きと思いますが、回避する方法はありませんでしょうか？

Exitイベントを使わずに、SetFocus　を使った場合は、どうしても、次のテキストボックスにフォーカスが移動してしまいました。

以上、長くなりましたが、よろしくお願い致します。

回答No.3

end-u · ベストアンサー

Unloadステートメントを記述しているCommandButtonの
TakeFocusOnClickプロパティをFalseに設定してください。

プロパティウィンドウで設定してもいいし、
UserForm_Initializeイベントで設定してもいいです。
Private Sub UserForm_Initialize()
　　Me.CommandButton1.TakeFocusOnClick = False
End Sub

あとはmySeiCD_Exitの冒頭に下記１行を追記すると良いかと。

If Not Me.Visible Then Exit Sub

お礼

私がやりたいと思っていた動作が実現できました。
If Not Me.Visible Then Exit Sub　の振る舞いがいまひとつ理解できていませんが、勉強したいと思います。

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

回答No.2

GOCHISOUda

ユーザーフォームのアクティベイトイベントで始めのテキストボックスをセットフォーカス。

２番目のテキストボックスではエンターイベントを使って、１番目のテキストボックスが空だったら１番目にセットフォーカス。そうでなかったら２番目にセットフォーカスと書く。

３番目も２番同様だけれど、いきなり３番目を選択するとエラーを起こすかもなので、３番目は１番目も確認するように書く。

出来ますよ。

お礼

ご回答頂きありがとうございました。
今後のプログラミングの参考に致します。

回答No.1

いけだ ひろし（@ike-2000）

VBで同様のことを行いました。
VBAのイベント順序の仕様でExitでは不可能で、Enter側でエラーチェックするしかないと考えます。

汎用的には以下のような処理を作りこむ必要があります。
(1)Exit側
　当該コントロールを記録する。
　どのようなチェックを行うかの情報を記録する。
　チェックする値を記録する。
(2)Enter側
　(2)-1　エラーチェックが不要のコントロール(キャンセルボタン等)
　　記録されている情報チェックせず、当該コントロールの処理を行う。
　(2)-2　エラーチェックが必要な場合(普通のテキストボックス等)
　　記録されているチェック情報に従い値をチェックする。
　　エラーがあれば記録されているコントロールに制御を移す。
　　エラーが無ければ当該コントロールの処理をする。

結構面倒です。
私の場合、VB4でソースを編集することが出来たので、プリプロセッサを作って、LostFocus、GotFocusに必要なコードを自動生成させました。開発量が大きかったので選択できた方法です。

質問者殿の開発規模が不明なのでこの方法がよいのか分かりません。

Exit等でダイナミックにチェックする必要がないのであれば、

「確認ボタン」を新たに設け、この確認ボタンをクリックした時、全てをチェックし、エラーのコントロールに制御を移す、

というのが楽なのではないでしょうか。

お礼

ご回答頂きありがとうございました。
今後のプログラミングの参考に致します。