Excel VBA質問箱 IV

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

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


9919 / 76737 ←次へ | 前へ→

【72374】TextBox3を入力可能状態にしたい
質問  y60  - 12/7/25(水) 23:55 -

引用なし
パスワード
   続いて、質問させてください。
前回の
>>  dim acc as iaccessible
>>  set acc = textbox1
>>  acc.accselect 16&
>>  acc.accselect 1&

16&
1&
の定数のことは良く理解できてないままなのですが、できたら、この定数の意味も説明していただければ助かります。

本題の質問です。
前回の質問に関連しているので、このスレッドで続いて質問します。

Userform1に'TextBox1,'TextBox2,'TextBox3を配置しています。

'TextBox1***TextBox2の文字列の長さを格納
'TextBox2***指定文字数の文字列を入れて、この文字列をアクティブセルに格納
'TextBox3***任意の文字列を入れて、この文字列をアクティブセルの右隣セルに格納

TextBox3の値を入力確認メッセージで、Noを選んだとき、TextBox3を入力可能状態にしたいのですが、TextBox1にフォーカスが移動してしまいます。どのようにすればTextBox3を入力可能状態にできるでしょうか。

下記がそのコードです。

Private Sub TextBox2_Change()
Dim n As Long
Dim acc As IAccessible
  If Len(Me.TextBox2.Text) = Me.TextBox1.Value Then
    If YN確認("指定データ数になりました" & vbCr & "データ入力しますか?") = vbYes Then
      ActiveCell.Value = Me.TextBox2.Text
     'TextBox3へフォーカス移動
      Set acc = TextBox3
    Else
      Set acc = TextBox2
    End If
    acc.accSelect 16&
    acc.accSelect 1&
  End If
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim acc As IAccessible
Dim strm As String
Dim i As Long
  If Me.TextBox3.Text = "" Then Exit Sub
  If YN確認("データ入力しますか?") = vbYes Then
    ActiveCell.Offset(0, 1).Value = TextBox3.Text
    Application.GoTo ActiveCell.Offset(1, 0)  'カーソルを下へ
    Me.TextBox2.Text = Empty
    Me.TextBox3.Text = Empty
    '
    'TextBox2へフォーカス移動
    Set acc = TextBox2
  Else
    'TextBox3へフォーカスを戻す
    Set acc = TextBox3    '<<==1.vbNoでは、TextBox3が入力可能状態にならない

  End If
  acc.accSelect 16&
  acc.accSelect 1&
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 質問
【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 お礼

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