VocExcel(単語帳) / VBA Tips
 
 [Key] エクセル / Excel / VBA /マクロ


<--- 戻る

部分一致で検索

サンプルファイル


フィルタオプションを使った検索(抽出)の例です。一覧表示を作成する場合に便利です。

[ポイント]
-------------------------------------------------
Range("B9:D19").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("C3:C4"), Unique:=False
-------------------------------------------------

Range("B9:D19") は、データベースの範囲。ここでは、単語帳のデータ全体。
CriteriaRange:=Range("C3:C4") は、検索する条件の範囲。

注意する点は、データベースの範囲検索条件の範囲の両方に同じ項目名がないといけないとうことです。下図では、検索条件に「語句」という項目名があり、データベースの範囲にも「語句」という項目名があります。両方に同じ項目名がないと、エラーになります。






Sub sample()

'部分一致検索は、検索条件を「*」で囲む
Cells(4, "C").Value = "*" & Cells(4, "C").Value & "*"

Range("B9:D19").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("C3:C4"), Unique:=False


End Sub

--