|
オートフィルターで、Selectionとかあいまいな表現をしたことないですが、
テキストボックスの値を見て素直に分けたら良いと思います。
(と、書いておきながら、Fugo部分が素直じゃないですが...。)
Dim Fugo As Variant
Fld = 23
If 電話番号.Value = True Then
Fugo = xlAnd
Else
Fugo = xlOr
End If
If サーチ1.Value <> "" And サーチ2.Value Then
Selection.AutoFilter Field:=Fld, Criteria1:="*" & サーチ1.Value & "*", _
Operator:=Figo, Criteria2:="*" & サーチ2.Value & "*"
ElseIf サーチ1.Value <> "" Then
Selection.AutoFilter Field:=Fld, Criteria1:="*" & サーチ1.Value & "*"
ElseIf サーチ2.Value <> "" Then
Selection.AutoFilter Field:=Fld, Criteria1:="*" & サーチ2.Value & "*"
End If
|
|