VBAのExitイベントについて

Question

VBA（Excel）についてご質問します。

フォームにて、IDというオブジェクト名のテキストボックス、
Private Sub ID_Exit(ByVal Cancel As MSForms.ReturnBoolean)
という関数（Exitイベント）を用意しました。

IDにフォーカスがある状態で、フォーカスを移動しようとすると、この関数が必ず実行されるかと思います。
そのとき、特定のボタン（例えばキャンセルボタン）がクリックされたためにフォーカスが移動したときは、この関数の処理を実行したくない。もしくはこの関数内で特定のボタンがクリックされたこと（そのためにフォーカスが移動したこと）を検出して、処理をスキップしたいです。
どうすれば実現できますでしょうか？
よろしくお願いします。

robbie21 · Accepted Answer

ANo.1の例です。
ユーザーフォームを作成し、
CommandButton1-4を配置します。
Label1を配置します。

フォームのコードとして下記のコードを作成します。

*下記コードの解説
-各コントロールの移動のイベント(Exit,Enter)では、直接やりたい処理を記述せずに、自分のコントロール名を変数ExitControl,　CurrentControl にセットして全体の調整役のSubプロシージャ(ここでは"Mediate"プロシージャ)を呼び出す。
-Mediate内で、移動元のコントロール、移動先のコントロールに応じて実際の処理を行う(例では移動先が"4"の時は処理をスキップし、それ以外にフォーカスが移ったときは一律に処理している)

*使用上の注意
-実際の使用に当たっては、数字とかでなく、ちゃんとコントロール名をつけないと分けわかんなくなる。
-複雑な遷移の処理は、Mediate内に集約されるので管理の煩雑さは緩和される。
-各コントロールでMediateを呼び出す処理を繰り返す部分はめんどくさいし、間違いやすいので、コントロールの数が多いときは、出来ればExcelの数式やVBAで自動的に作成する。

'-以下ユーザーフォーム内に記述するコード---------
Option Explicit

Private ExitControl As String
Private CurrentControl As String


'Mediate 全体の調整役のプロシージャ
'コントロールのフォーカスの移動があるたびに呼び出す。
Private Sub Mediate()
    Dim EventText As String
    EventText = "Exit:" & ExitControl & "," & "Current:" & CurrentControl
    Debug.Print EventText
    If CurrentControl = "4" Then
        EventText = EventText & "Skip"
    Else
        EventText = EventText & "DoSomething"
    End If
    
    Label1.Caption = Label1.Caption & vbCrLf & EventText
End Sub


Private Sub CommandButton1_Enter()
    CurrentControl = "1"
    Mediate
End Sub

Private Sub CommandButton1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    ExitControl = "1"
    CurrentControl = ""
    Mediate
End Sub


Private Sub CommandButton2_Enter()
    CurrentControl = "2"
    Mediate
End Sub

Private Sub CommandButton2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    ExitControl = "2"
    CurrentControl = ""
    Mediate
End Sub


Private Sub CommandButton3_Enter()
    CurrentControl = "3"
    Mediate
End Sub

Private Sub CommandButton3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    ExitControl = "3"
    CurrentControl = ""
    Mediate
End Sub

Private Sub CommandButton4_Enter()
    CurrentControl = "4"
    Mediate
End Sub

Private Sub CommandButton4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    ExitControl = "4"
    CurrentControl = ""
    Mediate
End Sub

Private Sub CommandButton4_Click()
    MsgBox "Cancel Clicked"
End Sub

Oh-Orange · Answer

★追記。回答者 Oh-Orange です。
・Enter イベントで呼ばれる Sub プロシージャについて補足します。
・このプロシージャ内の最後で渡された引数の『識別コード』をグローバルで用意した変数に
　セットして下さい。そして、プロシージャの先頭で『グローバル変数』をチェックして前に
　フォーカスがあったコントロールが『本来の Exit イベント』で行うテキストボックスかを
　チェックします。もし、一歩手前のフォーカスがそのテキストボックスのときだけ、本来の
　『Exitイベント』で行おうとした処理を実行して下さい。それ以外のコントロールのときは
　処理をしないように記述して下さい。
・上記の処理を Enter イベントで呼ばれる Sub プロシージャに先頭と最後にそれぞれ追加して
　下さい。

