|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.03.2013, 18:32 | #1 |
Новичок
Джуниор
Регистрация: 28.03.2013
Сообщений: 7
|
Как выйти из поиска по достижению конца листа?
Как выйти из поиска по достижению конца листа?
По достижению последней строки на листе поиск начинает искать по кругу, а мне бы выйти из цикла, чтобы задать следующий лист. Помогите пжлста. О просвещённые! 10 Cells.Find(What:=Sheets("управление ").Range("B5").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate Rows(ActiveCell.Row).Select Selection.Copy ' тут было то , что я делаю с найденым - не привожу чтобы не засорять GoTo 10 PS нашёл на Вашем форуме очень много ответов, на свои ламерские вопросы, а на этот - не могу. Может он совсем простой и поэтому ответ на него все знают?
Я не программер - Я только учусь... вот уже лет 30.
|
28.03.2013, 18:35 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
А не проще найти сразу все ячейки, и потом их все скопировать?
http://excelvba.ru/code/FindAll Использовать можно так: Код:
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 28.03.2013 в 18:37. |
28.03.2013, 19:23 | #3 | |
Новичок
Джуниор
Регистрация: 28.03.2013
Сообщений: 7
|
Цитата:
Compile error: Sub or Function not defined PS может моя версия офиса (2010) не умеет эту функцию?
Я не программер - Я только учусь... вот уже лет 30.
|
|
28.03.2013, 19:27 | #4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
А вы не забыли скопировать из статьи код этой функции, и вставить его под своим макросом?
|
28.03.2013, 20:03 | #5 | |
Новичок
Джуниор
Регистрация: 28.03.2013
Сообщений: 7
|
Мне бы всё же ответ на мой первый вопрос
Цитата:
Тут в другом проблема - мне бы всё же ответ на мой первый вопрос. У меня там с найдеными данными выполняется определённая процедура, которая работает и вполне справляется со воей задачей. При использовании функции поиска всех строк на листе эта процедура перестанет выполняться и вся работа перейдёт из разряда прикладных в разряд теортических. А мне это как-то незачем. Я, конечно, могу определить текущий номер строки найденного и сравнить его с последним на листе, но мне это ничего не даст - так как последняя найденная строка и последняя строка на листе никак не взаимосвязаны. Можно ещё сохранять номер последней найденной строки и проверять его - не меньше ли он, чем предпоследний... но это даже по моим упрощённым меркам выглядит совсем уж криво. Почти наверняка, есть решение и для Cells.Find, но я уже замучил гугль двумя стами вопросами, а ответа не нашёл Cells.Find(what:=Sheets("óïðàâëåíèå ").Range("B5").Value, after:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate Форумчане! Помогите плииз: Как выйти из этой функции, чтоб она не шла по второму кругу на листе ?
Я не программер - Я только учусь... вот уже лет 30.
|
|
29.03.2013, 05:58 | #6 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
А Вы прочитайте справку по Find. Там как раз есть пример, отвечающий на Ваш вопрос.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
29.03.2013, 12:53 | #7 | |
Новичок
Джуниор
Регистрация: 28.03.2013
Сообщений: 7
|
Цитата:
(Про убогого - это я про себя ессно) Ребята, Вы поймите - я - не программист. Я для себя корявой рукой пишу програмулину, которая помагает мне справляться с повседневной рутиной. В чём то другом - я разбираюсь. Я могу показать Вам, что I5 и I3 процессоры в ноутбуках - это одинаковые процессоры и разница в цене на ноутбуки на них - просто маркетинг. Я могу объяснить что такое каскадное включение котлов и что оно даёт и когда его надо применять... Я не тупой (ну я сам так надеюсь ) Но, БЛИН! когда я жму на F1 и давлю find - вываливается 2 страницы ЗАГОЛОВКОВ в которых внутри листов 100 английского текста. (Для меня - что на китайском... ) Если не тяжело - умоляю сделайте мне копипаст НУЖНОГО кусочка хелпа Может у Вас он по другому выглядит? Или очевидное от меня просто ускользает?
Я не программер - Я только учусь... вот уже лет 30.
|
|
29.03.2013, 12:58 | #8 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Да пожалуйста. Где Вы там 100 страниц нашли... Хелп:
This example finds all cells in the range A1:A500 on worksheet one that contain the value 2 and changes it to 5. Код:
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
29.03.2013, 13:01 | #9 |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
Правильно поставленная задача - три четверти решения.
|
29.03.2013, 13:04 | #10 | |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Цитата:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как выйти из цикла по нажатию горячей клавиши? | suslik_ | Помощь студентам | 2 | 06.07.2011 16:20 |
Как выйти с процедуры? | Andrey770 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 04.06.2011 22:26 |
Как нажатием кнопки выйти из неактивной программы? | Iceman | Win Api | 2 | 18.12.2009 21:21 |
Как можно программно выйти из ждущего режима | xakkkkker | Win Api | 1 | 13.03.2009 17:26 |
Как выйти из бесконечного цикла! | Эдуард | Общие вопросы C/C++ | 11 | 02.03.2008 19:15 |