サンプルファイル

Private Sub CommandButton1_Click()　'検索ボタン


'#### 最初に、テキストボックスの条件を単語帳シートに転記しておく。

If OptionButton1 = True Then '部分一致にチェックが入っていたら

　　　Worksheets("単語帳").Cells(4, "C").Value = TextBox1.Text 'シートに検索条件を転記

　ElseIf OptionButton2 = True Then '完全一致にチェックが入っている場合

　　　Worksheets("単語帳").Cells(4, "C").Value = "'=" & TextBox1.Text

End If



'#### 　検索（抽出）を実行
Range("B9:D19").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("C3:C4"), Unique:=False


End Sub