[[20060901133612]]　『Enterで実行』（HANA）　ページの最後に飛ぶ

『Enterで実行』（HANA）

 コントロールのテキストボックスに入力された文字で
 オートフィルタの絞り込みを行おうと思っています。

 Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Selection.AutoFilter Field:=1, Criteria1:="=*" & Me.TextBox1.Text & "*", Operator:=xlAnd
 End Sub

 シートモジュールに上のコードを貼り付けて
 VBEの方から Sub/ユーザーフォームの実行　とすると
 現在テキストボックスに入力されている文字を含むものが
 抽出できるのですが、シート上に配置したテキストボックスに入力して
 Enterを押しても実行されません。

 Enterで実行出来るようにするためにはどうする必要があるのか
 教えて下さい。

 思いつきですが、KeyDownイベントを使ってみてはどうでしょう。

 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 And Shift = 0 Then
        Selection.AutoFilter Field:=1, Criteria1:="=*" & Me.TextBox1.Text & "*", Operator:=xlAnd
    End If
 End Sub

 ※当方Excel2000で、Exitイベントがない？みたいなのでやりたいことを勘違いしているかもしれません。
 　間違っていたらすみません。
 (nak)

 できました。
 ありがとうございました。

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20060901133612]] 『Enterで実行』（HANA） ページの最後に飛ぶ

[[20060901133612]]　『Enterで実行』（HANA）　ページの最後に飛ぶ