|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
07.12.2011, 14:27 | #1 |
Пользователь
Регистрация: 06.12.2011
Сообщений: 12
|
Макрос поиска
Есть макрос, который позволяет искать слово или число в таблице Excel
Sub Finderer() FD = InputBox("ВВЕДИТЕ ИСКОМОЕ СЛОВО ИЛИ ЧИСЛО", "Мой поиск") If FD = "" Then Exit Sub ' если пользователь нажал кнопку ОТМЕНА - отказ от поиска Dim cell As Range: Set cell = Range("A:A").Find(FD) ' собственно поиск ' если ничего не нашли - выход из макроса If cell Is Nothing Then MsgBox "Искомые данные не найдены", vbExclamation: Exit Sub MsgBox "Значение """ & FD & """ найдено в ячейке " & cell.Address, vbInformation cell.Select End Sub Но такая ситуация, допустим в столбце A, по которому и производится поиск находится 2 одинаковых слова, как сделать так, что бы выделялись все 2 слово, а не одно верхнее? |
07.12.2011, 14:56 | #2 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Искать дальше, т.е. использовать метод FindNext. В Справке приведен готовый код.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
07.12.2011, 14:59 | #3 |
Пользователь
Регистрация: 13.03.2011
Сообщений: 21
|
Вариант многократного поиска цифры 2 в столбце А.
Код:
|
07.12.2011, 14:59 | #4 |
Форумчанин
Регистрация: 30.01.2008
Сообщений: 314
|
нужно повторитять поиск, пока есть найденное и накапливать результат в текстовой строке( или в диапазоне), потом выделить
|
07.12.2011, 15:30 | #5 |
Пользователь
Регистрация: 06.12.2011
Сообщений: 12
|
Спасибо за ответы, но если можно поподробнее, я не очень сильна в программировании.Напишите конкретно, что куда писать.Заранее спасибо
|
07.12.2011, 15:33 | #6 | |
Пользователь
Регистрация: 06.12.2011
Сообщений: 12
|
Цитата:
|
|
07.12.2011, 18:58 | #7 |
Пользователь
Регистрация: 06.12.2011
Сообщений: 12
|
Здравствуйте, вы мне сегодня отвечали в теме http://www.programmersforum.ru/showthread.php?t=177246 немогли бы вы объяснить куда вставлять find next ?
|
07.12.2011, 19:03 | #8 |
Пользователь
Регистрация: 13.03.2011
Сообщений: 21
|
"цифра 2 найдена". Можете заменить на любое нужное Вам сообщение.
Сообщение появится при наводке на ячейку с найденным символом. |
07.12.2011, 19:23 | #9 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
07.12.2011, 19:23 | #10 |
Пользователь
Регистрация: 06.12.2011
Сообщений: 12
|
Спасибо Вам большое, очень выручили
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос поиска | Pecnekm | Microsoft Office Excel | 19 | 05.07.2012 08:46 |
Макрос поиска в MO Word! | auqarius | Microsoft Office Word | 5 | 18.04.2011 02:20 |
макрос поиска | Kraimon | Microsoft Office Excel | 9 | 15.02.2011 21:32 |
макрос поиска в таблицы | Chubbakka | Microsoft Office Excel | 17 | 29.12.2010 01:42 |
Макрос для поиска/замены | Davidoff | Microsoft Office Excel | 1 | 20.01.2007 16:01 |