[[20090831105125]]　『テキストボックスの値を』（sai）　ページの最後に飛ぶ

『テキストボックスの値を』（sai）

 質問なのですが、オートフィルタオプションにある、『を含む』の部分一致検索機能を
 ユーザーフォームに設置したテキストボックスで行いたいのですが、
 マクロはどうすれば、いいんでしょうか？

  Private Sub CommandButton3_Click()

   ActiveSheet.Range("$A$1:$I$11").AutoFilter Field:=2, Criteria1:="*佐*", Operator:=xlOr

  End Sub

 上記はマクロの記録でフィルタオプションを記録した例ですが、
 この"*佐*"の部分にユーザーフォームのテキストボックスの値を代入したいのですが、

 ActiveSheet.Range("$A$1:$I$11").AutoFilter Field:=2, Criteria1:="*TextBox1.Text*", Operator:=xlOrの様に入れ替えると、
TextBox1.Textで絞り込みを行ってしまいます。

 Dimを使用して、代入とかいろいろ試してみたのですがうまくいきません。
 どうか、ご指導お願いします。

 Criteria1:="*" & TextBox1.Text & "*"
のようにしてみてください。
(みやほりん)(-_∂)b

 みやほりんさん

 ありがとうございます。出来ました。

コメント返信：