Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Создание кнопки
 
#1
05.01.2009 22:45:06
Помогите плиз если не сложно,а то я в этом деле вообще 0  
Нужно создать кнопку поиска текста в B и С - как это сделать?
 
 
 
#2
05.01.2009 23:10:25
Создание самой кнопки не приведёт к осуществлению поиска. Нужен написать некий макрос, который будет срабатывать при нажатии на эту кнопку. Чем не устраивает использование стандартных средств поиска?
 
 
 
#3
05.01.2009 23:21:45
захотел создать маленький каталог и для удобства вынести пару функций,пол вечера ломал голову - лазил по форумам но ничего так и не понял    
Теперь разобратся вопрос принципа - как это сделать,как сам макрос пишется?
 
 
 
#4
05.01.2009 23:56:16
Так это же совсем другое дело. Вы же просили помочь создать кнопку. Оказывается нужно написать макрос. Если приложите свой файл и покажете что и где искать, что потом с этим найденным делать - ответ получите быстрее.
 
 
 
#5
05.01.2009 23:59:17
Относительно того, как пишется макрос - самый простой способ: включить макрорекордер, выполнить задуманные действия (по поиску, в данном случае), остановить запись. Затем уже можно создать кнопочку и назначить на неё этот самый записанный макрос. Вот самый простой способ.
 
 
 
#6
06.01.2009 00:10:27
Ну, раз дело принципа, то вот файл с примером, поиграйтесь )
 
 
 
#7
06.01.2009 00:13:38
Павел, приготовься :-)))
 
 
 
#8
06.01.2009 00:18:21
короче с синего квадратика нужно сделать реальный поиск
 
 
 
#9
06.01.2009 00:22:08
tsv-gaimer, у меня нет Excel 2007, что будем делать?  
 
P.S. Принимаю подарки на новый год - Office 2007 Licence )
 
 
 
#10
06.01.2009 00:25:13
Не интересней было б как макросы делаются - если можно поподробней,а то если вы сделаете - я все равно не пойму),плиз если не сложно объясните
 
 
 
#11
06.01.2009 00:28:26
Тогда сюда  
 
http://msoffice.nm.ru/faq/macros.htm  
http://firststeps.ru/vba/excel/vbaexcel1.html
 
 
 
#12
06.01.2009 00:30:43
Да чувствую попал я),мне энто за год не изучить
 
 
 
#13
06.01.2009 00:34:59
Если честно у меня есть каталог,но не мой),а я хочу сделать свой и сделать его под себя
 
 
 
#14
06.01.2009 00:37:10
Если не трудно помогите с одной кнопочкой - а я дальше разберусь - я быстро учусь
 
 
 
#15
06.01.2009 01:11:25
Файлы такого размера здесь принято упаковывать.
 
 
 
#16
06.01.2009 11:49:39
{quote}{login=Pavel55}{date=06.01.2009 12:10}{thema=}{post}Ну, раз дело принципа, то вот файл с примером, поиграйтесь ){/post}{/quote}  
 
Pavel55, не могли бы вы закоментить каждую строчку своего макроса.  
Я новичок и не понял принцип работы макроса.
 
 
 
#17
06.01.2009 15:12:28
Закомментировал, см. файл
 
 
 
#18
06.01.2009 16:52:08
спасибо за помощь,а можно еще маленький вопросик,а как сделать что б найденое значение отображалось после поиска посередине экрана,просто если инфа будет на 1000 строке не очень удобно будет  
Извеняюсь наверно я немного надоел
 
 
 
#19
06.01.2009 17:26:48
нет, не надоели. См. пример
 
 
 
#20
23.09.2010 17:36:01
а как в файле из предыдущего сообщения сделать, чтобы поиск в любой момент можно было прекратить? Например, есть 20 найденных ячейки, но нас устраивает пятая. В предложенном варианте нам надо прощелкать все 20 ячеек, т.к. информационное  окошко закрыть не получается?
 
 
 
#21
23.09.2010 17:46:07
Dim ans as Long  
...  
...  
 
 
           'показываем, что нашли значение и адрес найденной ячейки  
           ans = MsgBox("Значение " & iText & " найдено в ячейке: " & iFoundRng.Address(0, 0) & vbLf & "Продолжить?", vbInformation + vbYesNo)  
If ans = vbNo Then Exit Sub
 
 
 
#22
23.09.2010 18:01:54
Hugo, спасибо.  
Но при нажатии кнопки открывается редактор VB и выделяет "ans =". Как с этим бороться?
 
 
 
#23
23.09.2010 18:03:53
Все понял, забыл вот эту фигню в начале воткнуть: Dim ans as Long  
Спасибо
 
 
 
#24
23.09.2010 18:25:51
Впрочем, можно и без этой фигни, просто с нею понятнее.  
А так без неё, всё в одну строку:  
 
           If MsgBox("Значение " & iText & " найдено в ячейке: " & iFoundRng.Address(0, 0) & vbLf & "Продолжить?", vbInformation + vbYesNo) = vbNo Then Exit Sub
 
 
 
Страницы: 1
Читают тему
Наверх