Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17686 / 76732

←次へ　｜　前へ→


	【64495】Re:TextBoxの入力制限について

Hirofumi - 10/2/15(月) 15:47 -


	引用なし

	パスワード

>丁寧な解説を頂き有難うございます。じっくりと読ませていただきました。
>本当に有難うございました。感謝しています。
>少しずつ理解ができました。
>整合性を確保する意味も分かりましたが、未だ表面的なレベルと思います。
>これを機会に身に付ける努力をしたいと思います。
>
>Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
>の最終コードに
>TextBox1.SetFocus　'←
>End Sub
>Focusさせたいので上記コードを入れたのですが、効きません。
>何か方法は無いでしょうか？

何故、「TextBox1.SetFocus」が必要なのですか？

　　　　If Not IsDate(.Text) Then
　　　　　　Cancel = True

「Sub TextBox1_BeforeUpdate」のコードの中に上記の記述が有ります
この、「Cancel = True」は、このイベントをキャンセルさせると言う事で、
キャンセルにTrueを入れると、自動的にフォーカスは、TextBox1に戻ってきますし
整合チェックがOKなら次のコントロールにフォーカスが移ります
其れに、「TextBox1.SetFocus」を入れる意味が有りません
現状このコードが実行される時点で、フォーカスはTextBox1に有りますので利かないのだと
思います

尚、前のレスのMsgBoxが2回出てくる問題は如何なったのでしょうか？

0 hits

▼

【64449】TextBoxの入力制限について Matumo 10/2/8(月) 9:32