| |
▼ichinose さん：
>▼yuri さん：
>>ありがとうございます。できました。
>>再度お聞きしたいのですが
>>CommandButton1にフォーカスが移ったあと、
>>エンターキーを押すと検索を開始するにはどうすればいいですか？
>
>前回投稿したコード（TextBox1_KeyDown）と同じシートモジュールに
>
>'====================================================
>Private Sub CommandButton1_Click()
> '検索するコードを記述
>End Sub
>'======================================================================
>Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
> If KeyCode = 13 Then
> CommandButton1 = True
keycode=0 'これ入れといてくださいアクティブセルが移動してしまうので
> End If
>End Sub
>
>とすれば、ＯＫだと思います。
|
|
ichinose
- 06/5/24(水) 15:01 -
