|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.08.2010, 21:34 | #1 |
Форумчанин
Регистрация: 05.08.2010
Сообщений: 127
|
создание поиска
Уважаемые программисты, помогите дописать код поиска по значению,
В общем то все работает но когда искомое слов или число отсутствуют то вылетает баг, что нужно дописать и как чтобы при ненахождениии значения появлялся MsgBox ("искомые данные не найдены") Sub Finderer() ' Dim FD As Variant FD = InputBox("ВВЕДИТЕ ИСКОМОЙ СЛОВО ИЛИ ЧИСЛО) ' Columns("B:B").Select Selection.Find(What:=FD, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate ActiveCell.Select End Sub |
05.08.2010, 21:44 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Код:
|
05.08.2010, 21:53 | #3 |
Форумчанин
Регистрация: 05.08.2010
Сообщений: 127
|
Все отлично работает, спасибо большое EducatedFool, еще одна просьба надо чтобы при нахождение эта ячейка выделялась, чтобы сразу было видно результат!
|
05.08.2010, 21:59 | #4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
замените
' cell.Select на cell.Select (раскомментируйте последнюю строку, убрав одинарную кавычку в начале строки) |
05.08.2010, 22:02 | #5 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
EducatedFool, однако...
серьезно подготовился к возможному вопросу)))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
05.08.2010, 22:05 | #6 |
Форумчанин
Регистрация: 05.08.2010
Сообщений: 127
|
Вот я тупой, я думал ActiveCell.Select надо, спасибо!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
исходники поиска | Domanoff | БД в Delphi | 1 | 06.06.2010 17:44 |
создание строки поиска | PaWeLL | Общие вопросы Delphi | 3 | 29.04.2010 13:59 |
Создание сигнатуры функций для поиска их в памяти процесса | Zlyden' | Общие вопросы C/C++ | 10 | 01.03.2010 21:27 |
Создание форм поиска и вывода информации | opalko1 | Microsoft Office Excel | 7 | 26.02.2010 10:57 |
создание функции поиска | Алёна | Microsoft Office Excel | 4 | 15.04.2009 11:26 |