間違った入力をした時、もう一度入力させる場合

質問

以前、

"textBox1に品番を入れたら、Label1に品名を表示させています。
このとき、TextBox1に存在しない品番を入力した場合は、
再度入れなおしをさせたいのです。"
における質問と回答(-yellowtail-＆e10go) を参照して

textbox1の文字数が8文字以外のときは、もう一度textbox1に戻って来るように、次のように入力しました。

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) <> 8 Then
MsgBox ("正しい日付を入力してください。")
Cancel = True
TextBox1.SetFocus(この行は、うまく行かないので、勝手につけてみましたが、うまく行きませんでした)
Exit Sub
End If
End Sub

しかしながら、うまくtextbox1に戻ってくれません。
また、この入力のためのuserformを消す際にも、
MsgBox ("正しい日付を入力してください。")
が表示されてしまいます。

2つの点で困っています。

どのように改良したら良いでしょうか？
すいませんが、よろしくお願いいたします。

回答No.2

kootsuki · ベストアンサー

＞リターンを押した直後に、textbox1ですぐ入力待ちにすることは
＞出来ないでしょうか？
テストではＭｓｇｂｏｘが表示され［ＯＫ］を押すと入力していた最後の位置にカーソルがあり入力可能となっていました。それでいいのかと思っていましたが、ご要望は［ＯＫ］を押した後は、Ｔｅｘｔｂｏｘ１の入力していた文字を反転させて１文字目からの再入力ができて欲しいというもののようですね。以下のコーディングで如何でしょうか。

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If UserForm1.Visible = True Then
If Len(TextBox1) <> 8 Then
MsgBox ("正しい日付を入力してください。")
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Value)
Cancel = True
Exit Sub
End If
End If
End Sub
SelstartとSellengthで選択状態（反転状態）にしています。UserForm1はそちらのフォーム名にしてください。

なお、Ｎｏ１の回答で以下のコーディングを入れてもらいましたが、これらは削除してください。Ｕｓｅｒｆｏｒｍを×で終わらせたとき、まずＵｓｅｒｆｏｒｍが非表示になります。その状態を見るようにしました。この方がスマートかと思います。あっ、前の回答　End If　がひとつ多かったようですね。済みませんでした。

Private formexit As String
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
formexit = "yes"
End Sub

お礼

ありがとうございます。
大変、助かりました。またお聞きすることがあるかもしれませんが、今後ともよろしくお願い致します。
失礼致します。

回答No.1

kootsuki

＞また、この入力のためのuserformを消す際にも、
＞MsgBox ("正しい日付を入力してください。")が表示されてしまいます。
についてです。
マウスがそのテキストボックスに乗っている場合は、Userfoemのクローズの際にTextBox1_Exitのイベントが発生しているようです。コードの中でフォームクローズ時ということを認識できればいいのですが、でき無さそうだったので、安直ですが、userformを消したことを認識してその場合は８文字チェックをやめる方式の提案です。
コードの先頭に、
Private formexit As String
別イベントとして、
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
formexit = "yes"
End If
End Sub
ここでフォームのクローズを覚えておきます。
最後に元のコードに手を入れて、
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
　If formexit <> "yes" Then
　　If Len(TextBox1) <> 8 Then
　　　MsgBox ("正しい日付を入力してください。")
　　　Cancel = True
　　　Exit Sub
　　End If
　End If
End Sub
もうひとつの「しかしながら、うまくtextbox1に戻ってくれません。」の方は再現しません。一度エラーになるとtextbox1から抜けられないと思うのですが・・・。

補足

早速、回答いただきましてありがとうございます。

おかげで
＞また、この入力のためのuserformを消す際にも、
＞MsgBox ("正しい日付を入力してください。")が表示されてしまいます。
の件につきましては、うまく処理できました。

しかし、MsgBoxを閉じた(リターンキーを押した)後、もう一度テキストボックス1へ戻ってくれず、どこも反転していない状態になってしまいます。(左クリックをすれば、その場近くにカーソルがいるので、入力できるのですが…。)

リターンを押した直後に、textbox1ですぐ入力待ちにすることは出来ないでしょうか？

わがまま言ってしまいますが、よろしくお願い致します。