Excel VBA質問箱 IV

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

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


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

9916 / 76736

←次へ　｜　前へ→


	【72376】Re:TextBox3を入力可能状態にしたい

ichinose - 12/7/26(木) 5:53 -


	引用なし

	パスワード

おはようございます。

>'TextBox3***任意の文字列を入れて、この文字列をアクティブセルの右隣セルに格納
>
>TextBox3の値を入力確認メッセージで、Ｎｏを選んだとき、TextBox3を入力可能状態にしたいのですが、TextBox1にフォーカスが移動してしまいます。
Exitイベントの場合は、別の方法が必要みたいですねえ。

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
　　With TextBox3
　　　 If .Text = "" Then
　　　　　MsgBox "ng"
　　　　　Application.OnTime Now(), _
　　　　　　　　　　　"'SetFocussp ""userform1"",""TextBox3""'"
　　　　　　　　　　　　　　　　　　　　　'↑ユーザーフォームの名前
　　　 End If
　　End With
End Sub

標準モジュールに

Sub setfocussp(ByVal frm As Variant, ctl As Variant)
　　Dim cfrm As Object
　　For Each cfrm In UserForms
　　　 If UCase(cfrm.Name) = UCase(frm) Then
　　　　　cfrm.Controls(ctl).setfocus
　　　　　Exit For
　　　 End If
　　Next
End Sub

尚,Textbox3のExitイベント内のコードは、例題です。

0 hits

▼

【72177】TextBox1へフォーカスを移動をさせたい y60 12/6/13(水) 23:05