VBAによる部分文字列検索

Question

部分文字列（通常は16文字の4文字）の検索語に基づいてデータの行を検索および表示するためのマクロを作成しようとしています。これまで私が持っている（ゴードから助けを借りて）次

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim cell As Range 
Application.ScreenUpdating = False 
With ActiveSheet 
    .Rows.Hidden = False 'unhides all rows 
End With 
For Each cell In ActiveSheet.Range("C3:C1000") 
    If cell.Value <> ActiveSheet.Range("A1").Value Then _ 
      cell.EntireRow.Hidden = True 
    If ActiveSheet.Range("A1").Value = "" Then 
     cell.EntireRow.Hidden = False 
    End If 
Next 
Range("A1").Select 'ready for next value input 
Application.ScreenUpdating = True 
End Sub 

私は部分一致完全一致でないと緩いケースsenstivityとして検索用語を定義することができますどのように

？

TIA

データ列が特別な文字を持っていないダンカン

だけで0-9とA-Zので、おそらく同様の機能は、タスクに合わせます。もしそうなら、マクロはどのように変わるでしょうか？申し訳ありませんが、これで全部の初心者です。 ActiveSheet.Range（ "A1"）場合 値= "" その後に
：ActiveSheet.Rangeもし それは編集を試してみました。そして、（ "A1"）。のような値 "*" が、結果なし

Answer 1

ファーストを両方の弦（針と干し草）をLCASE()に変換してから、LIKE演算子を使用してください。以下の例のように

if lcase(haystack) like "*" & lcase(needle) & "*" then 
'do something 

正規表現とほとんど同じです。だから針が含まれている場合、文字列haystackを調べます。 *はすべてを意味します（または何も意味しません）。これは明確ですか？

Answer 2

私たちは、あなたが針場合#または?などのlike感受性の文字が含まれている知ることができないので、私はinstr()を経由して解決策をお勧めしたい：

if instr(lcase(haystack), lcase(needle)) > 0 then 
' Do Stuff 

をこれは、あなたの最初のオカレンスの開始位置を与えますneedleにhaystack、またはneedleが見つからない場合は0です。