[[20040917155318]]　『VBA:オートフィルタについて』（いまちゃん）　ページの最後に飛ぶ

『VBA:オートフィルタについて』（いまちゃん）

自動記録でオートフィルタの動作を記録してマクロに組み込んだのですが、
（～を含む）検索をさせる場合、
Selection.AutoFilter Field:=1, Criteria1:="=*a*", Operator:=xlAnd

"=*a*"のaの値を取得する方法を教えてください。
コード内でa=mid(cells(bb,6).value,1,5)と値を取得しているのですが・・・
オートフィルタ内で認識しません（*＿*）

 何がしたいのでしょうか？　目的を教えて下さい。

 現在フィルタされているキーワードの取得ですか？

  (INA)

現在、

    A
1  abcde
2  aabce
3  apkjfj
4  aannkkk

上記のようなデータがあり、A列のデータの頭から5文字分で別シートにて
検索をかけようと思っています。
そこでa=mid(cells(bb,6).value,1,5)　でA列データの頭5文字分の値を
抜きとリ検索キーワードとしたいのですが・・・
（いまちゃん）

 理解できました。 こんなかんじでは？

 Dim i As Long
 Dim myKey As String

 i = 1

 myKey = Left(Cells(i,1).Value,5)

 Selection.AutoFilter Field:=1, Criteria1:="=*" & myKey & "*", Operator:=xlAnd

   (INA)

INAさん！　まさしく回答いただいたとおりです（T_T)
ほんまにありがとうございましたm(_ _)m

(いまちゃん)

すいません。追加で質問させてください。
オートフィルタにて検索をかけ、検索結果がでない（なにもヒットしない）
場合、次の検索にいきたいのですが・・・ヒットなしと認識させるには
どのようにすれば良いでしょうか？（いまちゃん）

 抽出件数の取得は、

 if ActiveSheet.UsedRange.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1 = 0 then
     Msgbox"なし"
 Else
     Msgbox"あり"
 End If

  (INA)

INAさん　　ありがとうございました。（いまちゃん）

コメント返信：