Релиб / Программирование / VBA / Фильтр по выделенному / Latest Posts

RE: Фильтр по выделенному

Димит — Tue, 10 Jul 2007 17:57:34 GMT

См. файл

RE: Фильтр по выделенному

vlth — Tue, 10 Jul 2007 13:16:53 GMT

1. Создаём немодальную форму UserForm1 с текстовым полем TextBox1 и кнопкой CommandButton1.

2. В коде листа:

[code]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Len(ActiveCell.Text) = 0 Then
UserForm1.Show
UserForm1.TextBox1.Text = ActiveCell.Text
End If
End Sub[/code]

3. В коде формы:

[code]Private Sub CommandButton1_Click()
Dim s As String
s = Me.TextBox1.SelText
ActiveSheet.Columns(1).AutoFilter Field:=1, Criteria1:="=*" & s & "*", Operator:=xlAnd 'фильтруем столбец "A"
End Sub[/code]

Фильтр по выделенному

Gurcha — Mon, 09 Jul 2007 17:46:11 GMT

Есть необходимость осуществить фильтрацию в определенном столбце по выделенному фрагменту текста в ячейке... раньше пользовался надстройкой Копилка, но теперь нас перевели на 2007 Office и она перестала работать((

Помогите пожалуйста!!!