Поиск по документу и ввод данных в форму

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Поиск по документу и ввод данных в форму (Макросы/Sub)

konstantin_123

Дата: Понедельник, 10.10.2016, 21:57 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

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

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

К сообщению приложен файл: 56.xlsm (56.2 Kb)

Ответить

Pelena

Дата: Вторник, 11.10.2016, 09:45 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19603

Репутация: 4660 ±

Замечаний: ±

Excel 365 & Mac Excel

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

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

konstantin_123

Дата: Вторник, 11.10.2016, 17:30 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

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

Ответить

Udik

Дата: Вторник, 11.10.2016, 18:49 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

так можно
[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

Ответить

konstantin_123

Дата: Вторник, 11.10.2016, 20:33 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Udik,
Интересное решение, буду тестировать.

Ответить

Поиск по документу и ввод данных в форму (Макросы/Sub)

Страница 1 из 1
1