●まとめ
・呼ばれる Sub プロシージャの先頭は、グローバル変数から前フォーカスのコントロールをチェック。
・呼ばれる Sub プロシージャの最後は、グローバル変数に渡された『識別コード』をセット。
・上記の処理を追加しないと ID というオブジェクト名のテキストボックス以外の場所にフォーカス
　があったコントロールでも Sub プロシージャで処理が実行されてしまいます。
・前フォーカスと現在フォーカスの発生順序をもう一度考えて下さい。
・以上。おわり。→参考に！

onlyrom · Answer

向学心旺盛な質問者なので再度の回答をしたいと思います。

KeyDownイベントですが、
CommandButtonのではなくてTextBoxのKeyDownイベントです。

CommandButtonを１、Textboxを２つ配置して以下をお試しください。
'-----------------------------------------------------------
Private Sub UserForm_Initialize()
　Dim myCtrl As Control
　　　For Each myCtrl In Me.Controls
　　　　　myCtrl.TabStop = False
　　　Next myCtrl
　TextBox1.SetFocus
End Sub
'------------------------------------------------------------
Private Sub CommandButton1_Click()
　　MsgBox "キャンセルしました"
End Sub
'-----------------------------------------------------------
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
　　If KeyCode <> vbKeyReturn Then Exit Sub
　　If TextBox1.Text = "" Then
　　　　MsgBox "Text1は未入力です"
　　　　TextBox1.SetFocus
　　　　Exit Sub
　　End If

　　TextBox2.SetFocus
End Sub
'-----------------------------------------------------------
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
　　If KeyCode <> vbKeyReturn Then Exit Sub
　　If TextBox2.Text = "" Then
　　　　MsgBox "Text2は未入力です"
　　　　TextBox2.SetFocus
　　　　Exit Sub
　　　End If

　　CommandButton1.SetFocus
End Sub
---------------------------------------------------------

●上記コードの要のところは、UserformInitializeの部分です。
そこが無ければうまく動作しません。

またまた老婆心ながらの一言。
イベントの発生順番、ご自分で確認されましたか。
であれば今回の件はTextBoxのExitイベントを使う限り無理だということがお分かりになったと思います。
Enterイベントについての評はしませんがそれは試しているうちに気づくものがあるでしょう。

何れにしろUserFormにおいてはイベントの発生順番が全てです。
色んな場合を考えそのときどういった順番で発生するのかをを理解した上でコーディングすることが肝要だと思います。
　

robbie21 · Answer

コード生成のためのようなコードというと難しそうに感じますが
今回のようなものなら、一つ見本を作って、Print文で次々つないでやるだけで出来ます。
UserForm1上にコントロールを配置して以下のコードを実行すると、イミディエイトウィンドウにプログラムを書き出すので、コピーして貼り付けでOKです。

Sub GenerateEnterExitEvents()
    Dim c As Control
    For Each c In UserForm1.Controls
        Debug.Print
        Debug.Print "Private Sub " & c.Name & "_Enter()"
        Debug.Print vbTab & "CurrentControl = """ & c.Name & """"
        Debug.Print vbTab & "Mediate"
        Debug.Print "End Sub"
        
        
        Debug.Print "Private Sub " & c.Name & "_Exit(ByVal Cancel As MSForms.ReturnBoolean)"
        Debug.Print vbTab & "ExitControl = = """ & c.Name & """"
        Debug.Print vbTab & "CurrentControl = """""
        Debug.Print vbTab & "Mediate"
        Debug.Print "End Sub"
        Debug.Print
    Next

End Sub

ちなみにOh-Orangeさんの言うとおり、この例の場合についてはExitイベントでのMediate呼び出しは不要ですので省いてかまいません。

Oh-Orange · Answer

★VBAでは『タイマー・イベント』が使えないのですか。→お勉強になります。
・それならば、すべてのコントロールに、フォーカスが移った直前 Sub プロシージャを
　呼び出すようにします。
・コントロールがフォーカスを失うイベントが『Exit』ですので、フォーカスが移った
　瞬間の『Enter』関数に決まった Sub プロシージャを呼びます。
　このとき、引数でコントロールの ID など識別できるコードを渡します。
・そして Sub プロシージャ側では、受け取った引数を元に『キャンセル』ボタンのときだけ
　処理をスキップして、それ以外ならば本来の『Exitイベント』で行おうとした処理を記述
　します。
・これは回答者 No.5 さんのサンプルとほぼ同じ考えですが、フォーカスが移った瞬間の
　『Enter』関数のみ記述すればいいです。これは、すべてのコントロールでフォーカスを
　失った後で処理するのと、すべてのコントロールのフォーカスが移った瞬間に処理しても
　同じになるからです。
・サンプル・コードはご紹介できませんので、アルゴリズムでのアドバイスになります。
・回答者 No.5 さんのサンプルと合わせてお読み下さい。
・以上。おわり。

