|
не нужно спорить
нужно не лениться
предлагаю простенькую доработку,
магарычи поставите потом
1. берем прайс в экселе ( на примере ГСМ-сервиса)
2. выделяем ячейки 1:10-6:10 (A10-E10)
3. данные-фильтр-автофильтр (появятся стрелочки фильтров)
4. вид-панели инструментов-элементы управления
5. включаем конструктор и кидаем на таблицу элемент "Поле ввода текста"
6. двойной шелчок на "Поле", откроется редактор визул-бейсика
7. вставляем процедуру
Private Sub TextBox1_Change()
att = "=*" + Trim$(TextBox1.Text) + "*"
Range("a11:a10000").Select
If Trim$(TextBox1.Text) <> "" Then
Selection.AutoFilter field:=1, Criteria1:=att, Operator:=xlAnd
Else: Selection.AutoFilter field:=1
End If
TextBox1.Activate
End Sub
8. собств. все. сохраняем, отключаем конструктор, снижаем уровень безопасности
получается следующее - в этом поле вводим, например, модель телефона
и прайс фильтруется по этой модели
|