Страницы: 1
RSS
Заданное размещение окна поиска, при нажатии Ctrl+F окно поиска всегда в заданном месте
 
Как сделать так чтобы при нажатии Ctrl+F окно поиска всплывало всегда в заданном месте (на определенном расстоянии от начала листа), а не посредине экрана?

Ну и конечно возможно ли это вообще...
Изменено: Юрий Глодовский - 29.06.2014 19:21:36
 
Можно при помощи API, но хлопотно. Проще нарисовать свое окно и написать к нему обработку.
Я сам - дурнее всякого примера! ...
 
KuklP, нарисовать свое окно? Хм... А почему бы и нет.
По каким запросам будет вернее искать такие вещи?
 
Вот Вам лайт версия формы для поиска))
 
у Игоря есть интересная надстроечка. http://excelvba.ru/programmes/SearchText
но - врать не буду - сам не пользовался.
просто принцип понравился.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
Есть вариант попроще (и бесплатный)
http://excelvba.ru/code/SearchCells
и ещё такой:
http://excelvba.ru/programmes/SearchExcel
 
Игорь, шикарный вещь этот  SearchCells. Эта надстройка даже удобнее того о чем спрашивал )
Я ее немножко перерисовать попробовал, но все равно не все получается.
Не пойму как видимость и ширину колонок задавать, когда пробовал - переставал работать переход на ячейку результата.
И ограничить поиск только одним листом, например текущим или листом под названием "База".
Ну и еще малость - определить зарание место возникновения окна, чтобы не посредине листа, а там где нужно.

 
Цитата
как видимость и ширину колонок задавать
у листбокса есть параметр ширина столбцов - ColumnWidths
сейчас там написано что-то вроде 30;100;70;70
а вы напишите 30;200;0;0

и лишние столбцы будут скрыты (удалять их не надо - они участвуют в работе макроса

Цитата
И ограничить поиск только одним листом
убрать цикл,
или оставив цикл, сделать проверку:
Код
1
2
3
if sh.name = "База" then
   ' ...
end if
Цитата
определить заранее место возникновения окна
изменяете свойства формы .Top и .Left при запуске формы
Страницы: 1
Читают тему
Наверх
Loading...