|
▼よちよち さん:
>何か1つ制御が移る先がないとだめなようです。
小さなTextBoxを作ります。
そしてその上に使用するTextBoxをかぶせます。
すると小さなTextBoxは見えなくなりますので
それを利用します。
TextBox1 使用する
TextBox2 使用しない。
Private Sub TextBox2_Enter()
TextBox1.SetFocus
End Sub
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Debug.Print "Before"
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value = "aaa" Then
CommandButton1.Enabled = True
CommandButton1.SetFocus
Else
CommandButton1.Enabled = False
End If
Debug.Print "Exit"
End Sub
こんな風でどうでしょう。
|
|