ＶＢＡでのユーザーフォーム上でのタブオーダーの移動の方法

質問

やりたい事を以下に書きます。
　ユーザーフォームで入力用のＴＥＸＴＢＯＸがいくつかあり、ＴＡＢＩＮＤＥＸが最初のＴＥＸＴＢＯＸから順に入力していきます。
　１つのＴＥＸＴＢＯＸに入力完了後した場合、ＴＡＢキーまたは、ＥＮＴＥＲにより次のＴＥＸＴＢＯＸにフォーカスが移動し、最後にコマンドボタンにを押すと入力が完了するというフォームを作っています。
　ただし、最初のＴＥＸＴＢＯＸに『９９』を入力すると、途中のＴＥＸＴＢＯＸへのフォーカスの移動はしないで最後のコマンドボタンにフォーカスが移動するようにしたいと考えています。

問題点を以下に書きます。
　ＴＥＸＴＢＯＸの入力完了を現在、「AfterUpdate」イベントでつかまえて、ＴＥＸＴＢＯＸの値を取得し、その値が『９９』だった場合、コマンドボタンにフォーカスを移動するようにコーディングしています。
こんな感じです。（かなり省略していますが、）
Private Sub TextBox1_AfterUpdate()
If TextBox1.Value = "99" Then
CommandButton1.SetFocus
Exit Sub
End If
End Sub
この用にコーディングすると、TABINDEXが二つ後ろのＴＥＸＴＢＯＸが入力待ち状態となってしまいます。
たとえば
ＴＥＸＴＢＯＸが３つコマンドボタンが１つのフォームだと、
ＴＥＸＴＢＯＸ１に『９９』と入力し、上記のコーディングだと一度コマンドボタンにフォーカスが移動したあと、最後にＴＥＸＴＢＯＸ３にフォーカスが移動して入力待ち状態となる感じです。

色々試しましたが、解決方法が見つかりません。知っている方いましたら、教えてください。

回答No.3

papayuka · ベストアンサー

こんにちは。
999とか入れる事がなければ、Changeが簡単ですね。

Private Sub TextBox1_Change()
　If TextBox1.Text = "99" Then CommandButton1.SetFocus
End Sub

999も考慮すると、こんな感じでしょうか？

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
　If KeyCode = 13 And TextBox1.Value = "99" Then
　　 CommandButton1.SetFocus
　End If
End Sub

Excel97で確認しました。

お礼

ありがとうございます。

　うまく行きそうですね。
　他の部分との関係もあるので、参考にして試してみます。

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

回答No.2

eipu

Private Sub TextBox1_Change()
に書いたんじゃ駄目ですか？

お礼

ありがとうございます。

　Changeに書くのは試していますが、やはりこのＴＥＸＴに入力されるコードが１～２桁であるため、『９』と入力されたときもイベントが発生してしまうのが問題になるので使えませんでした。

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

回答No.1

PAPA0427

残りのテキストボックスに入力が必要ないのであれば、残りのテキストボックスをのTEXT.Enabled = Falseとしてみてください。

もちろんタイミングを見て、Enabled = Trueに戻してくださいね。

お礼

回答ありがとうございます。
確かに上記の方法でうまく行きますね。

　現在作成中のフォームの仕様上も『９９』を入力した場合は、終了という意味なので、他のＴＥＸＴは入力が規制されても良いかと思います。

　他にも方法がないか、他の皆さんの回答も待ってみます。

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