ＶＢＡのイベント発生時期について

質問

ＶＢＡ初心者です。
コードの中で、トグルボタンのValueを変更しました。
Valueを変更するとClickイベントが発生しますが、コード実効時だとコードの途中で割り込んでイベントを実行した後、またコードに戻ってくるんでしょうか？それとも、プロシージャが終了して割り込むんでしょうか？それとも、パソコン内部の割り込みタイマーによってインターバルに割り込み処理を行なっているのでしょうか？MSGBOXなどを入れて色々調べてたのですが？テンで判りません。
デバッグモード(トレース)では、こちらの意図通り動くのですが？どうも、コードがスキップされているようで・・・？
こんな質問方法で気持ちが通じますでしょうか？
宜しくお願いいたします。

回答No.1

popesyu · ベストアンサー

トグルボタンのValueを変更した時に発生します。途中割り込みです。その後戻ってきます。
検証するには例えば下記のようなコードで。
userformにToggleButton1のみ配置して
---
Private Sub ToggleButton1_Click()
　MsgBox ("ToggleButton1_Click")
End Sub

Private Sub UserForm_Click()
MsgBox ("UserForm_Click1")
If ToggleButton1.Value = True Then
ToggleButton1.Value = False
Else
ToggleButton1.Value = True
End If
MsgBox ("UserForm_Click2")
End Sub
---
UserForm_Click1→（Value変更）→ToggleButton1_Click→UserForm_Click2
という順番になるのが分かるかと思いますが。

なおValueを変更してもClickイベントが発生しないようにするには、下記のようにApplication.EnableEventsを一旦falseにします。その後trueにしておかないと今度は全てのイベントが抑制されてしまいますので注意。

Application.EnableEvents = False
トグルボタン.value=true
Application.EnableEvents = true

お礼

ありがとうございました。
MSGBOXを入れる場所が根本的に間違っており、正しくトレースできていないことがわかりました。
本当に助かりました。
ありがとうございます。