помогите разобраться,плз.
есть таблица с автофильтром.нужно часто менять его условия(по содержит)пытаюсь упростить с помощью текстовых полей для ввода этих условий,вот только не понятно - почему только первый макрос привязанный к первому TextBox1 работает как надо(фильтр по содержит)остальные же устанавливают условие равно и при этом не фильтруют даже если вбита полная информация.Вот то, что у меня получилось(в общем с вашей же помощью)
Dim a_text, b_text, c_text As String
Private Sub TextBox1_Change()
If TextBox1.Text = "" Then
Selection.AutoFilter Field:=2
Else
a_text = "*" & TextBox1.Text & "*"
Selection.AutoFilter Field:=2, Criteria1:=a_text, Operator:=xlAnd
End If
End Sub
Private Sub TextBox2_Change()
If TextBox2.Text = "" Then
Selection.AutoFilter Field:=7
Else
b_text = "*" & TextBox1.Text & "*"
Selection.AutoFilter Field:=7, Criteria1:=b_text, Operator:=xlAnd
End If
End Sub
Private Sub TextBox3_Change()
If TextBox3.Text = "" Then
Selection.AutoFilter Field:=15
Else
c_text = "*" & TextBox1.Text & "*"
Selection.AutoFilter Field:=15, Criteria1:=c_text, Operator:=xlAnd
End If
End Sub
Помогите подправить)
