|
▼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
>
>とすれば、OKだと思います。
|
|