robbie21 · Answer

ANO.5の補足です。
例のコードでは処理の様子をLabel1に出力しているので、Label1は縦横に十分な大きさのラベルを作ってください。

onlyrom · Answer

質問の件は、Exitイベントを使う限りは不可能です。
フラグ云々でもできません。
イベントの発生順番を確認すればそれが分かるはずです。

KeyDownイベントを使うことにより解決できますのでお試しください。
　
老婆心ながら一言。
Ｎｏ１さんのお礼にあるような
＞非常に煩雑なコードになりそうです。
＞フラグをチェックせねばならず、あんまりきれいではない
とかは完璧に動作するコードを書いた後に考えればいいことです。

Oh-Orange · Answer

★どうも『Exitイベント』の処理だけでは実現できそうにないですね。
・『キャンセル』ボタンなどの時だけ『Exitイベント』の実行を阻止したいのならば、
　『Exitイベント』内でタイマーをセット(1ms)します。そして 1ms 後に実行される
　タイマー・ルーチンで本来『Exitイベント』で行う処理を記述します。なお、この処理
　の最後でタイマー・イベントを破棄するようにして下さい。
・それで『キャンセル』ボタンなどの処理の最初の段階で、『Exitイベント』内でセット
　したタイマーをキャンセル(破棄)します。これで、1ms 後のタイマー・ルーチンで本来
　『Exitイベント』で行う処理をスキップ(阻止)出来ると思います。
・『キャンセル』ボタン以外では、タイマーをキャンセルしないため 1ms 後にタイマー
　処理により実行されます。→特に何も記述しなければ実行される。

●まとめ
・この方法ならば、『キャンセル』ボタン以外では 1ms 後にタイマー・ルーチンで処理
　されますし、特定の『キャンセル』ボタンなどでタイマーをキャンセルすることで阻止
　(スキップ)出来ると思います。

最後に:
・タイマー・イベントの記述方法は分かりますか？
　私は C/C++ 言語専門で、最近 JavaScript、VBScript を趣味でお勉強中です。
　VBA はちょっと専門外ですが、アルゴリズムや実現方法のヒントくらいはアドバイスで
　きます。以上。おわり。

Oh-Orange · Answer

★マウスのクリックを調査すれば？
・フォーカスが別の場所に移るときに ID_Exit() 関数が必ず実行されるのならば、実行した最初の段階で
　マウスの左ボタン(右ボタン)を調査して押し下げられていたら処理をスキップします。
・TAB キーなどでフォーカスが移動するときに ID_Exit() 関数を実行したい場合は、TAB キーを押されたら
　フラグを ON として ID_Exit() 関数の最初にチェックして処理をスキップという方法もあります。この場合
　ID_Exit() 関数を抜けるときにフラグを OFF にしておきましょう。
・実現方法は多数あります。もう少し ID_Exit() 関数の動作について知らないと上記ぐらいのアドバイスしか
　出来ません。→キーボードでのフォーカス移動のときだけ ID_Exit() 関数を実行させたいのですか？
・以上。ちょっとだけ補足要求します。

robbie21 · Answer

Exitイベント内で、次にどこにフォーカスが移るかということを知ることは出来ないと思います。

処理の内容によってはExitイベント内ではフォームの変数にフラグを立てるなどだけしておいて、違うタイミングで実際の処理を実行するなどの方策は立てられる可能性はあります。

VBAのExitイベントについて

ANo.1の例です。

★追記。

向学心旺盛な質問者なので再度の回答をしたいと思います。

コード生成のためのようなコードというと難しそうに感じますが

★VBAでは『タイマー・イベント』が使えないのですか。

ANO.5の補足です。

質問の件は、Exitイベントを使う限りは不可能です。

★どうも『Exitイベント』の処理だけでは実現できそうにないですね。

★マウスのクリックを調査すれば？

この回答への補足

Exitイベント内で、次にどこにフォーカスが移るかということを知ることは出来ないと思います。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング