Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск по документу и ввод данных в форму - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск по документу и ввод данных в форму (Макросы/Sub)
Поиск по документу и ввод данных в форму
konstantin_123 Дата: Понедельник, 10.10.2016, 21:57 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброго времени суток, уважаемые форумчане!!!
Помогите пожалуйста с решение задачи:
Когда вводится искомый текст, выбирая из результатов поиска нужный вариант , заполняется форма (Табельный № ФИО Машина Пункт назначения)

P.S. Очень нужна помощь так как с макросами на Вы
К сообщению приложен файл: 56.xlsm(56Kb)
 
Ответить
СообщениеДоброго времени суток, уважаемые форумчане!!!
Помогите пожалуйста с решение задачи:
Когда вводится искомый текст, выбирая из результатов поиска нужный вариант , заполняется форма (Табельный № ФИО Машина Пункт назначения)

P.S. Очень нужна помощь так как с макросами на Вы

Автор - konstantin_123
Дата добавления - 10.10.2016 в 21:57
Pelena Дата: Вторник, 11.10.2016, 09:45 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9873
Репутация: 2263 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
Здравствуйте.
Куда и что вводим? Где должен получиться результат?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Куда и что вводим? Где должен получиться результат?

Автор - Pelena
Дата добавления - 11.10.2016 в 09:45
konstantin_123 Дата: Вторник, 11.10.2016, 17:30 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena,
1. Когда выполняется макрос Проверить22 выскакивает форма
2. В поле "введите искомый текст" вводятся данные.
3. В связи с тем что данные могут задваиватся в поле "результаты поиска" выбираем нужный и при этом дожна заполнятся форма та что справа
 
Ответить
СообщениеPelena,
1. Когда выполняется макрос Проверить22 выскакивает форма
2. В поле "введите искомый текст" вводятся данные.
3. В связи с тем что данные могут задваиватся в поле "результаты поиска" выбираем нужный и при этом дожна заполнятся форма та что справа

Автор - konstantin_123
Дата добавления - 11.10.2016 в 17:30
Udik Дата: Вторник, 11.10.2016, 18:49 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1218
Репутация: 153 ±
Замечаний: 0% ±

Excel 2013
так можно
[vba]
Код

Private Sub ListBox1_Click()
Dim sh As Worksheet, r As Range, m
    If ListBox1.ListIndex = -1 Then Exit Sub
    m = Split(ListBox1, "!")
    Set sh = Sheets(m(0)): Set r = sh.Range(m(1))
    sh.Activate: r.Select
    Me.txt_Название.Text = Cells(Selection.Row, 1)
    Me.txt_ФИО.Text = Cells(Selection.Row, 2)
    Me.txt_Машина.Text = Cells(Selection.Row, 3)
    Me.txt_Пункт.Text = Cells(Selection.Row, 4)

End Sub
[/vba]


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
Сообщениетак можно
[vba]
Код

Private Sub ListBox1_Click()
Dim sh As Worksheet, r As Range, m
    If ListBox1.ListIndex = -1 Then Exit Sub
    m = Split(ListBox1, "!")
    Set sh = Sheets(m(0)): Set r = sh.Range(m(1))
    sh.Activate: r.Select
    Me.txt_Название.Text = Cells(Selection.Row, 1)
    Me.txt_ФИО.Text = Cells(Selection.Row, 2)
    Me.txt_Машина.Text = Cells(Selection.Row, 3)
    Me.txt_Пункт.Text = Cells(Selection.Row, 4)

End Sub
[/vba]

Автор - Udik
Дата добавления - 11.10.2016 в 18:49
konstantin_123 Дата: Вторник, 11.10.2016, 20:33 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Udik,
Интересное решение, буду тестировать.
 
Ответить
СообщениеUdik,
Интересное решение, буду тестировать.

Автор - konstantin_123
Дата добавления - 11.10.2016 в 20:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск по документу и ввод данных в форму (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!