сложно ли слелать замену стандартному поиску который вызывается через ctrl+f ? думал поможет макрорекордер, но нет не получилось задачка проста: в столбце E:E найти и перейти на строку где содержится искомое вводимое в textbox прошу помощи т.к. сам еще слабоват в написании своих макросов
сложно ли слелать замену стандартному поиску который вызывается через ctrl+f ? думал поможет макрорекордер, но нет не получилось задачка проста: в столбце E:E найти и перейти на строку где содержится искомое вводимое в textbox прошу помощи т.к. сам еще слабоват в написании своих макросовЛехаа
Добавьте ещё проверку на ошибку и на пустой текстбокс: [vba]
Код
Private Sub CommandButton1_Click() Dim q As String q = TextBox1.Value If q = "" Then MsgBox ("Чего искать-то?") On Error GoTo ErrorHandler Columns("E:E").Find(What:=q, LookIn:=xlValues, LookAt:=xlWhole).Activate Exit Sub ErrorHandler: MsgBox ("Нету такого!") Resume Next End Sub
[/vba]
Добавьте ещё проверку на ошибку и на пустой текстбокс: [vba]
Код
Private Sub CommandButton1_Click() Dim q As String q = TextBox1.Value If q = "" Then MsgBox ("Чего искать-то?") On Error GoTo ErrorHandler Columns("E:E").Find(What:=q, LookIn:=xlValues, LookAt:=xlWhole).Activate Exit Sub ErrorHandler: MsgBox ("Нету такого!") Resume Next End Sub
упс... недоглядел, если значение не ввести полностью то вываливается с ошибкой, можно сделать чтобы по первому совпадению находило и продалжало искать дальше если кнопку поиск нажимать?
упс... недоглядел, если значение не ввести полностью то вываливается с ошибкой, можно сделать чтобы по первому совпадению находило и продалжало искать дальше если кнопку поиск нажимать?Лехаа
Добавьте ещё проверку на ошибку и на пустой текстбокс:
вот это поставил хорошо работает и не вываливается теперь, но не ищет дальше, там может быть еще совпадение , хорошо бы показывал на форме сколько совпадений нашлось
Цитата (Serge_007)
Добавьте ещё проверку на ошибку и на пустой текстбокс:
вот это поставил хорошо работает и не вываливается теперь, но не ищет дальше, там может быть еще совпадение , хорошо бы показывал на форме сколько совпадений нашлось Лехаа
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
не получилось 
недоглядел, если значение не ввести полностью то вываливается с ошибкой, можно сделать чтобы по первому совпадению находило и продалжало искать дальше если кнопку поиск нажимать?
хорошо работает и не вываливается теперь, но не ищет дальше, там может быть еще совпадение 
, хорошо бы показывал на форме сколько совпадений нашлось 
