|
▼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
End If
End Sub
とすれば、OKだと思います。
検索するコードは仕様がわからないので書きませんが・・・。
下記の例から察すれば、MatchやVlookup等を使用すればできそうですね!!
>[TextBox1] [CommandButton1]
>
>番号(A6) 商品名(B6)
>1 いちご
>2 とまと
>3 メロン
>4 りんご
>
>よろしくお願いします。
|
|