エクセル vba userform について

質問

現在USERFORMを使用してますが、つまずいています。
たとえば、TEXTBOX1がブランクならばコマンドボタンにフォーカス？をもっていきたいのです。
IF TEXTBOX1="" THEN
コマンドボタン１.SETFOCUS
ELSE
TEXTBOX2.SETFOCUS
END IF

のような形にしてますが、うまくいきません
コマンドボタンを押すとシートにそれぞれ反映されるように作成はできております。
余計なタブ操作をしたくありません。
よろしくお願いします

回答No.1

KenKen_SP · ベストアンサー

こんな感じでしょうか？

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

　　On Error GoTo ErrorHandler
　　Application.EnableEvents = False
　　If Me.TextBox1 = "" Then
　　　　Me.CommandButton1.SetFocus
　　Else
　　　　Me.TextBox2.SetFocus
　　End If

ErrorHandler:
　　Application.EnableEvents = True

End Sub

回答No.2

Dainty

どこに記述していますか？
テキストボックスのイベントプロシージャに記述すれば動作すると思いますが。
例えば、
TextBox1_AfterUpdate()
とか
TextBox1_Exit(ByVal Cancel As　MSForms.ReturnBoolean)
とか。