Excel VBA質問箱 IV

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

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


10109 / 76734 ←次へ | 前へ→

【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
4 hits

【72177】TextBox1へフォーカスを移動をさせたい y60 12/6/13(水) 23:05 質問
【72178】Re:TextBox1へフォーカスを移動をさせたい Abyss 12/6/13(水) 23:31 発言
【72179】Re:TextBox1へフォーカスを移動をさせたい y60 12/6/13(水) 23:56 お礼
【72374】TextBox3を入力可能状態にしたい y60 12/7/25(水) 23:55 質問
【72376】Re:TextBox3を入力可能状態にしたい ichinose 12/7/26(木) 5:53 発言
【72387】Re:TextBox3を入力可能状態にしたい y60 12/7/26(木) 16:25 お礼
【72375】Re:TextBox1へフォーカスを移動をさせたい UO3 12/7/26(木) 0:18 発言
【72388】Re:TextBox1へフォーカスを移動をさせたい y60 12/7/26(木) 16:32 お礼

10109 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free