Excel VBA質問箱 IV

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

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


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

24018 / 76732

←次へ　｜　前へ→


	【58069】Re:TextBox1に即、再入力したい

ichinose - 08/10/1(水) 10:51 -


	引用なし

	パスワード

▼ぴかるさん：
おはようございます

>TextBox1に日付入力するユーザーフォームを作成し、以下の様なマクロとしています。日付以外を入力すればエラー処理となるのですが、今の状態ではTextBox1をクリックしないと再入力出来ません。これを即入力出来る様にしたいと思っています。よろしくお願い致します。

これ、モードレスモードで表示した時の現象ですよね？
モーダルでは、Jakaさんのいうとおり、正常にフォーカスが作動します。

>
>Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
>　　
>　　On Error GoTo エラー処理
>　　If KeyCode = vbKeyReturn Then
>　　　　読出日付 = CDate(TextBox1.Value)
>　　End If
>
>Exit Sub
>
>エラー処理:
>　　MsgBox "きちんと日付入力してネ(^^)", vbInformation, "【ダメだよ】"
>　　KeyCode = 0
>　　With TextBox1
　　　　.Visible = False
　　　'　DoEvents
　　　　.Visible = True
'こんなの入れてみると、正常にフォーカスされました。
>　　　　.SetFocus
>　　　　.Value = ""
>　　End With
>
>End Sub

Excel2002　SP3で確認

1 hits

▼

【58066】TextBox1に即、再入力したい ぴかる 08/10/1(水) 9:16