|
はじめて投稿させていただきます。
下記コードにてコンボボックスのリストを自動でDropDownさせ
矢印キ−(上・下)で項目を決たいのですが、
上矢印キーを押しつづけるとコン
ボボックスのリストを通り過ぎて、上に配置されているテキストボックスにフ
ォーカスが移動してしまします。下矢印キーの場合も同様に下のテキストボッ
クスにフォーカスが移動してしまいます。
この動きをコンボボックスで表示されたリスト内だけでフォーカスが移動する
ようにしたいのですが、よい解決方法はないでしょうか?
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox1.DropDown
End Sub
Private Sub UserForm_Initialize()
TextBox1.Value = Date
With Sheets("データ")
Me.ComboBox1.RowSource = _
.Range(.Range("A2"), .Range( _
"A65536").End(xlUp)).Address(, , , True)
End With
End Sub
|
|