Неудобный прайс...

[Neznaika]

Больше года последнему посту, но напишу!
Можно долго дискутировать, но все-таки прайс очень не удобен!
Некоторые позиции расположить в алфовитном порядке - и уже +
Неужели сделать форму прайса тежелее чем бесконечно здесь спорить?

[pasha_zv]

не нужно спорить
нужно не лениться

предлагаю простенькую доработку,
магарычи поставите потом

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. собств. все. сохраняем, отключаем конструктор, снижаем уровень безопасности

получается следующее - в этом поле вводим, например, модель телефона
и прайс фильтруется по этой модели

[Crew]

..и найти в google необходимое за несколько минут..

Сообщение от pasha_zv

нужно не лениться