| |
▼yuri さん：
こんにちは。
>シート上にテキストボックスとボタン（検索）を作って
>テキストボックスに文字入力した後に
>マウスを使わずにカーソルをボタンにあわせる方法ってありますか？
>
>文字入力→エンターキー→検索
これは、コマンドバー「コントロールツールボックス」にある
テキストボックスとコマンドボタンの事だとしてよろしですね？
仮に
テキストボックス ---- TextBox1
コマンドボタン ---- CommandButton1
というコントロール名だとすると、
当該シートのモジュールに
'=============================================================
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Or KeyCode = 9 Then
CommandButton1.Activate
End If
End Sub
というようにActivateメソッドを使用すると可能です。
尚、コードはEnterキーだけでなく、Tabキーでも
CommandButton1にフォーカスが移るようにしてあります。
試してみてください。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
