Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как сделать строку поиска в Exel 
:(
    Опции темы
mironmtx
Дата 29.1.2007, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.1.2007

Репутация: нет
Всего: нет



Доброго времени суток всем! Есть вопрос! Я с программированием не дружу! но поставили такую задачу! есть экселевский документ! Типа записной книжки! но генеральному для поиска впадлу нажимать Ctrl+F и вот надо чтоб в начале этого документа отображалась форма поиска по этому документу! подскажите плиз как это можно сделать! Заранее благодарен!
PM MAIL   Вверх
mihanik
Дата 29.1.2007, 13:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109



Хм...

Вот так при открытии документа будет отображаться диалог поиска...

Код

Sub auto_open()

    Application.Dialogs(xlDialogFormulaFind).Show

 End Sub



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
mironmtx
Дата 29.1.2007, 13:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.1.2007

Репутация: нет
Всего: нет



а можно сделать так чтоб в начале документа находилась форма поиска? так как этот документ открыт постоянно и при закрытии всплывающего поиска проблема остается та же! подскажите плиз код как реализовать такую штуку!
PM MAIL   Вверх
mironmtx
Дата 29.1.2007, 15:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.1.2007

Репутация: нет
Всего: нет



щас временно сделал кнопочку вызывающую поиск! но в идеале хотелось бы всетки сделать форму поиска в самом экселевском документе! если кто знает как плиз поделитесь идейкой!
PM MAIL   Вверх
RockClimber
Дата 29.1.2007, 22:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15



Например, такая идея: вызываешь панель "Элементы управления", размещаешь в первой ячейке строку ввода и кнопку с надписью типа "Найти", с помощью меню Окно -> Закрепить области делаешь так, чтобы это текстовое поле всегда было видно (правда, только в пределах листа, но ведь можно на каждом листе то же самое сделать...). Поиск можно осуществлять так:
Код

Cells.Find(What:=TextBox1.Value).Select

(TextBox1 - это, собсно, элемент управления в виде поля для ввода. Название можно свое придумать...)

Это сообщение отредактировал(а) RockClimber - 29.1.2007, 22:51


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
mironmtx
Дата 30.1.2007, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.1.2007

Репутация: нет
Всего: нет



RockClimber, 
Пасиб за идею!
это уже ближе! тока вот минус как только вводиш букву он тебя перебрасывает на первое слово где встречается эта буква! А можно ли сделать так чтоб он например начинал искать после нажатия кнопки, например "НАЙТИ" которую сделать рядом?? 
PM MAIL   Вверх
RockClimber
Дата 30.1.2007, 22:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15



Цитата(mironmtx @ 30.1.2007,  13:55)
RockClimber, 
А можно ли сделать так чтоб он например начинал искать после нажатия кнопки, например "НАЙТИ" которую сделать рядом??

smile
Я вообще-то именно это и предлагал сделать... Делаешь кнопку, нажимаешь на ней правой кнопкой мыши, выбираешь в меню "Исходный код" (или как там в русской версии называлось...), появляется что-то вроде
Код

Private Sub CommandButton1_Click()

End Sub

Вот туда-то и вставляешь строчку, которая выполняет поиск... smile 


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
mironmtx
Дата 31.1.2007, 10:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.1.2007

Репутация: нет
Всего: нет



RockClimber, 

=)) да ент прост я лоханулся я так и сделал! пасиб! ток вот возникает проблема! у меня этот файл работает нормально скидываю его секретарю чтоб она его дополнила! она вбивает туда еще  телефоны и он у нее виснит а как тока удаляешь все макросы и т. п. работает нормально! не подскажешь из за чего такое может быть?
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0465 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.