Excel VBA質問箱 IV

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

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


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

10182 / 76807

←次へ　｜　前へ→


	【72177】TextBox1へフォーカスを移動をさせたい

y60 - 12/6/13(水) 23:05 -


	引用なし

	パスワード

アクティブセルへ入力した後、ユーザーフォームのTextBox1へ
フォーカスを移動をさせたい。
フォーカスがセルにもユーザーフォームにもない状態になっています。
よろしくお願いします。

Private Sub TextBox1_Change()
Dim n As Long
　　Me.Label1.Caption = Len(Me.TextBox1.Text)
　　If Len(Me.TextBox1.Text) = 30 Then
　　If YN確認("30文字になりました" & vbCr & "データ入力しますか？") = vbYes Then
　　　　ActiveCell.Value = Me.TextBox1.Text
　　　　Application.Goto ActiveCell.Offset(1, 0)
　　　　Me.TextBox1.Text = Empty
　　　　'
　　　　Me.TextBox1.TabIndex = 0
　　　　Me.TextBox1.SetFocus　　'<<<===TextBox1が入力可能状態にならない
　　End If
　　End If
End Sub

'入力確認メッセージを表示
Function YN確認(Msg As String)
Dim Style As VbMsgBoxStyle
Dim Title As String
　　Style = vbYesNo + vbExclamation + vbDefaultButton1
　　Title = "入力確認"
　　YN確認 = MsgBox(Msg, Style, Title)　　'vbYes = 実行 , vbNo = 中止
End Function

0 hits

▼

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

≪