Вопрос по макросу Excel VBA - есть ответ

Без имени, 98 просмотров

Подскажите пожалуйста, есть кнопка на листе excel по нажатию на которую открывается диалог окна поиска, написанный на VBA:
Sub Поиск()
x = InputBox("Введите код продукции")
On Error Resume Next: Err.Clear
Cells(Cells.Find(What:=x, After:=Cells("2", "a"), SearchOrder:=xlByColumns, _
MatchCase:=False, SearchFormat:=False).Row, ("M")).Activate
End Sub
Вопрос: Можно ли как-то сделать поиск по мере ввода запроса (как в 1С)? Спасибо всем откликнувшимся!

Ответы:

Удачник

Так не сделаешь. InputBox передает введенные данные в переменную только после нажатия Enter.
Нужно самому писать окно ввода, которое будет в цикле опрашивать каждый введенный символ и параллельно искать данные, соответствующие введенной части строки.
Как это сделать, я не знаю, никогда не делал такого, но, например, в поисковиках в интернете это уже реализовано. Посмотри, как подбирает ответы Яндекс или Гугл.

Дмитрий Баханьков

да. можно. но придется использовать UserForm. Там в объекте ComboBox есть вроде такая штука

P.S. а обязательно использовать API для создания папки? Что за защита используется при этом?

Необязательно использовать UserForm, достаточно использовать ComboBox из элементов ActiveX, который можно кинуть прям на лист.

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.